FTN4,L
      SUBROUTINE TIMES (TIMEM)
C 
C-------------------------------------------------------------
C 
C 
C     M.CHAMBREAU       17MAY76    REV. A 
C 
C     "C" COPYRIGHT HEWLETT-PACKARD COMPANY 1976. 
C     ALL RIGHTS RESERVED.  NO PART OF THIS PROGRAM 
C     MAY BE PHOTOCOPIED, REPRODUCED OR TRANSLATED
C     TO ANOTHER PROGRAM LANGUAGE WITHOUT THE PRIOR 
C     WRITTEN CONSENT OF THE HEWLETT-PACKARD COMPANY. 
C 
C-------------------------------------------------------------
C 
      DIMENSION J(5)
      CALL EXEC(11,J) 
      TIMEM = FLOAT(J(1)) * .01 + 
     X        FLOAT(J(2)) + 
     X        FLOAT(J(3)) * 60.0 +
     X        FLOAT(J(4)) * 3600.0
      END 
END$
                                                              