include `s3l/s3l-f.h' include `s3l/s3l_errno-f.h' subroutine S3L_sym_eigen(A, axis1, axis2, E, V, J, job, range, limits, tolerances, ier) integer*8 A integer*4 axis1 integer*4 axis2 integer*8 E integer*8 V integer*8 J integer*4 job integer*4 range <type_lim> limits(2) <type_tol> tolerances(2) integer*4 ier |
where <type_lim> is either integer*4 or real*4 and <type_tol> is either real*4 or real*8.