ml_wgesl Subroutine

subroutine ml_wgesl(ar, ai, lda, n, ipvt, br, bi, job)

Uses

Arguments

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

Variables

Type Visibility Attributes Name Initial
integer, public :: k
integer, public :: kb
integer, public :: l
integer, public :: nm1
double precision, public :: ti
double precision, public :: tr

Source Code

   subroutine ml_wgesl(ar, ai, lda, n, ipvt, br, bi, 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) :: br(*)
      real(kind=real64) :: bi(*)
      integer(kind=int32) :: job
   end subroutine ml_wgesl