ml_wqrsl Subroutine

subroutine ml_wqrsl(xr, xi, ldx, n, k, qrauxr, qrauxi, yr, yi, qyr, qyi, qtyr, qtyi, br, bi, rsdr, rsdi, xbr, xbi, job, info)

Uses

Arguments

Type IntentOptional Attributes Name
double precision :: xr(ldx,*)
double precision :: xi(ldx,*)
integer :: ldx
integer :: n
integer :: k
double precision :: qrauxr(*)
double precision :: qrauxi(*)
double precision :: yr(*)
double precision :: yi(*)
double precision :: qyr(*)
double precision :: qyi(*)
double precision :: qtyr(*)
double precision :: qtyi(*)
double precision :: br(*)
double precision :: bi(*)
double precision :: rsdr(*)
double precision :: rsdi(*)
double precision :: xbr(*)
double precision :: xbi(*)
integer :: job
integer :: info

Variables

Type Visibility Attributes Name Initial
double precision, public :: cabs1
logical, public :: cb
logical, public :: cqty
logical, public :: cqy
logical, public :: cr
logical, public :: cxb
integer, public :: i
integer, public :: j
integer, public :: jj
integer, public :: ju
integer, public :: kp1
double precision, public :: tempi
double precision, public :: tempr
double precision, public :: ti
double precision, public :: tr
double precision, public :: zdumi
double precision, public :: zdumr

Source Code

   subroutine ml_wqrsl(xr, xi, ldx, n, k, qrauxr, qrauxi, yr, yi, qyr, qyi, qtyr, qtyi, br, bi, rsdr, rsdi, xbr, xbi, job, info)
      import  int32, real64
      integer(kind=int32) :: ldx
      real(kind=real64) :: xr(ldx, *)
      real(kind=real64) :: xi(ldx, *)
      integer(kind=int32) :: n
      integer(kind=int32) :: k
      real(kind=real64) :: qrauxr(*)
      real(kind=real64) :: qrauxi(*)
      real(kind=real64) :: yr(*)
      real(kind=real64) :: yi(*)
      real(kind=real64) :: qyr(*)
      real(kind=real64) :: qyi(*)
      real(kind=real64) :: qtyr(*)
      real(kind=real64) :: qtyi(*)
      real(kind=real64) :: br(*)
      real(kind=real64) :: bi(*)
      real(kind=real64) :: rsdr(*)
      real(kind=real64) :: rsdi(*)
      real(kind=real64) :: xbr(*)
      real(kind=real64) :: xbi(*)
      integer(kind=int32) :: job
      integer(kind=int32) :: info
   end subroutine ml_wqrsl