! ********************************************************************************************************************************
!  Created:  7-MAR-2012 18:15:11 by OpenVMS SDL IA64-2     
!  Source:  07-MAR-2012 18:15:11 DUMPD5$:[RAMYA.FOR_ECO]PASLIB_IEEEFLT$ROUTINES.SDI;1 
! ********************************************************************************************************************************
 
!*** MODULE PASLIB_IEEEFLT$ROUTINES ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! ***************************************************************************
 ! 									    *
 !   COPYRIGHT (c) 1992, 1994, 1995, 1996, 1997, 2003 BY			    *
 !   DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS.		    *
 !   ALL RIGHTS RESERVED.						    *
 !  									    *
 !   THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED   *
 !   ONLY IN  ACCORDANCE WITH  THE  TERMS  OF  SUCH  LICENSE  AND WITH THE   *
 !   INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR  ANY  OTHER   *
 !   COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY   *
 !   OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE IS  HEREBY   *
 !   TRANSFERRED.			       				    *
 !  									    *
 !   THE INFORMATION IN THIS SOFTWARE IS  SUBJECT TO CHANGE WITHOUT NOTICE   *
 !   AND  SHOULD  NOT  BE  CONSTRUED AS  A COMMITMENT BY DIGITAL EQUIPMENT   *
 !   CORPORATION.							    *
 !  									    *
 !   DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE  OR  RELIABILITY OF ITS   *
 !   SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.		    *
 !  									    *
 ! 									    *
 ! ***************************************************************************
 !     LIB$CVTS_FROM_INTERNAL_TIME
 !     
 !     Convert Internal Time to External Time (S-Floating Point Value)
 !     
 !     The Convert Internal Time to External Time (S-Floating Point Value)
 !     routine converts a delta internal VMS system time into an external
 !     S-floating time.
 ! 
	INTEGER*4 lib$cvts_from_internal_time
	EXTERNAL lib$cvts_from_internal_time
 !     LIB$CVTS_TO_INTERNAL_TIME
 !     
 !     Convert External Time to Internal Time (S-Floating Point Value)
 !     
 !     The Convert External Time to Internal Time (S-Floating Point Value)
 !     routine converts an external time interval into a VMS internal format
 !     S-floating delta time.
 ! 
 !     
	INTEGER*4 lib$cvts_to_internal_time
	EXTERNAL lib$cvts_to_internal_time
 !     LIB$EMODS
 !     
 !     Extended Multiply and Integerize Routines for S-Floating Point Values
 !     
 !     The Extended Multiply and Integerize routine (S-Floating Point Values)
 !     allows higher-level language users to perform accurate range reduction
 !     of S-floating arguments.
 !         
	INTEGER*4 lib$emods
	EXTERNAL lib$emods
 !     LIB$MULTS_DELTA_TIME
 !     
 !     Multiply Delta Time by an S_Floating Scalar
 !     
 !     The Multiply Delta Time by an S-Floating Scalar routine multiplies a
 !     delta time by an S-floating scalar.
 ! 
	INTEGER*4 lib$mults_delta_time
	EXTERNAL lib$mults_delta_time
 !     LIB$POLYS
 !     
 !     Evaluate Polynomials
 !     
 !     The Evaluate Polynomials routine (S-floating point values) allows
 !     higher-level language users to evaluate S-floating point
 !     polynomials.
 ! 
	INTEGER*4 lib$polys
	EXTERNAL lib$polys
!DEC$ END OPTIONS