Subroutine legdb

subroutine legdb

        ! Variables
    integer, intent(in) :: n
    integer, intent(in) :: m
    integer, intent(in) :: nun
    integer, intent(in) :: flag1
    integer, intent(in) :: flag2
    integer, intent(in) :: fdim1
    integer, intent(in) :: fdim2
    integer, intent(in) :: init
    double precision, intent(in) :: alpha
    double precision, intent(in) :: beta
    double precision, intent(in), dimension (0:n) :: wtn
    double precision, intent(in), dimension (0:m) :: wtm
    double precision, intent(inout), dimension (0:n,0:m) :: f
    double precision, intent(inout), dimension (0:n,0:m) :: s
    double precision, intent(inout), dimension (0:nun,9) :: un
    double precision, dimension (fdim1,fdim1) :: e1
    double precision, dimension (fdim1-flag1,fdim1-flag1) :: e2
    double precision, dimension (fdim1) :: w1
    double precision, dimension (fdim1-flag1) :: w2
    double precision, dimension (0:n) :: xn
    double precision, dimension (0:m) :: xm
    double precision, dimension ((n+1)**2) :: an
    double precision, dimension ((n+1)**2) :: bn
    double precision, dimension ((m+1)**2) :: am
    double precision, dimension ((m+1)**2) :: bm
    double precision, dimension (3*(fdim1-flag1)*(fdim2-flag2)) :: wk

end subroutine legdb

Description of Variables

n

integer, intent(in) :: n

m

integer, intent(in) :: m

nun

integer, intent(in) :: nun

flag1

integer, intent(in) :: flag1

flag2

integer, intent(in) :: flag2

fdim1

integer, intent(in) :: fdim1

fdim2

integer, intent(in) :: fdim2

init

integer, intent(in) :: init

alpha

double precision, intent(in) :: alpha

beta

double precision, intent(in) :: beta

wtn

double precision, intent(in), dimension (0:n) :: wtn

wtm

double precision, intent(in), dimension (0:m) :: wtm

f

double precision, intent(inout), dimension (0:n,0:m) :: f

s

double precision, intent(inout), dimension (0:n,0:m) :: s

un

double precision, intent(inout), dimension (0:nun,9) :: un

e1

double precision, dimension (fdim1,fdim1) :: e1

e2

double precision, dimension (fdim1-flag1,fdim1-flag1) :: e2

w1

double precision, dimension (fdim1) :: w1

w2

double precision, dimension (fdim1-flag1) :: w2

xn

double precision, dimension (0:n) :: xn

xm

double precision, dimension (0:m) :: xm

an

double precision, dimension ((n+1)**2) :: an

bn

double precision, dimension ((n+1)**2) :: bn

am

double precision, dimension ((m+1)**2) :: am

bm

double precision, dimension ((m+1)**2) :: bm

wk

double precision, dimension (3*(fdim1-flag1)*(fdim2-flag2)) :: wk