repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
FSF GCC merge 02/23/03
[official-gcc.git]
/
gcc
/
testsuite
/
g77.f-torture
/
compile
/
20000629-1.f
blob
c14021c4fa3da0ab6462053cfa4b37387bccb88d
1
SUBROUTINE
MIST
(
N
,
BETA
)
2
IMPLICIT REAL*8
(
A
-
H
,
O
-
Z
)
3
INTEGER
IA
,
IQ
,
M1
4
DIMENSION
BETA
(
N
)
5
DO
80
IQ
=
1
,
M1
6
IF
(
BETA
(
IQ
).
EQ
.0.0
D0
)
GO TO
120
7
80
CONTINUE
8
120
IF
(
IQ
.
NE
.1
)
GO TO
160
9
160
M1
=
IA
(
IQ
)
10
RETURN
11
END