|
|
@@ -407,7 +407,7 @@ |
|
|
* Matrix all zero. Return zero solution. |
|
|
* Matrix all zero. Return zero solution. |
|
|
* |
|
|
* |
|
|
CALL SLASET( 'F', MAX( M, N ), NRHS, ZERO, ZERO, B, LDB ) |
|
|
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 |
|
|
RANK = 0 |
|
|
GO TO 70 |
|
|
GO TO 70 |
|
|
END IF |
|
|
END IF |
|
|
|