ml_wgedi Subroutine

subroutine ml_wgedi(ar, ai, lda, n, ipvt, detr, deti, workr, worki, job)

Uses

Arguments

Type IntentOptional Attributes Name
double precision :: ar(lda,*)
double precision :: ai(lda,*)
integer :: lda
integer :: n
integer :: ipvt(*)
double precision :: detr(2)
double precision :: deti(2)
double precision :: workr(*)
double precision :: worki(*)
integer :: job

Variables

Type Visibility Attributes Name Initial
double precision, public :: cabs1
integer, public :: i
integer, public :: j
integer, public :: k
integer, public :: kb
integer, public :: kp1
integer, public :: l
integer, public :: nm1
double precision, public :: ten
double precision, public :: ti
double precision, public :: tr
double precision, public :: zdumi
double precision, public :: zdumr

Source Code

   subroutine ml_wgedi(ar, ai, lda, n, ipvt, detr, deti, workr, worki, job)
      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) :: detr(2)
      real(kind=real64) :: deti(2)
      real(kind=real64) :: workr(*)
      real(kind=real64) :: worki(*)
      integer(kind=int32) :: job
   end subroutine ml_wgedi