ml_htridi Subroutine

subroutine ml_htridi(nm, n, ar, ai, d, e, e2, tau)

Uses

Arguments

Type IntentOptional Attributes Name
integer :: nm
integer :: n
double precision :: ar(nm,n)
double precision :: ai(nm,n)
double precision :: d(n)
double precision :: e(n)
double precision :: e2(n)
double precision :: tau(2,n)

Variables

Type Visibility Attributes Name Initial
double precision, public :: f
double precision, public :: fi
double precision, public :: g
double precision, public :: gi
double precision, public :: h
double precision, public :: hh
integer, public :: i
integer, public :: ii
integer, public :: j
integer, public :: jp1
integer, public :: k
integer, public :: l
double precision, public :: scale
double precision, public :: si
integer, public :: spag_nextblock_1

Source Code

   subroutine ml_htridi(nm, n, ar, ai, d, e, e2, tau)
      import  int32, real64
      integer(kind=int32) :: n
      integer(kind=int32) :: nm
      real(kind=real64) :: ar(nm, n)
      real(kind=real64) :: ai(nm, n)
      real(kind=real64) :: d(n)
      real(kind=real64) :: e(n)
      real(kind=real64) :: e2(n)
      real(kind=real64) :: tau(2, n)
   end subroutine ml_htridi