1C Derived from lapack 2 SUBROUTINE ZGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, 3 $ WORK, RWORK, INFO ) 4 COMPLEX*16 WORK( * ) 5 DO 20 I = 1, RANK 6 WORK( ISMAX+I-1 ) = S2*WORK( ISMAX+I-1 ) 7 20 CONTINUE 8 END 9