Subroutine ledeig

subroutine ledeig

        ! Variables
    integer, intent(in) :: n1
    integer, intent(in) :: flag
    double precision, intent(inout), dimension (n1*(n1+2)) :: wk
    double precision, intent(out), dimension (n1) :: d
    double precision, intent(out), dimension (n1,n1) :: z
    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 ledeig

Description of Variables

n1

integer, intent(in) :: n1

flag

integer, intent(in) :: flag

wk

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

d

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

z

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

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