mopac606_nbo/src/timer.f

   1       SUBROUTINE TIMER(A)
   2       IMPLICIT DOUBLE PRECISION (A-H,O-Z)
   3       CHARACTER*(*) A
   4       LOGICAL FIRST
   5       DATA FIRST/.TRUE./
   6       IF(FIRST)THEN
   7 C
   8 C  DEFINE THE ZERO OF TIME
   9 C
  10          T0=SECOND()
  11          T1=T0
  12          FIRST=.FALSE.
  13       ENDIF
  14 C
  15 C   THE ACT OF CALLING THIS ROUTINE COSTS 0.026 SECONDS
  16 C
  17       T0=T0+0.026
  18       T2=SECOND()
  19       IF(INDEX(A,'BEF').EQ.0.AND.A.NE.' ')THEN
  20          WRITE(6,'(2X,A,A,F7.2,A,F8.2)')
  21      1A,' INTERVAL:',T2-T1,' INTEGRAL:',T2-T0
  22       ELSE
  23          WRITE(6,'(40X,''TIME LOST:'',F7.2)')T2-T1
  24       ENDIF
  25       T1=T2+0.026
  26       RETURN
  27       END