I'm attaching the program I wrote. If anyone corrects it, I'm going to be glad.
Thanks.
USE IMSL
DIMENSION A(100,100), INERTIA(110)
COMPLEX, ALLOCATABLE, DIMENSION(:,:) :: EVAL
COMPLEX, ALLOCATABLE, DIMENSION(:) :: EVEC
REAL INERTIA, INER
INTEGER LDA, LDEVEC, N, CHK, CHK2
REAL(8) A...