      SUBROUTINE TIMING(IMODE,UTIME,STIME,ETIME,MINPGF,MAJPGF, &
     &          RSIZM,AVSIZ,ISWPS,IOOPS,IVCSW,IERR)
      USE preclib
      IMPLICIT REAL(q) (A-H,O-Z)

      REAL(q) UTIME,STIME,ETIME,RSIZM,AVSIZ
      INTEGER MINPGF,MAJPGF,ISWPS,IOOPS,IVCSW,IERR

      UTIME=0
      STIME=0
      ETIME=0
      RSIZM=0
      AVSIZ=0
      ISWPS=0
      IOOPS=0
      IVCSW=0
      MINPGF=0
      MAJPGF=0

      IERR=1

      RETURN
      END
