next up previous contents index
Next: LA_GESV Multiple Case Up: F77_LAPACK Generic Interface Blocks Previous: F77_LAPACK Generic Interface Blocks   Contents   Index


LA_SYEV/LA_HEEV


INTERFACE LA_SYEV 

SUBROUTINE SSYEV( JOBZ, UPLO, N, A, LDA, W, &
WORK, LWORK, INFO )
USE LA_PRECISION, ONLY: WP $=>$ SP
CHARACTER( LEN = 1 ), INTENT( IN ) :: JOBZ, UPLO
INTEGER, INTENT( IN ) :: LDA, LWORK, N
INTEGER, INTENT( OUT ) :: INFO
REAL( WP ), INTENT( INOUT ) :: A( LDA, * )
REAL( WP ), INTENT( OUT ) :: W( * )
REAL( WP ), INTENT( OUT ) :: WORK( * )
END SUBROUTINE SSYEV
SUBROUTINE DSYEV( JOBZ, UPLO, N, A, LDA, W, &
WORK, LWORK, INFO )
USE LA_PRECISION, ONLY: WP $=>$ DP
CHARACTER( LEN = 1 ), INTENT( IN ) :: JOBZ, UPLO
INTEGER, INTENT( IN ) :: LDA, LWORK, N
INTEGER, INTENT( OUT ) :: INFO
REAL( WP ), INTENT( INOUT ) :: A( LDA, * )
REAL( WP ), INTENT( OUT ) :: W( * )
REAL( WP ), INTENT( OUT ) :: WORK( * )
END SUBROUTINE DSYEV
END INTERFACE

INTERFACE LA_HEEV 

SUBROUTINE CHEEV( JOBZ, UPLO, N, A, LDA, W, &
WORK, LWORK, RWORK, INFO )
USE LA_PRECISION, ONLY: WP $=>$ SP
CHARACTER( LEN = 1 ), INTENT( IN ) :: JOBZ, UPLO
INTEGER, INTENT( IN ) :: LDA, LWORK, N
INTEGER, INTENT( OUT ) :: INFO
COMPLEX( WP ), INTENT( INOUT ) :: A( LDA, * )
REAL( WP ), INTENT( OUT ) :: W( * ), RWORK( * )
COMPLEX( WP ), INTENT( OUT ) :: WORK( * )
END SUBROUTINE CHEEV
SUBROUTINE ZHEEV( JOBZ, UPLO, N, A, LDA, W, &
WORK, LWORK, RWORK, INFO )
USE LA_PRECISION, ONLY: WP $=>$ DP
CHARACTER( LEN = 1 ), INTENT( IN ) :: JOBZ, UPLO
INTEGER, INTENT( IN ) :: LDA, LWORK, N
INTEGER, INTENT( OUT ) :: INFO
COMPLEX( WP ), INTENT( INOUT ) :: A( LDA, * )
REAL( WP ), INTENT( OUT ) :: W( * ), RWORK( * )
COMPLEX( WP ), INTENT( OUT ) :: WORK( * )
END SUBROUTINE ZHEEV
END INTERFACE


next up previous contents index
Next: LA_GESV Multiple Case Up: F77_LAPACK Generic Interface Blocks Previous: F77_LAPACK Generic Interface Blocks   Contents   Index
Susan Blackford 2001-08-19