      PROGRAM CCA10
C BENCHMARK CCA10, FOPR03, IF TEST
C CENTRAL COMPUTER AGENCY PROGRAM FOPR03
C BENCHMARK NO 10 = IF TEST  IN NPL REPORT NAC62
C--------------------------------------------------------
C LAWRENCE LIVERMORE LAB. MODIFICATION OF NPL BENCHMARK
C MODIFIED FOR AUTOMATIC TIMING OF BENCHMARK
C  USER  SHALL MODIFY THIS PROGRAM IN THE AREAS INDICATED
C TO PROVIDE AUTOMATIC TIMING. (SEE BELOW)
C  USER  SHALL RUN THIS BENCHMARK TWICE,
C ONCE WITH LOGICAL UNIT 6 SET TO A NULL DEVICE
C AND ONCE WITH LOGICAL UNIT 6 SET TO A PRINTING DEVICE.
C LOGICAL UNIT 7 SHALL ALWAYS BE SET TO A PRINTING DEVICE.
C--------------------------------------------------------
C THIS PROGRAM HAS ONE PARAMETER N
C SET N=897 FOR ONE MINUTE ON A MACHINE OF THE POWER OF 360/65
C SET N=284 FOR ONE MINUTE ON MACHINE 1/10 POWER OF 360/65
C SET N=2840 FOR MACHINE TEN TIMES THE POWER OF 360/65
C------------------------------------------------------------
C  USER  SHALL MODIFY THIS TO SET "STIME" TO A REFERENCE TIME
C IN SECONDS (ACCURATE TO AT LEAST ONE SECOND).
C-------------------------------------------------------------
      STIME=SECNDS(0.0)
      N = 897
D    1 FORMAT(I10)
D      WRITE(6,1)N
      I=-1
      J=0
      K=1
      DO 300 L=1,N
      DO 300 M=1,N
      GO TO 200
  100 IF(I)101,999,999
  101 IF(J)999,102,999
  102 IF(K)999,999,103
  103 IF(I)104,999,999
  104 IF(J)999,105,999
  105 IF(K)999,999,106
  106 IF(I)107,999,999
  107 IF(J)999,108,999
  108 IF(K)999,999,109
  109 IF(I)110,999,999
  110 IF(J)999,111,999
  111 IF(K)999,999,112
  112 CONTINUE
      GO TO 300
  200 IF(I)201,999,999
  202 IF(K)999,999,203
  201 IF(J)999,202,999
  203 IF(I)204,999,999
  205 IF(K)999,999,206
  204 IF(J)999,205,999
  206 IF(I)207,999,999
  208 IF(K)999,999,209
  207 IF(J)999,208,999
  209 IF(I)210,999,999
  211 IF(K)999,999,212
  210 IF(J)999,211,999
  212 CONTINUE
      GO TO 100
  999 CONTINUE
D      WRITE(6,2)L,M
D    2 FORMAT(8H RUBBISH,2I10)
D      WRITE(6,3)I,J,K
  300 CONTINUE
C------------------------------------------------------------
C  USER  SHALL MODIFY THIS TO SET "TTIME" TO TOTAL AMOUNT OF
C ELAPSED TIME SINCE "STIME" IN SECONDS.
C-------------------------------------------------------------
      TTIME=SECNDS(STIME)
      WRITE(6,3)I,J,K
    3 FORMAT(3I10)
C--------------------------------------------------------------
C LLL MODIFICATION TO PRINT TOTAL ELAPSED TIME OF BENCHMARK
      TTIME = TTIME/60.0
      WRITE(6,1000)TTIME
1000  FORMAT(' BENCHMARK 10 EXECUTION TIME IS ',F8.4,' MINUTES')
C--------------------------------------------------------------
      STOP
      END
