3 SUBROUTINE ZGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK,
5 COMPLEX(kind=8) WORK( * )
6 c Following declaration added on transfer to gfortran testsuite.
7 c It is present in original lapack source
10 WORK( ISMAX+I-1 ) = S2*WORK( ISMAX+I-1 )