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