SUBROUTINE TIMING(MOD,ITER)
C     ===========================
C
C     Timing procedure (call machine dependent routine!!)
C
      CHARACTER ROUT*20
      dimension dummy(2)
      DATA T0/0./
      SAVE T0
C
      TIME=etime(dummy)
      DT=TIME-T0
      T0=TIME
      IF(MOD.EQ.1) THEN
         IP=ITER-1
         ROUT='     FORMAL SOLUTION'
      ELSE IF(MOD.EQ.2) THEN
         IP=ITER
         ROUT='       LINEARIZATION'
      ENDIF
      WRITE(69,600) IP,MOD,TIME,DT,ROUT
  600 FORMAT(2I4,2F11.2,2X,A20)
      RETURN
      END