FORTRAN BENCHMARK LISTINGS BM1 to 9
LISTINGS OF BM1 to BM8 FROM COMPUTING EUROPE JULY 27 1978
PROGRAM BM1
WRITE(3,1)
1 FORMAT(9H Start BM1)
DO 2 K=1,1000
2 CONTINUE
WRITE(3,3)
3 FORMAT(2H E)
STOP
END
----------------------
PROGRAM BM2
WRITE(3,1)
1 FORMAT(9H Start BM2)
K=0
2 K=K+1
IF(K.LT.1000)GOTO 2
WRITE(3,3)
3 FORMAT(2H E)
STOP
END
----------------------
PROGRAM BM3
WRITE(3,1)
1 FORMAT(9H Start BM3)
K=0
2 K=K+1
A=K/K*K+K-K
IF(K.LT.1000)GOTO 2
WRITE(3,3)
3 FORMAT(2H E)
STOP
END
SUBROUTINE GOSUB
RETURN
END
----------------------
PROGRAM BM4
WRITE(3,1)
1 FORMAT(9H Start BM4)
K=0
2 K=K+1
A=K/2*3+4-5
IF(K.LT.1000) GO TO 2
WRITE(3,3)
3 FORMAT(2H E)
STOP
END
----------------------
PROGRAM BM5
WRITE(3,1)
1 FORMAT(9H Start BM5)
K=0
2 K=K+1
A=K/2*3+4-5
CALL GOSUB
IF(K.LT.1000)GOTO 2
WRITE(3,3)
3 FORMAT(2H E)
STOP
END
----------------------
PROGRAM BM6
DIMENSION M(5)
WRITE(3,1)
1 FORMAT(9H Start BM6)
K=0
2 K=K+1
CALL GOSUB
DO 4 L=1,5
4 CONTINUE
IF(K.LT.1000)GOTO 2
WRITE(3,3)
3 FORMAT(2H E)
STOP
END
---------------------
PROGRAM BM7
DIMENSION M(5)
WRITE(3,1)
1 FORMAT(9H Start BM7)
K=0
K=K+1
A=K/2*3+4-5
CALL GOSUB
DO 3 L=1,5
M(L)=A
4 CONTINUE
IF(K.LT.1000)GOTO 2
WRITE(3,3)
3 FORMAT(2H E)
STOP
END
SUBROUTINE GOSUB
RETURN
END
----------------------
PROGRAM BM8
WRITE(3,1)
1 FORMAT(9H Start BM8)
K=0
2 K=K+1
A=K**2
FK=K
B=ALOG(FK)
C=SIN(FK)
IF(K.LT.101)GOTO 2
WRITE(3,3)
3 FORMAT(2H E)
STOP
END
----------------------
PROGRAM BM9
WRITE(3,1)
1 FORMAT(9H Start BM9)
DO 2 N=1,1000
DO 3 K=2,500
FN=N
FM=FN/K PP
L=INT(FM)
IF(L .EQ.0)GOTO 4
IF(L .EQ.1)GOTO 3
IF(FM.GT.L)GOTO 3
IF(FM.EQ.L)GOTO 2
3 CONTINUE
4 WRITE(3,6) N
6 FORMAT(1H ,I3)
2 CONTINUE
WRITE(3,7)
7 FORMAT(2H E)
STOP
END
--------------------
