Sign in
llvm
/
llvm-archive
/
7c2014e6d10413401c0984772345d9d61701eeba
/
.
/
llvm-gcc-4.0
/
gcc
/
testsuite
/
gfortran.dg
/
g77
/
20000629-1.f
blob: dc6414435ff03f21ec8d30a4fd3c98fd199c459a [
file
] [
log
] [
blame
]
c
{
dg
-
do
compile
}
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