Sign in
gnu
/
gcc
/
251a817e23053b543f04f101c675f5513bbb1865
/
.
/
gcc
/
testsuite
/
g77.f-torture
/
compile
/
20000629-1.f
blob: c14021c4fa3da0ab6462053cfa4b37387bccb88d [
file
] [
log
] [
blame
]
SUBROUTINE MIST
(
N
,
BETA
)
IMPLICIT REAL
*
8
(
A
-
H
,
O
-
Z
)
INTEGER IA
,
IQ
,
M1
DIMENSION BETA
(
N
)
DO
80
IQ
=
1
,
M1
IF
(
BETA
(
IQ
).
EQ
.
0.0D0
)
GO TO
120
80
CONTINUE
120
IF
(
IQ
.
NE
.
1
)
GO TO
160
160
M1
=
IA
(
IQ
)
RETURN
END