SUBROUTINE LA_GESV( A, B, IPIV=ipiv, INFO=info ) type(wp), INTENT(INOUT) :: A(:,:), rhs INTEGER, INTENT(OUT), OPTIONAL :: IPIV(:) INTEGER, INTENT(OUT), OPTIONAL :: INFO where type ::= REAL COMPLEX wp ::= KIND(1.0) KIND(1.0D0) rhs ::= B(:,:) B(:)