next up previous contents index
Next: LA_GESV Single Case Up: F77_LAPACK Generic Interface Blocks Previous: LA_SYEV/LA_HEEV   Contents   Index


LA_GESV Multiple $\mathit{RHS}$ Case


INTERFACE LA_GESV 

SUBROUTINE SGESV( N, NRHS, A, LDA, IPIV, B, LDB, INFO )
USE LA_PRECISION, ONLY: WP $=>$ SP
INTEGER, INTENT( IN ) :: LDA, LDB, NRHS, N
INTEGER, INTENT( OUT ) :: INFO
INTEGER, INTENT( OUT ) :: IPIV( * )
REAL(WP), INTENT( INOUT ) :: A( LDA, * ), B( LDB, * )
END SUBROUTINE SGESV
SUBROUTINE DGESV( N, NRHS, A, LDA, IPIV, B, LDB, INFO )
USE LA_PRECISION, ONLY: WP $=>$ DP
INTEGER, INTENT( IN ) :: LDA, LDB, NRHS, N
INTEGER, INTENT( OUT ) :: INFO
INTEGER, INTENT( OUT ) :: IPIV( * )
REAL(WP), INTENT( INOUT ) :: A( LDA, * ), B( LDB, * )
END SUBROUTINE DGESV
SUBROUTINE CGESV( N, NRHS, A, LDA, IPIV, B, LDB, INFO )
USE LA_PRECISION, ONLY: WP $=>$ SP
INTEGER, INTENT( IN ) :: LDA, LDB, NRHS, N
INTEGER, INTENT( OUT ) :: INFO
INTEGER, INTENT( OUT ) :: IPIV( * )
COMPLEX(WP), INTENT( INOUT ) :: A( LDA, * ), B( LDB, * )
END SUBROUTINE CGESV
SUBROUTINE ZGESV( N, NRHS, A, LDA, IPIV, B, LDB, INFO )
USE LA_PRECISION, ONLY: WP $=>$ DP
INTEGER, INTENT( IN ) :: LDA, LDB, NRHS, N
INTEGER, INTENT( OUT ) :: INFO
INTEGER, INTENT( OUT ) :: IPIV( * )
COMPLEX( WP ), INTENT( INOUT ) :: A( LDA, * ), B( LDB, * )
END SUBROUTINE ZGESV
MODULE PROCEDURE SGESV1, DGESV1, DGESV1, CGESV1, ZGESV1
END INTERFACE


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