ml_wgeco Subroutine

subroutine ml_wgeco(ar, ai, lda, n, ipvt, rcond, zr, zi)

Uses

Arguments

Type IntentOptional Attributes Name
double precision :: ar(lda,*)
double precision :: ai(lda,*)
integer :: lda
integer :: n
integer :: ipvt(*)
double precision :: rcond
double precision :: zr(*)
double precision :: zi(*)

Variables

Type Visibility Attributes Name Initial
double precision, public :: anorm
double precision, public :: cabs1
double precision, public :: eki
double precision, public :: ekr
integer, public :: info
integer, public :: j
integer, public :: k
integer, public :: kb
integer, public :: kp1
integer, public :: l
double precision, public :: s
double precision, public :: sm
double precision, public :: ti
double precision, public :: tr
double precision, public :: wki
double precision, public :: wkmi
double precision, public :: wkmr
double precision, public :: wkr
double precision, public :: ynorm
double precision, public :: zdumi
double precision, public :: zdumr

Source Code

   subroutine ml_wgeco(ar, ai, lda, n, ipvt, rcond, zr, zi)
      import  int32, real64
      integer(kind=int32) :: lda
      real(kind=real64) :: ar(lda, *)
      real(kind=real64) :: ai(lda, *)
      integer(kind=int32) :: n
      integer(kind=int32) :: ipvt(*)
      real(kind=real64) :: rcond
      real(kind=real64) :: zr(*)
      real(kind=real64) :: zi(*)
   end subroutine ml_wgeco