SUBROUTINE LA_GELSS / LA_GELSD( A, B, RANK=rank, S=s, &
RCOND=rcond, INFO=info )
type(wp), INTENT( INOUT ) :: A( :, : ), rhs
INTEGER, INTENT(OUT), OPTIONAL :: RANK
REAL(wp), INTENT(OUT), OPTIONAL :: S(:)
REAL(wp), INTENT(IN), OPTIONAL :: RCOND
INTEGER, INTENT(OUT), OPTIONAL :: INFO
where
type ::= REAL COMPLEX
wp ::= KIND(1.0) KIND(1.0D0)
rhs ::= B(:,:) B(:)