Subroutine leinit

subroutine leinit

        ! Variables
    integer, intent(in) :: n
    double precision, intent(out), dimension (0:n) :: xjac
    double precision, intent(out), dimension (0:n) :: wt
    double precision, intent(out), dimension (0:n,0:n) :: a
    double precision, intent(out), dimension (0:n,0:n) :: b
    integer :: i
    integer :: j
    double precision :: a1
    double precision :: alpha
    double precision :: beta

end subroutine leinit

Description of Variables

n

integer, intent(in) :: n

xjac

double precision, intent(out), dimension (0:n) :: xjac

wt

double precision, intent(out), dimension (0:n) :: wt

a

double precision, intent(out), dimension (0:n,0:n) :: a

b

double precision, intent(out), dimension (0:n,0:n) :: b

i

integer :: i

j

integer :: j

a1

double precision :: a1

alpha

double precision :: alpha

beta

double precision :: beta