DIAG,eigvec,eigval,matrix[,iprint]
Diagonalizes matrix. The eigenvectors and eigenvalues are stored internally with associated names eigvec and eigval, respectively (arbitrary strings of up tp 16 characters). The if iprint.gt.0, the eigenvalues are printed. If iprint.gt.1, also the eigenvectors are printed.