cputim.f

Go to the documentation of this file.

      SUBROUTINE cputim(TCOMP)
*
*
*       CPU time.
*       ---------
*
      REAL*8  tcomp
      common/icpu0/ icpu
      REAL*4  tarray(2)
*
*
*       Initialize timer (first call) or obtain elapsed time.
      IF (icpu.EQ.0) THEN
*         CALL LIB$INIT_TIMER
          tcomp = 0.0
*         TCOMP = ETIME(TARRAY)
*         TCOMP = MCLOCK()/6000.
          icpu = 1
      ELSE
*         CALL LIB$STAT_TIMER(2,ITIME)
*         TCOMP = FLOAT(ITIME)/6000.0
          tcomp = etime(tarray)/60.0
*         TCOMP = MCLOCK()/6000.
*       Elapsed CPU time in minutes on VAX, SUN or MIPS & IBM RS/6000.
      END IF
*
      RETURN
*
      END