Sign in
gnu
/
gcc
/
93ac832f1846e4867aa6537f76f510fab8e3e87d
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
graphite
/
id-13.f
blob: 9aec1fa6ba9d0dccb460d291a744b769929a54d7 [
file
] [
log
] [
blame
]
DIMENSION FF
(
19
)
COMMON UF
(
9
)
CALL RYSNOD
(
K
)
DO
150
K
=
2
,
N
JMAX
=
K
-
1
DUM
=
ONE
/
FF
(
1
)
DO
110
J
=
1
,
JMAX
DUM
=
DUM
+
POLY
*
POLY
110
CONTINUE
150
CONTINUE
UF
(
K
)=
DUM
/(
ONE
-
DUM
)
END