C.MAIN
C MAIN PROGRAM
C
      DIMENSION INP(2100),IOP(2100),IOB(2100)
       COMMON INP,IOP,IOB
C READ DATA RECORDS
       IOFF=0.
       CALL IN
       CALL TIME(IMIN,ISEC,IOFF)
C EXECUTE BENCHMARK PROGRAM
      CALL BENCH
       IOFF=1
       WRITE (4,100) IMIN,ISEC
100   FORMAT(1X,I3,5H MIN ,I3,4H SEC)
C
       CALL OUT
       STOP
       END
