Sign in
gnu
/
gcc
/
e8cbc2e256b3e9568288594d9f90a2015d31b55a
/
.
/
gcc
/
testsuite
/
g77.f-torture
/
compile
/
990115-1.f
blob: 187e1b463b5da6845cba41d78762e4dceb5fae6a [
file
] [
log
] [
blame
]
C
Derived
from
lapack
SUBROUTINE ZGELSX
(
M
,
N
,
NRHS
,
A
,
LDA
,
B
,
LDB
,
JPVT
,
RCOND
,
RANK
,
$ WORK
,
RWORK
,
INFO
)
COMPLEX
*
16
WORK
(
*
)
DO
20
I
=
1
,
RANK
WORK
(
ISMAX
+
I
-
1
)
=
S2
*
WORK
(
ISMAX
+
I
-
1
)
20
CONTINUE
END