- A
- (
*input/output*)**REAL**or**COMPLEX**array, shape with and .

On entry, the matrix .

On exit, if**JOB**= 'U' and**U**is not present, then**A**is overwritten with the first columns of (the left singular vectors, stored columnwise).

If**JOB**= 'V' and**VT**is not present, then**A**is overwritten with the first rows of (the right singular vectors, stored rowwise).

In all cases the original contents of**A**are destroyed. - S
- (
*output*)**REAL**array, shape with .

The singular values of , sorted so that . - U
*Optional*(*output*)**REAL**or**COMPLEX**array, shape with and or .

If ,**U**contains the matrix .

If ,**U**contains the first columns of (the left singular vectors, stored columnwise).- VT
*Optional*(*output*)**REAL**or**COMPLEX**array, shape with or and .

If , contains the matrix .

If ,**VT**contains the first rows of (the right singular vectors, stored rowwise).- WW
*Optional*(*output*)**REAL**array, shape with

If**INFO**,**WW**contains the unconverged superdiagonal elements of an upper bidiagonal matrix whose diagonal is in (not necessarily sorted). has the same singular values as .Note:

**WW**is a dummy argument for**LA_GESDD**.- JOB
*Optional*(*input*)**CHARACTER(LEN=1)**.

Default value: 'N'.- INFO
*Optional*(*output*)**INTEGER**.

If**INFO**is not present and an error occurs, then the program is terminated with an error message.