next up previous contents index
Next: Purpose Up: Symmetric Indefinite Linear Systems Previous: Example (from Program LA_SYSVX_EXAMPLE)   Contents   Index


LA_SPSV / LA_HPSV 


SUBROUTINE LA_SPSV / LA_HESV( AP, B, UPLO=uplo, & 


IPIV=ipiv, INFO=info ) 

type(wp), INTENT(INOUT) :: AP(:), rhs 


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


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


INTEGER, INTENT(OUT), OPTIONAL :: INFO 


where 

type ::= REAL $\mid$ COMPLEX 

wp   ::= KIND(1.0) $\mid$ KIND(1.0D0) 

rhs  ::= B(:,:) $\mid$ B(:)



Susan Blackford 2001-08-19