Subroutine leneig

subroutine leneig

        ! Variables
    integer, intent(in) :: n1
    integer, intent(in) :: flag
    integer, intent(in) :: mx
    double precision, intent(out), dimension (n1) :: d
    double precision, intent(out), dimension (n1,n1) :: z
    double precision, intent(out), dimension (n1*(n1+2)) :: wk
    double precision, intent(inout), dimension (0:mx) :: ww
    double precision, intent(inout), dimension (0:mx) :: aa
    integer :: i
    integer :: info
    integer :: lwork
    integer :: liwork
    integer, dimension (1:8*n1) :: iwork
    double precision :: c1
    double precision :: c2
    double precision :: c3

end subroutine leneig

Description of Variables

n1

integer, intent(in) :: n1

flag

integer, intent(in) :: flag

mx

integer, intent(in) :: mx

d

double precision, intent(out), dimension (n1) :: d

z

double precision, intent(out), dimension (n1,n1) :: z

wk

double precision, intent(out), dimension (n1*(n1+2)) :: wk

ww

double precision, intent(inout), dimension (0:mx) :: ww

aa

double precision, intent(inout), dimension (0:mx) :: aa

i

integer :: i

info

integer :: info

lwork

integer :: lwork

liwork

integer :: liwork

iwork

integer, dimension (1:8*n1) :: iwork

c1

double precision :: c1

c2

double precision :: c2

c3

double precision :: c3