! *** PREDECLARED TYPES
     
      %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN
         RECORD BASIC$QUADWORD
            LONG FILL ( 2 )
         END RECORD
         %LET %BASIC$QUADWORD_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN
         RECORD BASIC$OCTAWORD
            LONG FILL ( 4 )
         END RECORD
         %LET %BASIC$OCTAWORD_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN
         RECORD BASIC$HFLOAT_AXP
            LONG FILL ( 4 )
         END RECORD
         %LET %BASIC$HFLOAT_AXP_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$F_FLOATING_COMPLEX
            SINGLE REAL_PART
            SINGLE IMAGINARY_PART
         END RECORD
         %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$D_FLOATING_COMPLEX
            DOUBLE REAL_PART
            DOUBLE IMAGINARY_PART
         END RECORD
         %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$G_FLOATING_COMPLEX
            GFLOAT REAL_PART
            GFLOAT IMAGINARY_PART
         END RECORD
         %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN
         RECORD BASIC$H_FLOATING_COMPLEX_AXP
            BASIC$HFLOAT_AXP REAL_PART
            BASIC$HFLOAT_AXP IMAGINARY_PART
         END RECORD
         %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1
      %END %IF
    
    
    ! **************************************************************************
    !                                                                           
    !   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.
    !     
      EXTERNAL LONG FUNCTION  cvt$convert_float &
               ( &
                   ANY  BY REF, &
                   LONG  BY VALUE, &
                   ANY  BY REF, &
                   LONG  BY VALUE, &
                   LONG  BY VALUE &
               )
      EXTERNAL LONG FUNCTION  CVT$FTOF &
               ( &
                   ANY  BY REF, &
                   LONG  BY VALUE, &
                   ANY  BY REF, &
                   LONG  BY VALUE, &
                   LONG  BY VALUE &
               )