ml_corth Subroutine

subroutine ml_corth(nm, n, low, igh, ar, ai, ortr, orti)

Uses

Arguments

Type IntentOptional Attributes Name
integer :: nm
integer :: n
integer :: low
integer :: igh
double precision :: ar(nm,n)
double precision :: ai(nm,n)
double precision :: ortr(igh)
double precision :: orti(igh)

Variables

Type Visibility Attributes Name Initial
double precision, public :: f
double precision, public :: fi
double precision, public :: fr
double precision, public :: g
double precision, public :: h
integer, public :: i
integer, public :: ii
integer, public :: j
integer, public :: jj
integer, public :: kp1
integer, public :: la
integer, public :: m
integer, public :: mp
double precision, public :: scale

Source Code

   subroutine ml_corth(nm, n, low, igh, ar, ai, ortr, orti)
      import  int32, real64
      integer(kind=int32) :: igh
      integer(kind=int32) :: n
      integer(kind=int32) :: nm
      integer(kind=int32) :: low
      real(kind=real64) :: ar(nm, n)
      real(kind=real64) :: ai(nm, n)
      real(kind=real64) :: ortr(igh)
      real(kind=real64) :: orti(igh)
   end subroutine ml_corth