       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$
                                                                                                                                                                  