LA_GESVD / LA_GESDD

SUBROUTINE LA_GESVD / LA_GESDD( A, S, U=u, VT=vt, & 


WW=ww, JOB=job, INFO=info ) 

type(wp), INTENT(INOUT) :: A(:,:) 


REAL(wp), INTENT(OUT) :: S(:) 

type(wp), INTENT(OUT), OPTIONAL :: U(:,:), VT(:,:) 


REAL(wp), INTENT(OUT), OPTIONAL :: WW(:) 


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


INTEGER, INTENT(OUT), OPTIONAL :: INFO 


where 

type ::= REAL $\mid$ COMPLEX 

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