dstev - compute all eigenvalues and, optionally, eigenvectors of a real symmetric tridiagonal matrix A
SUBROUTINE DSTEV( JOBZ, N, DIAG, OFFD, Z, LDZ, WORK, INFO) CHARACTER * 1 JOBZ INTEGER N, LDZ, INFO DOUBLE PRECISION DIAG(*), OFFD(*), Z(LDZ,*), WORK(*)
SUBROUTINE DSTEV_64( JOBZ, N, DIAG, OFFD, Z, LDZ, WORK, INFO) CHARACTER * 1 JOBZ INTEGER*8 N, LDZ, INFO DOUBLE PRECISION DIAG(*), OFFD(*), Z(LDZ,*), WORK(*)
SUBROUTINE STEV( JOBZ, [N], DIAG, OFFD, Z, [LDZ], [WORK], [INFO]) CHARACTER(LEN=1) :: JOBZ INTEGER :: N, LDZ, INFO REAL(8), DIMENSION(:) :: DIAG, OFFD, WORK REAL(8), DIMENSION(:,:) :: Z
SUBROUTINE STEV_64( JOBZ, [N], DIAG, OFFD, Z, [LDZ], [WORK], [INFO]) CHARACTER(LEN=1) :: JOBZ INTEGER(8) :: N, LDZ, INFO REAL(8), DIMENSION(:) :: DIAG, OFFD, WORK REAL(8), DIMENSION(:,:) :: Z
#include <sunperf.h>
void dstev(char jobz, int n, double *diag, double *offd, double *z, int ldz, int *info);
void dstev_64(char jobz, long n, double *diag, double *offd, double *z, long ldz, long *info);
dstev computes all eigenvalues and, optionally, eigenvectors of a real symmetric tridiagonal matrix A.
= 'N': Compute eigenvalues only;
= 'V': Compute eigenvalues and eigenvectors.
OFFD(N)
need not
be set, but is used by the routine.
On exit, the contents of OFFD are destroyed.
= 0: successful exit
< 0: if INFO = -i, the i-th argument had an illegal value
> 0: if INFO = i, the algorithm failed to converge; i off-diagonal elements of OFFD did not converge to zero.