ml_htribk Subroutine

subroutine ml_htribk(nm, n, ar, ai, tau, m, zr, zi)

Uses

Arguments

Type IntentOptional Attributes Name
integer :: nm
integer :: n
double precision :: ar(nm,n)
double precision :: ai(nm,n)
double precision :: tau(2,n)
integer :: m
double precision :: zr(nm,m)
double precision :: zi(nm,m)

Variables

Type Visibility Attributes Name Initial
double precision, public :: h
integer, public :: i
integer, public :: j
integer, public :: k
integer, public :: l
double precision, public :: s
double precision, public :: si

Source Code

   subroutine ml_htribk(nm, n, ar, ai, tau, m, zr, zi)
      import  int32, real64
      integer(kind=int32) :: m
      integer(kind=int32) :: n
      integer(kind=int32) :: nm
      real(kind=real64) :: ar(nm, n)
      real(kind=real64) :: ai(nm, n)
      real(kind=real64) :: tau(2, n)
      real(kind=real64) :: zr(nm, m)
      real(kind=real64) :: zi(nm, m)
   end subroutine ml_htribk