LA_GESV Single $\mathit{RHS}$ Case

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


CONTAINS 

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


SUBROUTINE SGESV1( 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( * ) 


INTERFACE 


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 


END INTERFACE 


CALL SGESV( N, NRHS, A, LDA, IPIV, B, LDB, INFO ) 


END SUBROUTINE SGESV1 


SUBROUTINE DGESV1( N, NRHS, A, LDA, IPIV, B, LDB, INFO ) 


USE LA_PRECISION, ONLY: WP $=>$ DP 

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


CALL DGESV( N, NRHS, A, LDA, IPIV, B, LDB, INFO ) 


END SUBROUTINE DGESV1 


SUBROUTINE CGESV1( N, NRHS, A, LDA, IPIV, B, LDB, INFO ) 


USE LA_PRECISION, ONLY: WP $=>$ SP 

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


CALL CGESV( N, NRHS, A, LDA, IPIV, B, LDB, INFO ) 


END SUBROUTINE CGESV1 


SUBROUTINE ZGESV1( N, NRHS, A, LDA, IPIV, B, LDB, INFO ) 


USE LA_PRECISION, ONLY: WP $=>$ DP 

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


CALL ZGESV( N, NRHS, A, LDA, IPIV, B, LDB, INFO ) 


END SUBROUTINE ZGESV1