Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
graphite
/
id-25.f
blob: 642ed6de7f5cd64ef1f0dfa0cf4b0e6dc5c0bab1 [
file
] [
log
] [
blame
]
SUBROUTINE TFTRAB
(
NA
,
NC
,
D
,
WRK
)
DIMENSION D
(
NA
,
NC
),
WRK
(
NA
)
DO
160
K
=
1
,
NA
DUM
=
DUM
+
D
(
K
,
J
)
160
CONTINUE
WRK
(
I
)
=
DUM
DO
180
I
=
1
,
NA
D
(
I
,
J
)
=
WRK
(
I
)
180
CONTINUE
END