COMMON TIMER,TIMSAV COMMON /DATA/IHMAX CALL HITSST ! Set up for run 1 CONTINUE CALL MSG('Ready to begin') 20 CALL ASTAT(ISTAT) IF(ISTAT .GE. 4) GO TO 20 CALL HITSBE ! Begin the run TBEG = SECNDS(0.0) ! Beginning time 10 CALL ASTAT(ISTAT) IF(ISTAT .GE. 4) GO TO 500 DO 100 I = 1,50 DO 100 J = I,50 TIMSAV = SECNDS(TBEG) DO 100 IH = 1,IHMAX CALL HITSDO(IH,I,J) CALL KBYES 100 CONTINUE TIMER = SECNDS(TIMSAV) ! Time since begin of run GO TO 10 500 CONTINUE CALL HITSEN ! End the run GO TO 1 END