ml_wgefa Subroutine

subroutine ml_wgefa(ar, ai, lda, n, ipvt, info)

Uses

Arguments

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

Variables

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

Source Code

   subroutine ml_wgefa(ar, ai, lda, n, ipvt, info)
      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(*)
      integer(kind=int32) :: info
   end subroutine ml_wgefa