ml_wqrdc Subroutine

subroutine ml_wqrdc(xr, xi, ldx, n, p, qrauxr, qrauxi, jpvt, workr, worki, job)

Uses

Arguments

Type IntentOptional Attributes Name
double precision :: xr(ldx,*)
double precision :: xi(ldx,*)
integer :: ldx
integer :: n
integer :: p
double precision :: qrauxr(*)
double precision :: qrauxi(*)
integer :: jpvt(*)
double precision :: workr(*)
double precision :: worki(*)
integer :: job

Variables

Type Visibility Attributes Name Initial
double precision, public :: cabs1
integer, public :: j
integer, public :: jj
integer, public :: jp
integer, public :: l
integer, public :: lp1
integer, public :: lup
integer, public :: maxj
double precision, public :: maxnrm
logical, public :: negj
double precision, public :: nrmxli
double precision, public :: nrmxlr
integer, public :: pl
integer, public :: pu
logical, public :: swapj
double precision, public :: ti
double precision, public :: tr
double precision, public :: tt
double precision, public :: zdumi
double precision, public :: zdumr

Source Code

   subroutine ml_wqrdc(xr, xi, ldx, n, p, qrauxr, qrauxi, jpvt, workr, worki, job)
      import  int32, real64
      integer(kind=int32) :: ldx
      real(kind=real64) :: xr(ldx, *)
      real(kind=real64) :: xi(ldx, *)
      integer(kind=int32) :: n
      integer(kind=int32) :: p
      real(kind=real64) :: qrauxr(*)
      real(kind=real64) :: qrauxi(*)
      integer(kind=int32) :: jpvt(*)
      real(kind=real64) :: workr(*)
      real(kind=real64) :: worki(*)
      integer(kind=int32) :: job
   end subroutine ml_wqrdc