LA_SYEV/LA_HEEV

 INTERFACE LA_SYEV 


SUBROUTINE SSYEV_F95( A, W, JOBZ, UPLO, INFO ) 


USE LA_PRECISION, ONLY: WP $=>$ SP 


CHARACTER(LEN=1), INTENT( IN ), OPTIONAL :: JOBZ, UPLO 


INTEGER, INTENT( OUT ), OPTIONAL :: INFO 


REAL( WP ), INTENT( INOUT ) :: A( :, : ) 


REAL( WP ), INTENT( OUT ) :: W( : ) 


END SUBROUTINE SSYEV_F95 


SUBROUTINE DSYEV_F95( A, W, JOBZ, UPLO, INFO ) 


USE LA_PRECISION, ONLY: WP $=>$ DP 


CHARACTER(LEN=1), INTENT( IN ), OPTIONAL :: JOBZ, UPLO 


INTEGER, INTENT( OUT ), OPTIONAL :: INFO 


REAL( WP ), INTENT( INOUT ) :: A( :, : ) 


REAL( WP ), INTENT( OUT ) :: W( : ) 


END SUBROUTINE DSYEV_F95 


END INTERFACE 

 INTERFACE LA_HEEV 


SUBROUTINE CHEEV_F95( A, W, JOBZ, UPLO, INFO ) 


USE LA_PRECISION, ONLY: WP $=>$ SP 


CHARACTER(LEN=1), INTENT( IN ), OPTIONAL :: JOBZ, UPLO 


INTEGER, INTENT( OUT ), OPTIONAL :: INFO 


COMPLEX( WP ), INTENT( INOUT ) :: A( :, : ) 


REAL( WP ), INTENT( OUT ) :: W( : ) 


END SUBROUTINE CHEEV_F95 


SUBROUTINE ZHEEV_F95( A, W, JOBZ, UPLO, INFO ) 


USE LA_PRECISION, ONLY: WP $=>$ DP 


CHARACTER(LEN=1), INTENT( IN ), OPTIONAL :: JOBZ, UPLO 


INTEGER, INTENT( OUT ), OPTIONAL :: INFO 


COMPLEX( WP ), INTENT( INOUT ) :: A( :, : ) 


REAL( WP ), INTENT( OUT ) :: W( : ) 


END SUBROUTINE ZHEEV_F95 


END INTERFACE