! ***********************************************************************************************************************************************************************************************************************************************************
!  Created  9-NOV-1999 09:11:29 by VAX SDL V3.2-12     Source:  9-NOV-1999 09:11:28 FORD2$:[VFORT.KIT.FORSYSDEF]CVT$ROUTINES.SDI;1 
! ***********************************************************************************************************************************************************************************************************************************************************
 
!*** MODULE cvt$routines ***
CDEC$ OPTIONS /NOALIGN
! **************************************************************************
!                                                                           
!   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
CDEC$ END OPTIONS