Subroutine ledsyklisk

subroutine ledsyklisk

        ! Variables
    integer, intent(in) :: n1
    integer, intent(in) :: m1
    integer, intent(in) :: nf
    integer, intent(in) :: nu
    integer, intent(in) :: init
    integer, intent(in) :: flag1
    integer, intent(in) :: flag2
    integer, intent(in) :: fdim1
    integer, intent(in) :: fdim2
    double precision, intent(in) :: rm
    double precision, intent(in) :: beta
    double precision, intent(inout), dimension (0:nu,0:m1) :: u
    double precision, intent(inout), dimension (0:nf,0:m1) :: f
    double precision, intent(inout), dimension (3*(m1-1),0:n1-2) :: ws
    integer :: i
    integer :: j
    integer :: m
    integer :: n
    integer :: n2
    integer :: np
    integer :: n3
    integer :: ier
    integer :: mp
    integer :: iflg
    integer :: ierror
    double precision, dimension (fdim1,fdim2) :: f1
    double precision, dimension (fdim1-flag1,fdim2) :: f2
    double precision, dimension (fdim1,fdim2-flag2) :: f3
    double precision, dimension (fdim1-flag1,fdim2-flag2) :: f4
    double precision :: val
    double precision :: alpha
    double precision :: rm1
    double precision :: rm2
    double precision :: c1
    double precision :: c2
    double precision :: c3
    double precision, dimension (n1/2+1) :: ec
    double precision, dimension (0:n1/2+1) :: er
    double precision, dimension (n1/2) :: oc
    double precision, dimension (0:n1/2) :: or
    double precision, dimension (0:n1) :: w
    double precision, dimension (4*m1) :: wk
    real, dimension (2) :: tt

end subroutine ledsyklisk

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

flag1

integer, intent(in) :: flag1

flag2

integer, intent(in) :: flag2

fdim1

integer, intent(in) :: fdim1

fdim2

integer, intent(in) :: fdim2

rm

double precision, intent(in) :: rm

beta

double precision, intent(in) :: beta

u

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

f

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

ws

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

i

integer :: i

j

integer :: j

m

integer :: m

n

integer :: n

n2

integer :: n2

np

integer :: np

n3

integer :: n3

ier

integer :: ier

mp

integer :: mp

iflg

integer :: iflg

ierror

integer :: ierror

f1

double precision, dimension (fdim1,fdim2) :: f1

f2

double precision, dimension (fdim1-flag1,fdim2) :: f2

f3

double precision, dimension (fdim1,fdim2-flag2) :: f3

f4

double precision, dimension (fdim1-flag1,fdim2-flag2) :: f4

val

double precision :: val

alpha

double precision :: alpha

rm1

double precision :: rm1

rm2

double precision :: rm2

c1

double precision :: c1

c2

double precision :: c2

c3

double precision :: c3

ec

double precision, dimension (n1/2+1) :: ec

er

double precision, dimension (0:n1/2+1) :: er

oc

double precision, dimension (n1/2) :: oc

or

double precision, dimension (0:n1/2) :: or

w

double precision, dimension (0:n1) :: w

wk

double precision, dimension (4*m1) :: wk

tt

real, dimension (2) :: tt