! ********************************************************************************************************************************
!  Created: 30-AUG-2007 11:29:35 by OpenVMS SDL IA64-2     
!  Source:  30-AUG-2007 11:29:34 GEM$:[GEMGROUP.SHEILAM.FORSYSDEF.IVMS-V83]CVT$ROUTINES.SDI;1 
! ********************************************************************************************************************************
 
!*** MODULE cvt$routines ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! **************************************************************************
 !                                                                           
 !   Copyright (c) 1993,1994                                                 
 !   by DIGITAL Equipment Corporation, Maynard, Mass.                        
 !                                                                           
 !   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.                 
 !                                                                           
 ! **************************************************************************
 !     CVT$CONVERT_FLOAT
 !     
 !     Convert floating point data types.
 ! 
 !     The CVT$CONVERT_FLOAT converts floating point data types to other
 !     supported floating point data types.
 !     
	INTEGER*4 cvt$convert_float
	EXTERNAL cvt$convert_float
	INTEGER*4 CVT$FTOF
	EXTERNAL CVT$FTOF
!DEC$ END OPTIONS