!*** MODULE $cvtdef ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
	PARAMETER CVT$K_VAX_F = '00000000'X	 !  VAX F     Floating point data
	PARAMETER CVT$K_VAX_D = '00000001'X	 !  VAX D     Floating point data
	PARAMETER CVT$K_VAX_G = '00000002'X	 !  VAX G     Floating point data
	PARAMETER CVT$K_VAX_H = '00000003'X	 !  VAX H     Floating point data
	PARAMETER CVT$K_IEEE_S = '00000004'X	 !  IEEE S    Floating point data
	PARAMETER CVT$K_IEEE_T = '00000005'X	 !  IEEE T    Floating point data
	PARAMETER CVT$K_IBM_LONG = '00000006'X	 !  IBM Long  Floating point data
	PARAMETER CVT$K_IBM_SHORT = '00000007'X	 !  IBM Short Floating point data
	PARAMETER CVT$K_CRAY = '00000008'X	 !  Cray      Floating point data
	PARAMETER CVT$K_IEEE_X = '00000009'X	 !  IEEE X    Floating point data
	PARAMETER CVT$K_BIG_ENDIAN_IEEE_S = '0000000A'X  !  IEEE S    Floating point data
	PARAMETER CVT$K_BIG_ENDIAN_IEEE_T = '0000000B'X  !  IEEE S    Floating point data
	PARAMETER CVT$K_BIG_ENDIAN_IEEE_X = '0000000C'X  !  IEEE S    Floating point data
	PARAMETER CVT$K_CRAY_SINGLE = '00000008'X
 ! 
 !  Function Return Status Values:
 ! 
	PARAMETER CVT$K_NORMAL = '00000000'X
	PARAMETER CVT$M_INVALID_INPUT_TYPE = '00000001'X
	PARAMETER CVT$M_INVALID_OUTPUT_TYPE = '00000002'X
	PARAMETER CVT$M_INVALID_OPTION = '00000004'X
	PARAMETER CVT$M_RESULT_INFINITE = '00000008'X
	PARAMETER CVT$M_RESULT_DENORMALIZED = '00000010'X
	PARAMETER CVT$M_RESULT_OVERFLOW_RANGE = '00000020'X
	PARAMETER CVT$M_RESULT_UNDERFLOW_RANGE = '00000040'X
	PARAMETER CVT$M_RESULT_UNNORMALIZED = '00000080'X
	PARAMETER CVT$M_RESULT_INVALID = '00000100'X
	PARAMETER CVT$M_RESULT_OVERFLOW = '00000200'X
	PARAMETER CVT$M_RESULT_UNDERFLOW = '00000400'X
	PARAMETER CVT$M_RESULT_INEXACT = '00000800'X
	STRUCTURE /CVT$R_RETURN_STATUS/
	    PARAMETER CVT$S_INVALID_INPUT_TYPE = 1
	    PARAMETER CVT$V_INVALID_INPUT_TYPE = 0
	    PARAMETER CVT$S_INVALID_OUTPUT_TYPE = 1
	    PARAMETER CVT$V_INVALID_OUTPUT_TYPE = 1
	    PARAMETER CVT$S_INVALID_OPTION = 1
	    PARAMETER CVT$V_INVALID_OPTION = 2
	    PARAMETER CVT$S_RESULT_INFINITE = 1
	    PARAMETER CVT$V_RESULT_INFINITE = 3
	    PARAMETER CVT$S_RESULT_DENORMALIZED = 1
	    PARAMETER CVT$V_RESULT_DENORMALIZED = 4
	    PARAMETER CVT$S_RESULT_OVERFLOW_RANGE = 1
	    PARAMETER CVT$V_RESULT_OVERFLOW_RANGE = 5
	    PARAMETER CVT$S_RESULT_UNDERFLOW_RANGE = 1
	    PARAMETER CVT$V_RESULT_UNDERFLOW_RANGE = 6
	    PARAMETER CVT$S_RESULT_UNNORMALIZED = 1
	    PARAMETER CVT$V_RESULT_UNNORMALIZED = 7
	    PARAMETER CVT$S_RESULT_INVALID = 1
	    PARAMETER CVT$V_RESULT_INVALID = 8
	    PARAMETER CVT$S_RESULT_OVERFLOW = 1
	    PARAMETER CVT$V_RESULT_OVERFLOW = 9
	    PARAMETER CVT$S_RESULT_UNDERFLOW = 1
	    PARAMETER CVT$V_RESULT_UNDERFLOW = 10
	    PARAMETER CVT$S_RESULT_INEXACT = 1
	    PARAMETER CVT$V_RESULT_INEXACT = 11
	BYTE %FILL (2)
	END STRUCTURE	! CVT$R_RETURN_STATUS
 ! 
 !  Conversion Options:
 ! 
	PARAMETER CVT$M_ROUND_TO_NEAREST = '00000001'X
	PARAMETER CVT$M_TRUNCATE = '00000002'X
	PARAMETER CVT$M_ROUND_TO_POS = '00000004'X
	PARAMETER CVT$M_ROUND_TO_NEG = '00000008'X
	PARAMETER CVT$M_VAX_ROUNDING = '00000010'X
	PARAMETER CVT$M_BIG_ENDIAN = '00000020'X
	PARAMETER CVT$M_ERR_UNDERFLOW = '00000040'X
	PARAMETER CVT$M_FORCE_INVALID_TO_ZERO = '00000080'X
	PARAMETER CVT$M_FORCE_DENORM_TO_ZERO = '00000100'X
	PARAMETER CVT$M_FORCE_INF_TO_MAX_FLOAT = '00000200'X
	PARAMETER CVT$M_FORCE_ALL_SPECIAL_VALUES = '00000400'X
	PARAMETER CVT$M_ALLOW_OVRFLW_RANGE_VALUES = '00000800'X
	PARAMETER CVT$M_ALLOW_UDRFLW_RANGE_VALUES = '00001000'X
	PARAMETER CVT$M_ALLOW_UNNORMALIZED_VALUES = '00002000'X
	PARAMETER CVT$M_REPORT_ALL = '00004000'X
	PARAMETER CVT$m_spare2 = 'FFFF8000'X
	STRUCTURE /CVT$R_CONVERSION_OPTIONS/
 ! 
 !  Rounding Mode Options:
 ! 
	    PARAMETER CVT$S_ROUND_TO_NEAREST = 1
	    PARAMETER CVT$V_ROUND_TO_NEAREST = 0
	    PARAMETER CVT$S_TRUNCATE = 1
	    PARAMETER CVT$V_TRUNCATE = 1
	    PARAMETER CVT$S_ROUND_TO_POS = 1
	    PARAMETER CVT$V_ROUND_TO_POS = 2
	    PARAMETER CVT$S_ROUND_TO_NEG = 1
	    PARAMETER CVT$V_ROUND_TO_NEG = 3
	    PARAMETER CVT$S_VAX_ROUNDING = 1
	    PARAMETER CVT$V_VAX_ROUNDING = 4
 ! 
 !  Options exclusive to CVT$CONVERT_FLOAT
 ! 
	    PARAMETER CVT$S_BIG_ENDIAN = 1
	    PARAMETER CVT$V_BIG_ENDIAN = 5
	    PARAMETER CVT$S_ERR_UNDERFLOW = 1
	    PARAMETER CVT$V_ERR_UNDERFLOW = 6
 ! 
 !  Forcing Results Options:
 ! 
	    PARAMETER CVT$S_FORCE_INVALID_TO_ZERO = 1
	    PARAMETER CVT$V_FORCE_INVALID_TO_ZERO = 7
	    PARAMETER CVT$S_FORCE_DENORM_TO_ZERO = 1
	    PARAMETER CVT$V_FORCE_DENORM_TO_ZERO = 8
	    PARAMETER CVT$S_FORCE_INF_TO_MAX_FLOAT = 1
	    PARAMETER CVT$V_FORCE_INF_TO_MAX_FLOAT = 9
	    PARAMETER CVT$S_FORCE_ALL_SPECIAL_VALUES = 1
	    PARAMETER CVT$V_FORCE_ALL_SPECIAL_VALUES = 10
 ! 
 !  Allowing Special Results Options:
 ! 
	    PARAMETER CVT$S_ALLOW_OVRFLW_RANGE_VALUES = 1
	    PARAMETER CVT$V_ALLOW_OVRFLW_RANGE_VALUES = 11
	    PARAMETER CVT$S_ALLOW_UDRFLW_RANGE_VALUES = 1
	    PARAMETER CVT$V_ALLOW_UDRFLW_RANGE_VALUES = 12
	    PARAMETER CVT$S_ALLOW_UNNORMALIZED_VALUES = 1
	    PARAMETER CVT$V_ALLOW_UNNORMALIZED_VALUES = 13
 ! 
 !  Status Selection Options:
 ! 
	    PARAMETER CVT$S_REPORT_ALL = 1
	    PARAMETER CVT$V_REPORT_ALL = 14
 ! 
 !  Everything else.
 ! 
	    PARAMETER CVT$S_spare2 = 17
	    PARAMETER CVT$V_spare2 = 15
	    BYTE %FILL (4)
	END STRUCTURE	! CVT$R_CONVERSION_OPTIONS
	PARAMETER CVT$M_ALT_ROUND_TO_NEAREST = '00000001'X
	PARAMETER CVT$M_ROUND_TO_ZERO = '00000002'X
	PARAMETER CVT$M_ALT_ROUND_TO_POS = '00000004'X
	PARAMETER CVT$M_ALT_ROUND_TO_NEG = '00000008'X
	PARAMETER CVT$M_BIASED_ROUNDING = '00000010'X
	PARAMETER CVT$m_spare3 = 'FFFFFFE0'X
	STRUCTURE /CVT$R_ALT_CONVERSION_OPTIONS/
 ! 
 !  Rounding Mode Options:
 ! 
	    PARAMETER CVT$S_ALT_ROUND_TO_NEAREST = 1
	    PARAMETER CVT$V_ALT_ROUND_TO_NEAREST = 0
	    PARAMETER CVT$S_ROUND_TO_ZERO = 1
	    PARAMETER CVT$V_ROUND_TO_ZERO = 1
	    PARAMETER CVT$S_ALT_ROUND_TO_POS = 1
	    PARAMETER CVT$V_ALT_ROUND_TO_POS = 2
	    PARAMETER CVT$S_ALT_ROUND_TO_NEG = 1
	    PARAMETER CVT$V_ALT_ROUND_TO_NEG = 3
	    PARAMETER CVT$S_BIASED_ROUNDING = 1
	    PARAMETER CVT$V_BIASED_ROUNDING = 4
	    PARAMETER CVT$S_spare3 = 27
	    PARAMETER CVT$V_spare3 = 5
	    BYTE %FILL (4)
	END STRUCTURE	! CVT$R_ALT_CONVERSION_OPTIONS
!DEC$ END OPTIONS