Fix argument in SLASET call to zero S
fixes in accordance with
* Matrix all zero. Return zero solution.
*
CALL SLASET( 'F', MAX( M, N ), NRHS, ZERO, ZERO, B, LDB )
- CALL SLASET( 'F', MINMN, 1, ZERO, ZERO, S, 1 )
+ CALL SLASET( 'F', MINMN, 1, ZERO, ZERO, S, MINMN )
RANK = 0
GO TO 70
END IF
