Sign in
gnu
/
gcc
/
8353b540e6bf07bc4de944da9c3772c619f86a9c
/
.
/
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