Subroutine chsolve1

subroutine chsolve1

        ! Variables
    integer, intent(in) :: m1
    integer, intent(in) :: m2
    integer, intent(in) :: flag
    double precision, intent(inout), dimension (1:m1,1:m2) :: f
    double precision, intent(in), dimension (1:m1,1:m1) :: E
    double precision, intent(in), dimension (1:m1,1:m1) :: invE
    double precision, intent(in), dimension (1:m1) :: ew
    double precision, dimension (1:m2) :: ew1
    double precision, intent(in) :: alpha
    double precision, intent(in) :: beta
    double precision, intent(in), dimension (1:m2) :: d
    double precision, intent(in), dimension (1:m2) :: p
    integer :: init
    integer :: i
    integer :: j
    integer :: ii
    integer :: l
    integer :: m
    integer :: n
    integer :: info
    double precision :: alpha1
    double precision :: tmp
    double precision, dimension (1:m2,1:m1,1:4) :: ws
    double precision, dimension (m1,m2) :: ftmp

end subroutine chsolve1

Description of Variables

m1

integer, intent(in) :: m1

m2

integer, intent(in) :: m2

flag

integer, intent(in) :: flag

f

double precision, intent(inout), dimension (1:m1,1:m2) :: f

E

double precision, intent(in), dimension (1:m1,1:m1) :: E

invE

double precision, intent(in), dimension (1:m1,1:m1) :: invE

ew

double precision, intent(in), dimension (1:m1) :: ew

ew1

double precision, dimension (1:m2) :: ew1

alpha

double precision, intent(in) :: alpha

beta

double precision, intent(in) :: beta

d

double precision, intent(in), dimension (1:m2) :: d

p

double precision, intent(in), dimension (1:m2) :: p

init

integer :: init

i

integer :: i

j

integer :: j

ii

integer :: ii

l

integer :: l

m

integer :: m

n

integer :: n

info

integer :: info

alpha1

double precision :: alpha1

tmp

double precision :: tmp

ws

double precision, dimension (1:m2,1:m1,1:4) :: ws

ftmp

double precision, dimension (m1,m2) :: ftmp