SUBROUTINE TIMING(MOD,ITER)
C     ===========================
C
C     Timing procedure (call machine dependent routine!!)
C
      CHARACTER ROUT*6
      dimension dummy(2)
      common/timeta/dtim
      DATA T0/0./
      SAVE T0
C
      TIME=etime(dummy)
      DT=TIME-T0
      T0=TIME
      IP=ITER
      IF(MOD.EQ.1) THEN
         ROUT=' TABLE'
      ELSE IF(MOD.EQ.2) THEN
         ROUT=' FINAL'
      ENDIF
      WRITE(69,600) IP,TIME,DT,ROUT
      dtim=dt
  600 FORMAT(I6,2F11.2,2X,A6)
      RETURN
      END