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$