Subroutine lednhmz

subroutine lednhmz

        ! Variables
    integer, intent(in) :: n1
    integer, intent(in) :: m1
    integer, intent(in) :: nf
    integer, intent(in) :: nu
    integer, intent(in) :: init
    double precision, intent(in) :: rm
    double precision, intent(in) :: beta
    double precision, intent(in), dimension (n1/2,n1-1) :: e
    double precision, intent(in), dimension (0:n1-2) :: w
    double precision, intent(in), dimension (0:m1-2) :: aa
    double precision, intent(in), dimension (0:m1-2) :: ww
    double precision, intent(inout), dimension (3*(m1-1),0:n1-2) :: ws
    double precision, intent(inout), dimension (0:nu,0:m1) :: u
    double precision, intent(inout), dimension (0:nf,0:m1) :: f
    integer :: n
    integer :: m
    integer :: n2
    integer :: i
    integer :: j
    integer :: k
    double precision :: rm1
    double precision :: val

end subroutine lednhmz

Description of Variables

n1

integer, intent(in) :: n1

m1

integer, intent(in) :: m1

nf

integer, intent(in) :: nf

nu

integer, intent(in) :: nu

init

integer, intent(in) :: init

rm

double precision, intent(in) :: rm

beta

double precision, intent(in) :: beta

e

double precision, intent(in), dimension (n1/2,n1-1) :: e

w

double precision, intent(in), dimension (0:n1-2) :: w

aa

double precision, intent(in), dimension (0:m1-2) :: aa

ww

double precision, intent(in), dimension (0:m1-2) :: ww

ws

double precision, intent(inout), dimension (3*(m1-1),0:n1-2) :: ws

u

double precision, intent(inout), dimension (0:nu,0:m1) :: u

f

double precision, intent(inout), dimension (0:nf,0:m1) :: f

n

integer :: n

m

integer :: m

n2

integer :: n2

i

integer :: i

j

integer :: j

k

integer :: k

rm1

double precision :: rm1

val

double precision :: val