C PRIME.FTN - PRIME NUMBER PROGRAM C COMMON /PRIME/ IPRIME(1500) C C COMMON WHICH REFERENCES LOGICAL UNIT ASSIGNMENTS C COMMON /LUNS/ ICRD,ILPT,IKBD,ITTY C C WRITE(itty, *)' BENCHMARK - PRIME' C C ***** BEGINNING OF TIMED INTERVAL ***** CALL TIMRB C ***** ***** C K=2 IPRIME(1)=2 DO 3 I=2,1500 2 K=K+1 IM=I-1 DO 1 J=1,IM IF ((K/IPRIME(J))*IPRIME(J).EQ.K) GO TO 2 1 CONTINUE IPRIME(I)=K 3 CONTINUE C C ***** END OF TIMED INTERVAL ***** CALL TIMRE STOP C ***** ***** C 40 WRITE(ITTY,50) IPRIME(1500) 50 FORMAT(1X,I10) STOP END