Sign in
gnu
/
gcc
/
93ac832f1846e4867aa6537f76f510fab8e3e87d
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
graphite
/
id-23.f
blob: 74c29283ddccadc87d5f4cd197d736f5b648447a [
file
] [
log
] [
blame
]
SUBROUTINE CAMB
(
RX2
,
RTX
,
NUM
)
DIMENSION RX2
(
NUM
,
NUM
),
RTX
(
NUM
,
NUM
)
DO I
=
1
,
NUM
DO J
=
1
,
I
DO M
=
1
,
NUM
RX2
(
I
,
J
)=
RX2
(
I
,
J
)+
RTX
(
M
,
I
)
END
DO
END
DO
END
DO
IF
(
RX2
(
I
,
1
).
LE
.
EIGCT2
)
THEN
RTX
(
I
,
1
)=
4.0D
+
00
END
IF
END