SPL,L,O ! NAME: TL.. ! SOURCE: 92067-18247 ! RELOC: 92067-16185 ! PGMR: G.A.A. ! ! *************************************************************** ! * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS * ! * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, * ! * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT* ! * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. * ! *************************************************************** ! NAME TL..(8) "92067-16185 REV.1903 740801" ! ! LET ST.TM BE FUNCTION,EXTERNAL,REAL ! LET N.OPL BE INTEGER,EXTERNAL LET TL.P BE REAL,EXTERNAL ! TL..: SUBROUTINE (N,PLIST) GLOBAL TL.P_ST.TM($(@PLIST+1),N.OPL) !SET THE TIME LIMIT RETURN END END END$