LA_GESV

 INTERFACE LA_GESV 

!		 Single Precision, Multiple RHS 


SUBROUTINE SGESV_F95( A, B, IPIV, INFO ) 


USE LA_PRECISION, ONLY: WP $=>$ SP 


INTEGER, INTENT( OUT ), OPTIONAL :: INFO 


INTEGER, INTENT( OUT ), OPTIONAL :: IPIV( : ) 


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


END SUBROUTINE SGESV_F95 

!		 Single Precision, Single RHS 


SUBROUTINE SGESV1_F95( A, B, IPIV, INFO ) 


USE LA_PRECISION, ONLY: WP $=>$ SP 


INTEGER, INTENT( OUT ), OPTIONAL :: INFO 


INTEGER, INTENT( OUT ), OPTIONAL :: IPIV( : ) 


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


END SUBROUTINE SGESV1_F95 

!		 Double Precision, Multiple RHS 


SUBROUTINE DGESV_F95( A, B, IPIV, INFO ) 


USE LA_PRECISION, ONLY: WP $=>$ DP 

  $\cdots \hspace{2.25cm} \cdots \hspace{2.25cm} \cdots$ 


END SUBROUTINE ZGESV_F95 

!		 Double Complex, Single RHS 


SUBROUTINE ZGESV1_F95( A, B, IPIV, INFO ) 


USE LA_PRECISION, ONLY: WP $=>$ DP 


INTEGER, INTENT( OUT ), OPTIONAL :: INFO 


INTEGER, INTENT( OUT ), OPTIONAL :: IPIV( : ) 


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


END SUBROUTINE ZGESV1_F95 


END INTERFACE