ml_wsvdc Subroutine

subroutine ml_wsvdc(xr, xi, ldx, n, p, sr, si, er, ei, ur, ui, ldu, vr, vi, ldv, workr, worki, job, info)

Uses

Arguments

Type IntentOptional Attributes Name
double precision :: xr(ldx,*)
double precision :: xi(ldx,*)
integer :: ldx
integer :: n
integer :: p
double precision :: sr(*)
double precision :: si(*)
double precision :: er(*)
double precision :: ei(*)
double precision :: ur(ldu,*)
double precision :: ui(ldu,*)
integer :: ldu
double precision :: vr(ldv,*)
double precision :: vi(ldv,*)
integer :: ldv
double precision :: workr(*)
double precision :: worki(*)
integer :: job
integer :: info

Variables

Type Visibility Attributes Name Initial
double precision, public :: b
double precision, public :: c
double precision, public :: cabs1
double precision, public :: cs
double precision, public :: el
double precision, public :: emm1
double precision, public :: f
double precision, public :: g
integer, public :: i
integer, public :: iter
integer, public :: j
integer, public :: jobu
integer, public :: k
integer, public :: kase
integer, public :: kk
integer, public :: l
integer, public :: ll
integer, public :: lls
integer, public :: lm1
integer, public :: lp1
integer, public :: ls
integer, public :: lu
integer, public :: m
integer, public :: maxit
integer, public :: mm
integer, public :: mm1
integer, public :: mp1
integer, public :: nct
integer, public :: nctp1
integer, public :: ncu
integer, public :: nrt
integer, public :: nrtp1
double precision, public :: ri
double precision, public :: rr
double precision, public :: scale
double precision, public :: shift
double precision, public :: sl
double precision, public :: sm
double precision, public :: small
double precision, public :: smm1
double precision, public :: sn
integer, public :: spag_nextblock_1
double precision, public :: t1
double precision, public :: test
double precision, public :: ti
double precision, public :: tr
logical, public :: wantu
logical, public :: wantv
double precision, public :: zdumi
double precision, public :: zdumr
double precision, public :: ztest

Source Code

   subroutine ml_wsvdc(xr, xi, ldx, n, p, sr, si, er, ei, ur, ui, ldu, vr, vi, ldv, workr, worki, job, info)
      import  int32, real64
      integer(kind=int32) :: ldv
      integer(kind=int32) :: ldu
      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) :: sr(*)
      real(kind=real64) :: si(*)
      real(kind=real64) :: er(*)
      real(kind=real64) :: ei(*)
      real(kind=real64) :: ur(ldu, *)
      real(kind=real64) :: ui(ldu, *)
      real(kind=real64) :: vr(ldv, *)
      real(kind=real64) :: vi(ldv, *)
      real(kind=real64) :: workr(*)
      real(kind=real64) :: worki(*)
      integer(kind=int32) :: job
      integer(kind=int32) :: info
   end subroutine ml_wsvdc