! *** 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) 1988 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. * ! * ! * ! *************************************************************************** ! MTH$ACOS ! ! Arc Cosine of Angle Expressed in Radians ! ! Given the cosine of an angle, the Arc Cosine of Angle Expressed in Radians ! routine returns that angle ! (in radians). ! EXTERNAL SINGLE FUNCTION mth$acos & ( & SINGLE BY REF & ) ! MTH$DACOS ! ! Arc Cosine of Angle Expressed in Radians ! ! Given the cosine of an angle, the Arc Cosine of Angle Expressed in Radians ! routine returns that angle ! (in radians). ! EXTERNAL DOUBLE FUNCTION mth$dacos & ( & DOUBLE BY REF & ) ! MTH$GACOS ! ! Arc Cosine of Angle Expressed in Radians ! ! Given the cosine of an angle, the Arc Cosine of Angle Expressed in Radians ! routine returns that angle ! (in radians). ! EXTERNAL GFLOAT FUNCTION mth$gacos & ( & GFLOAT BY REF & ) ! MTH$ACOSD ! ! Arc Cosine of Angle Expressed in Degrees ! ! Given the cosine of an angle, the Arc Cosine of Angle Expressed in Degrees ! routine returns that ! angle (in degrees). ! EXTERNAL SINGLE FUNCTION mth$acosd & ( & SINGLE BY REF & ) ! MTH$DACOSD ! ! Arc Cosine of Angle Expressed in Degrees ! ! Given the cosine of an angle, the Arc Cosine of Angle Expressed in Degrees ! routine returns that ! angle (in degrees). ! EXTERNAL DOUBLE FUNCTION mth$dacosd & ( & DOUBLE BY REF & ) ! MTH$GACOSD ! ! Arc Cosine of Angle Expressed in Degrees ! ! Given the cosine of an angle, the Arc Cosine of Angle Expressed in Degrees ! routine returns that ! angle (in degrees). ! EXTERNAL GFLOAT FUNCTION mth$gacosd & ( & GFLOAT BY REF & ) ! MTH$ASIN ! ! Arc Sine in Radians ! ! Given the sine of an angle, the Arc Sine in Radians ! routine returns that angle ! (in radians). ! EXTERNAL SINGLE FUNCTION mth$asin & ( & SINGLE BY REF & ) ! MTH$DASIN ! ! Arc Sine in Radians ! ! Given the sine of an angle, the Arc Sine in Radians ! routine returns that angle ! (in radians). ! EXTERNAL DOUBLE FUNCTION mth$dasin & ( & DOUBLE BY REF & ) ! MTH$GASIN ! ! Arc Sine in Radians ! ! Given the sine of an angle, the Arc Sine in Radians ! routine returns that angle ! (in radians). ! EXTERNAL GFLOAT FUNCTION mth$gasin & ( & GFLOAT BY REF & ) ! MTH$ASIND ! ! Arc Sine in Degrees ! ! Given the sine of an angle, the Arc Sine in Degrees ! routine returns that angle ! (in degrees). ! EXTERNAL SINGLE FUNCTION mth$asind & ( & SINGLE BY REF & ) ! MTH$DASIND ! ! Arc Sine in Degrees ! ! Given the sine of an angle, the Arc Sine in Degrees ! routine returns that angle ! (in degrees). ! EXTERNAL DOUBLE FUNCTION mth$dasind & ( & DOUBLE BY REF & ) ! MTH$GASIND ! ! Arc Sine in Degrees ! ! Given the sine of an angle, the Arc Sine in Degrees ! routine returns that angle ! (in degrees). ! EXTERNAL GFLOAT FUNCTION mth$gasind & ( & GFLOAT BY REF & ) ! MTH$ATAN ! ! Arc Tangent in Radians ! ! Given the tangent of an angle, the Arc Tangent in Radians ! routine returns that angle (in radians). ! EXTERNAL SINGLE FUNCTION mth$atan & ( & SINGLE BY REF & ) ! MTH$DATAN ! ! Arc Tangent in Radians ! ! Given the tangent of an angle, the Arc Tangent in Radians ! routine returns that angle (in radians). ! EXTERNAL DOUBLE FUNCTION mth$datan & ( & DOUBLE BY REF & ) ! MTH$GATAN ! ! Arc Tangent in Radians ! ! Given the tangent of an angle, the Arc Tangent in Radians ! routine returns that angle (in radians). ! EXTERNAL GFLOAT FUNCTION mth$gatan & ( & GFLOAT BY REF & ) ! MTH$ATAN2 ! ! Arc Tangent in Radians with Two Arguments ! ! Given cosine and cosine, the Arc Tangent in ! Radians with Two Arguments ! routine returns the angle (in radians) ! whose tangent is given by the quotient of cosine and cosine, ! cosine/cosine. ! EXTERNAL SINGLE FUNCTION mth$atan2 & ( & SINGLE BY REF, & SINGLE BY REF & ) ! MTH$DATAN2 ! ! Arc Tangent in Radians with Two Arguments ! ! Given cosine and cosine, the Arc Tangent in ! Radians with Two Arguments ! routine returns the angle (in radians) ! whose tangent is given by the quotient of cosine and cosine, ! cosine/cosine. ! EXTERNAL DOUBLE FUNCTION mth$datan2 & ( & DOUBLE BY REF, & DOUBLE BY REF & ) ! MTH$GATAN2 ! ! Arc Tangent in Radians with Two Arguments ! ! Given cosine and cosine, the Arc Tangent in ! Radians with Two Arguments ! routine returns the angle (in radians) ! whose tangent is given by the quotient of cosine and cosine, ! cosine/cosine. ! EXTERNAL GFLOAT FUNCTION mth$gatan2 & ( & GFLOAT BY REF, & GFLOAT BY REF & ) ! MTH$ATAND ! ! Arc Tangent in Degrees ! ! Given the tangent of an angle, the Arc Tangent in Degrees ! routine returns that angle (in degrees). ! EXTERNAL SINGLE FUNCTION mth$atand & ( & SINGLE BY REF & ) ! MTH$DATAND ! ! Arc Tangent in Degrees ! ! Given the tangent of an angle, the Arc Tangent in Degrees ! routine returns that angle (in degrees). ! EXTERNAL DOUBLE FUNCTION mth$datand & ( & DOUBLE BY REF & ) ! MTH$GATAND ! ! Arc Tangent in Degrees ! ! Given the tangent of an angle, the Arc Tangent in Degrees ! routine returns that angle (in degrees). ! EXTERNAL GFLOAT FUNCTION mth$gatand & ( & GFLOAT BY REF & ) ! MTH$ATANH ! ! Hyperbolic Arc Tangent ! ! Given the hyperbolic tangent of an angle, the Hyperbolic Arc Tangent ! routine returns ! the hyperbolic arc tangent of that angle. ! EXTERNAL SINGLE FUNCTION mth$atanh & ( & SINGLE BY REF & ) ! MTH$DATANH ! ! Hyperbolic Arc Tangent ! ! Given the hyperbolic tangent of an angle, the Hyperbolic Arc Tangent ! routine returns ! the hyperbolic arc tangent of that angle. ! EXTERNAL DOUBLE FUNCTION mth$datanh & ( & DOUBLE BY REF & ) ! MTH$GATANH ! ! Hyperbolic Arc Tangent ! ! Given the hyperbolic tangent of an angle, the Hyperbolic Arc Tangent ! routine returns ! the hyperbolic arc tangent of that angle. ! EXTERNAL GFLOAT FUNCTION mth$gatanh & ( & GFLOAT BY REF & ) ! MTH$ATAND2 ! ! Arc Tangent in Degrees with Two Arguments ! ! Given cosine and cosine, the Arc Tangent in ! Degrees with Two Arguments ! routine returns ! the angle (in degrees) whose tangent ! is given by the quotient of cosine and cosine, ! cosine/cosine. ! EXTERNAL SINGLE FUNCTION mth$atand2 & ( & SINGLE BY REF, & SINGLE BY REF & ) ! MTH$DATAND2 ! ! Arc Tangent in Degrees with Two Arguments ! ! Given cosine and cosine, the Arc Tangent in ! Degrees with Two Arguments ! routine returns ! the angle (in degrees) whose tangent ! is given by the quotient of cosine and cosine, ! cosine/cosine. ! EXTERNAL DOUBLE FUNCTION mth$datand2 & ( & DOUBLE BY REF, & DOUBLE BY REF & ) ! MTH$GATAND2 ! ! Arc Tangent in Degrees with Two Arguments ! ! Given cosine and cosine, the Arc Tangent in ! Degrees with Two Arguments ! routine returns ! the angle (in degrees) whose tangent ! is given by the quotient of cosine and cosine, ! cosine/cosine. ! EXTERNAL GFLOAT FUNCTION mth$gatand2 & ( & GFLOAT BY REF, & GFLOAT BY REF & ) ! MTH$CABS ! ! Complex Absolute Value ! ! The Complex Absolute Value routine ! returns the absolute value of a complex number (r,i). ! EXTERNAL SINGLE FUNCTION mth$cabs & ( & BASIC$F_FLOATING_COMPLEX BY REF & ) ! MTH$CDABS ! ! Complex Absolute Value ! ! The Complex Absolute Value routine ! returns the absolute value of a complex number (r,i). ! EXTERNAL DOUBLE FUNCTION mth$cdabs & ( & BASIC$D_FLOATING_COMPLEX BY REF & ) ! MTH$CGABS ! ! Complex Absolute Value ! ! The Complex Absolute Value routine ! returns the absolute value of a complex number (r,i). ! EXTERNAL GFLOAT FUNCTION mth$cgabs & ( & BASIC$G_FLOATING_COMPLEX BY REF & ) ! MTH$CCOS ! ! Cosine of a Complex Number (F-floating Value) ! ! The Cosine of a Complex Number (F-floating Value) ! routine returns the cosine of a complex number as an ! F-floating value. ! EXTERNAL BASIC$F_FLOATING_COMPLEX FUNCTION mth$ccos & ( & BASIC$F_FLOATING_COMPLEX BY REF & ) ! MTH$CEXP ! ! Complex Exponential (F-floating Value) ! ! The Complex Exponential (F-floating Value) ! routine returns the complex exponential of a ! complex number as an F-floating value. ! EXTERNAL BASIC$F_FLOATING_COMPLEX FUNCTION mth$cexp & ( & BASIC$F_FLOATING_COMPLEX BY REF & ) ! MTH$CLOG ! ! Complex Natural Logarithm (F-floating Value) ! ! The Complex Natural Logarithm (F-floating Value) ! routine returns the complex natural logarithm of a complex number as ! an F-floating value. ! EXTERNAL BASIC$F_FLOATING_COMPLEX FUNCTION mth$clog & ( & BASIC$F_FLOATING_COMPLEX BY REF & ) ! MTH$CMPLX ! ! Complex Number Made from F-floating-Point ! ! The Complex Number Made from F-floating-Point ! routine returns a complex number from two floating-point input values. ! EXTERNAL BASIC$F_FLOATING_COMPLEX FUNCTION mth$cmplx & ( & SINGLE BY REF, & SINGLE BY REF & ) ! MTH$DCMPLX ! ! Complex Number Made from D- or G-floating-Point ! ! The Complex Number Made from ! D- or G-floating-Point ! routine returns a complex number from two D- or G-floating input values. ! EXTERNAL SUB mth$dcmplx & ( & BASIC$D_FLOATING_COMPLEX BY REF, & DOUBLE BY REF, & DOUBLE BY REF & ) ! MTH$GCMPLX ! ! Complex Number Made from D- or G-floating-Point ! ! The Complex Number Made from ! D- or G-floating-Point ! routine returns a complex number from two D- or G-floating input values. ! EXTERNAL SUB mth$gcmplx & ( & BASIC$G_FLOATING_COMPLEX BY REF, & GFLOAT BY REF, & GFLOAT BY REF & ) ! MTH$CONJG ! ! Conjugate of a Complex Number (F-floating Value) ! ! The Conjugate of a Complex Number (F-floating ! Value) ! routine returns the complex conjugate (r,-i) of a complex number ! (r,i) as an F-floating value. ! EXTERNAL BASIC$F_FLOATING_COMPLEX FUNCTION mth$conjg & ( & BASIC$F_FLOATING_COMPLEX BY REF & ) ! MTH$DCONJG ! ! Conjugate of a Complex Number ! ! The Conjugate of a Complex Number ! routine returns the complex conjugate (r,-i) of a complex number (r,i). ! EXTERNAL SUB mth$dconjg & ( & BASIC$D_FLOATING_COMPLEX BY REF, & BASIC$D_FLOATING_COMPLEX BY REF & ) ! MTH$GCONJG ! ! Conjugate of a Complex Number ! ! The Conjugate of a Complex Number ! routine returns the complex conjugate (r,-i) of a complex number (r,i). ! EXTERNAL SUB mth$gconjg & ( & BASIC$G_FLOATING_COMPLEX BY REF, & BASIC$G_FLOATING_COMPLEX BY REF & ) ! MTH$COS ! ! Cosine of Angle Expressed in Radians ! ! The Cosine of Angle Expressed in Radians ! routine returns the cosine of a given angle (in radians). ! EXTERNAL SINGLE FUNCTION mth$cos & ( & SINGLE BY REF & ) ! MTH$DCOS ! ! Cosine of Angle Expressed in Radians ! ! The Cosine of Angle Expressed in Radians ! routine returns the cosine of a given angle (in radians). ! EXTERNAL DOUBLE FUNCTION mth$dcos & ( & DOUBLE BY REF & ) ! MTH$GCOS ! ! Cosine of Angle Expressed in Radians ! ! The Cosine of Angle Expressed in Radians ! routine returns the cosine of a given angle (in radians). ! EXTERNAL GFLOAT FUNCTION mth$gcos & ( & GFLOAT BY REF & ) ! MTH$COSD ! ! Cosine of Angle Expressed in Degrees ! ! The Cosine of Angle Expressed in Degrees ! routine returns the cosine of a given angle (in degrees). ! EXTERNAL SINGLE FUNCTION mth$cosd & ( & SINGLE BY REF & ) ! MTH$DCOSD ! ! Cosine of Angle Expressed in Degrees ! ! The Cosine of Angle Expressed in Degrees ! routine returns the cosine of a given angle (in degrees). ! EXTERNAL DOUBLE FUNCTION mth$dcosd & ( & DOUBLE BY REF & ) ! MTH$GCOSD ! ! Cosine of Angle Expressed in Degrees ! ! The Cosine of Angle Expressed in Degrees ! routine returns the cosine of a given angle (in degrees). ! EXTERNAL GFLOAT FUNCTION mth$gcosd & ( & GFLOAT BY REF & ) ! MTH$COSH ! ! Hyperbolic Cosine ! ! The Hyperbolic Cosine ! routine returns the hyperbolic cosine of ! the input value. ! EXTERNAL SINGLE FUNCTION mth$cosh & ( & SINGLE BY REF & ) ! MTH$DCOSH ! ! Hyperbolic Cosine ! ! The Hyperbolic Cosine ! routine returns the hyperbolic cosine of ! the input value. ! EXTERNAL DOUBLE FUNCTION mth$dcosh & ( & DOUBLE BY REF & ) ! MTH$GCOSH ! ! Hyperbolic Cosine ! ! The Hyperbolic Cosine ! routine returns the hyperbolic cosine of ! the input value. ! EXTERNAL GFLOAT FUNCTION mth$gcosh & ( & GFLOAT BY REF & ) ! MTH$CSIN ! ! Sine of Complex Number (F-floating Value) ! ! The Sine of Complex Number (F-floating ! Value) ! routine returns the sine of a complex number (r,i) as an ! F-floating value. ! EXTERNAL BASIC$F_FLOATING_COMPLEX FUNCTION mth$csin & ( & BASIC$F_FLOATING_COMPLEX BY REF & ) ! MTH$CSQRT ! ! Complex Square Root (F-floating Value) ! ! The Complex Square Root (F-floating Value) routine ! returns the complex square root of a complex number (r,i). ! EXTERNAL BASIC$F_FLOATING_COMPLEX FUNCTION mth$csqrt & ( & BASIC$F_FLOATING_COMPLEX BY REF & ) ! MTH$CVT_D_G ! ! Convert One Double-Precision Value ! ! The Convert One Double-Precision Value routines ! convert one double-precision value to the ! destination data type and return the result as a function value. ! MTH$CVT_D_G converts a D_floating value to G_floating and ! MTH$CVT_G_D converts a G_floating value to a D_floating value. ! EXTERNAL GFLOAT FUNCTION mth$cvt_d_g & ( & DOUBLE BY REF & ) ! MTH$CVT_G_D ! ! Convert One Double-Precision Value ! ! The Convert One Double-Precision Value routines ! convert one double-precision value to the ! destination data type and return the result as a function value. ! MTH$CVT_D_G converts a D_floating value to G_floating and ! MTH$CVT_G_D converts a G_floating value to a D_floating value. ! EXTERNAL DOUBLE FUNCTION mth$cvt_g_d & ( & GFLOAT BY REF & ) ! MTH$CVT_DA_GA ! ! Convert an Array of Double-Precision Values ! ! The Convert an Array of ! Double-Precision Values ! routines convert a contiguous array of ! double-precision values to the destination data type and return the results ! as an array. MTH$CVT_DA_GA converts D_floating values to G_floating and ! MTH$CVT_GA_DA converts G_floating values to D_floating. ! EXTERNAL SUB mth$cvt_da_ga & ( & DOUBLE DIM() BY REF, & GFLOAT DIM() BY REF, & OPTIONAL LONG BY REF & ) ! MTH$CVT_GA_DA ! ! Convert an Array of Double-Precision Values ! ! The Convert an Array of ! Double-Precision Values ! routines convert a contiguous array of ! double-precision values to the destination data type and return the results ! as an array. MTH$CVT_DA_GA converts D_floating values to G_floating and ! MTH$CVT_GA_DA converts G_floating values to D_floating. ! EXTERNAL SUB mth$cvt_ga_da & ( & GFLOAT DIM() BY REF, & DOUBLE DIM() BY REF, & OPTIONAL LONG BY REF & ) ! MTH$CDCOS ! ! Cosine of a Complex Number ! ! The Cosine of a Complex Number ! routine returns the cosine of a complex number. ! EXTERNAL SUB mth$cdcos & ( & BASIC$D_FLOATING_COMPLEX BY REF, & BASIC$D_FLOATING_COMPLEX BY REF & ) ! MTH$CGCOS ! ! Cosine of a Complex Number ! ! The Cosine of a Complex Number ! routine returns the cosine of a complex number. ! EXTERNAL SUB mth$cgcos & ( & BASIC$G_FLOATING_COMPLEX BY REF, & BASIC$G_FLOATING_COMPLEX BY REF & ) ! MTH$CDEXP ! ! Complex Exponential ! ! The Complex Exponential ! routine returns the complex exponential of a ! complex number. ! EXTERNAL SUB mth$cdexp & ( & BASIC$D_FLOATING_COMPLEX BY REF, & BASIC$D_FLOATING_COMPLEX BY REF & ) ! MTH$CGEXP ! ! Complex Exponential ! ! The Complex Exponential ! routine returns the complex exponential of a ! complex number. ! EXTERNAL SUB mth$cgexp & ( & BASIC$G_FLOATING_COMPLEX BY REF, & BASIC$G_FLOATING_COMPLEX BY REF & ) ! MTH$CDLOG ! ! Complex Natural Logarithm ! ! The Complex Natural Logarithm ! routine returns the complex natural logarithm of a complex number. ! EXTERNAL SUB mth$cdlog & ( & BASIC$D_FLOATING_COMPLEX BY REF, & BASIC$D_FLOATING_COMPLEX BY REF & ) ! MTH$CGLOG ! ! Complex Natural Logarithm ! ! The Complex Natural Logarithm ! routine returns the complex natural logarithm of a complex number. ! EXTERNAL SUB mth$cglog & ( & BASIC$G_FLOATING_COMPLEX BY REF, & BASIC$G_FLOATING_COMPLEX BY REF & ) ! MTH$CDSIN ! ! Sine of Complex Number ! ! The Sine of Complex Number ! routine returns the sine of a complex number (r,i). ! EXTERNAL SUB mth$cdsin & ( & BASIC$D_FLOATING_COMPLEX BY REF, & BASIC$D_FLOATING_COMPLEX BY REF & ) ! MTH$CGSIN ! ! Sine of Complex Number ! ! The Sine of Complex Number ! routine returns the sine of a complex number (r,i). ! EXTERNAL SUB mth$cgsin & ( & BASIC$G_FLOATING_COMPLEX BY REF, & BASIC$G_FLOATING_COMPLEX BY REF & ) ! MTH$CDSQRT ! ! Complex Square Root ! ! The Complex Square Root routine ! returns the complex square root of a complex number (r,i). ! EXTERNAL SUB mth$cdsqrt & ( & BASIC$D_FLOATING_COMPLEX BY REF, & BASIC$D_FLOATING_COMPLEX BY REF & ) ! MTH$CGSQRT ! ! Complex Square Root ! ! The Complex Square Root routine ! returns the complex square root of a complex number (r,i). ! EXTERNAL SUB mth$cgsqrt & ( & BASIC$G_FLOATING_COMPLEX BY REF, & BASIC$G_FLOATING_COMPLEX BY REF & ) ! MTH$EXP ! ! Exponential ! ! The Exponential ! routine returns the exponential of the input value. ! EXTERNAL SINGLE FUNCTION mth$exp & ( & SINGLE BY REF & ) ! MTH$DEXP ! ! Exponential ! ! The Exponential ! routine returns the exponential of the input value. ! EXTERNAL DOUBLE FUNCTION mth$dexp & ( & DOUBLE BY REF & ) ! MTH$GEXP ! ! Exponential ! ! The Exponential ! routine returns the exponential of the input value. ! EXTERNAL GFLOAT FUNCTION mth$gexp & ( & GFLOAT BY REF & ) ! MTH$HACOS ! ! Arc Cosine of Angle Expressed in Radians (H-floating Value) ! ! Given the cosine of an angle, the Arc Cosine of Angle Expressed in ! Radians (H-floating Value) routine returns that angle (in radians) in ! H-floating-point precision. ! EXTERNAL SUB mth$hacos & ( & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF & ) ! MTH$HACOSD ! ! Arc Cosine of Angle Expressed in Degrees (H-Floating Value) ! ! Given the cosine of an angle, the Arc Cosine of Angle Expressed in ! Degrees (H-Floating Value) ! routine returns that ! angle (in degrees) as an H-floating value. ! EXTERNAL SUB mth$hacosd & ( & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF & ) ! MTH$HASIN ! ! Arc Sine in Radians (H-floating Value) ! ! Given the sine of an angle, the Arc Sine in Radians (H-floating Value) ! routine returns that angle ! (in radians) as an H-floating value. ! EXTERNAL SUB mth$hasin & ( & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF & ) ! MTH$HASIND ! ! Arc Sine in Degrees (H-Floating Value) ! ! Given the sine of an angle, the Arc Sine in Degrees (H-Floating Value) ! routine returns that angle ! (in degrees) as an H-floating value. ! EXTERNAL SUB mth$hasind & ( & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF & ) ! MTH$HATAN ! ! Arc Tangent in Radians (H-floating Value) ! ! Given the tangent of an angle, the Arc Tangent in Radians (H-floating Value) ! routine returns that angle (in radians) ! as an H-floating value. ! EXTERNAL SUB mth$hatan & ( & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF & ) ! MTH$HATAN2 ! ! Arc Tangent in Radians (H-floating Value) with Two Arguments ! ! Given cosine and cosine, the Arc Tangent in ! Radians (H-floating Value) with Two Arguments routine returns the ! angle (in radians) as an H-floating value whose tangent is given by ! the quotient of cosine and cosine, ! cosine/cosine. ! EXTERNAL SUB mth$hatan2 & ( & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF & ) ! MTH$HATAND ! ! Arc Tangent in Degrees (H-floating Value) ! ! Given the tangent of an angle, the Arc Tangent in Degrees (H-floating Value) ! routine returns that angle (in degrees) ! as an H-floating point value. ! EXTERNAL SUB mth$hatand & ( & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF & ) ! MTH$HATANH ! ! Hyperbolic Arc Tangent (H-floating Value) ! ! Given the hyperbolic tangent of an angle, the Hyperbolic Arc ! Tangent (H-floating Value) ! routine returns ! the hyperbolic arc tangent (as an H-floating value) of that angle. ! EXTERNAL SUB mth$hatanh & ( & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF & ) ! MTH$HCOS ! ! Cosine of Angle Expressed in Radians (H-floating Value) ! ! The Cosine of Angle Expressed in Radians ! (H-floating Value) ! routine returns the cosine of a given angle (in radians) as an ! H-floating value. ! EXTERNAL SUB mth$hcos & ( & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF & ) ! MTH$HCOSD ! ! Cosine of Angle Expressed in Degrees (H-floating Value) ! ! The Cosine of Angle Expressed in Degrees ! (H-floating Value) ! routine returns the cosine of a given angle (in degrees) as an ! H-floating value. ! EXTERNAL SUB mth$hcosd & ( & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF & ) ! MTH$HCOSH ! ! Hyperbolic Cosine (H-floating Value) ! ! The Hyperbolic Cosine ! routine returns the hyperbolic cosine of ! the input value as an H-floating value. ! EXTERNAL SUB mth$hcosh & ( & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF & ) ! MTH$HEXP ! ! Exponential (H-floating Value) ! ! The Exponential ! routine returns the exponential of the input value as an H-floating ! value. ! EXTERNAL SUB mth$hexp & ( & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF & ) ! MTH$HLOG10 ! ! Common Logarithm (H-floating Value) ! ! The Common Logarithm (H-floating Value) ! routine returns the common (base 10) logarithm of ! the input argument as an H-floating value. ! EXTERNAL SUB mth$hlog10 & ( & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF & ) ! MTH$HLOG ! ! Natural Logarithm (H-floating Value) ! ! The Natural Logarithm (H-floating Value) ! routine returns the natural (base e) logarithm of ! the input argument as an H-floating value. ! EXTERNAL SUB mth$hlog & ( & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF & ) ! MTH$HLOG2 ! ! Base 2 Logarithm (H-floating Value) ! ! The Base 2 Logarithm (H-floating Value) ! routine returns the base 2 logarithm of the input value ! specified by floating-point-input-value as an H-floating ! value. ! EXTERNAL SUB mth$hlog2 & ( & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF & ) ! MTH$HSIN ! ! Sine of Angle Expressed in Radians (H-floating Value) ! ! The Sine of Angle Expressed in Radians (H-floating ! Value) ! routine returns the sine of a given angle (in radians) as an ! H-floating value. ! EXTERNAL SUB mth$hsin & ( & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF & ) ! MTH$HSIND ! ! Sine of Angle Expressed in Degrees (H-floating Value) ! ! The Sine of Angle Expressed in Degrees (H-floating ! Value) ! routine returns the sine of a given angle (in degrees) as an ! H-floating value. ! EXTERNAL SUB mth$hsind & ( & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF & ) ! MTH$HSINH ! ! Hyperbolic Sine (H-floating Value) ! ! The Hyperbolic Sine (H-floating Value) ! routine returns the hyperbolic sine of the input ! value specified by floating-point-input-value as an ! H-floating value. ! EXTERNAL SUB mth$hsinh & ( & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF & ) ! MTH$HSQRT ! ! Square Root (H-floating Value) ! ! The Square Root (H-floating Value) ! routine returns the square root of the input value ! floating-point-input-value as an H-floating value. ! EXTERNAL SUB mth$hsqrt & ( & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF & ) ! MTH$HTAN ! ! Tangent of Angle Expressed in Radians (H-floating Value) ! ! The Tangent of Angle Expressed in Radians ! (H-floating Value) ! routine returns the tangent of a given angle (in radians) as an ! H-floating value. ! EXTERNAL SUB mth$htan & ( & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF & ) ! MTH$HTAND ! ! Tangent of Angle Expressed in Degrees (H-floating Value) ! ! The Tangent of Angle Expressed in Degrees ! (H-floating Value) ! routine returns the tangent of a given angle (in degrees) as an ! H-floating value. ! EXTERNAL SUB mth$htand & ( & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF & ) ! MTH$HTANH ! ! Compute the Hyperbolic Tangent (H-floating Value) ! ! The Compute the Hyperbolic Tangent (H-floating ! Value) ! routine returns the hyperbolic tangent ! of the input value as an H-floating value. ! EXTERNAL SUB mth$htanh & ( & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF & ) ! MTH$HATAND2 ! ! Arc Tangent in Degrees (H-floating Value) with Two Arguments ! ! Given cosine and cosine, MTH$xHTAND2 returns ! the angle (in degrees) whose tangent ! is given by the quotient of cosine and cosine, ! cosine/cosine. ! EXTERNAL SUB mth$hatand2 & ( & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF & ) ! MTH$AIMAG ! ! Imaginary Part of a Complex Number ! ! The Imaginary Part of a Complex Number ! routine returns the imaginary part of a complex number. ! EXTERNAL SINGLE FUNCTION mth$aimag & ( & BASIC$F_FLOATING_COMPLEX BY REF & ) ! MTH$DIMAG ! ! Imaginary Part of a Complex Number ! ! The Imaginary Part of a Complex Number ! routine returns the imaginary part of a complex number. ! EXTERNAL DOUBLE FUNCTION mth$dimag & ( & BASIC$D_FLOATING_COMPLEX BY REF & ) ! MTH$GIMAG ! ! Imaginary Part of a Complex Number ! ! The Imaginary Part of a Complex Number ! routine returns the imaginary part of a complex number. ! EXTERNAL GFLOAT FUNCTION mth$gimag & ( & BASIC$G_FLOATING_COMPLEX BY REF & ) ! MTH$ALOG ! ! Natural Logarithm ! ! The Natural Logarithm ! routine returns the natural (base e) logarithm of ! the input argument. ! EXTERNAL SINGLE FUNCTION mth$alog & ( & SINGLE BY REF & ) ! MTH$DLOG ! ! Natural Logarithm ! ! The Natural Logarithm ! routine returns the natural (base e) logarithm of ! the input argument. ! EXTERNAL DOUBLE FUNCTION mth$dlog & ( & DOUBLE BY REF & ) ! MTH$GLOG ! ! Natural Logarithm ! ! The Natural Logarithm ! routine returns the natural (base e) logarithm of ! the input argument. ! EXTERNAL GFLOAT FUNCTION mth$glog & ( & GFLOAT BY REF & ) ! MTH$ALOG10 ! ! Common Logarithm ! ! The Common Logarithm ! routine returns the common (base 10) logarithm of ! the input argument. ! EXTERNAL SINGLE FUNCTION mth$alog10 & ( & SINGLE BY REF & ) ! MTH$DLOG10 ! ! Common Logarithm ! ! The Common Logarithm ! routine returns the common (base 10) logarithm of ! the input argument. ! EXTERNAL DOUBLE FUNCTION mth$dlog10 & ( & DOUBLE BY REF & ) ! MTH$GLOG10 ! ! Common Logarithm ! ! The Common Logarithm ! routine returns the common (base 10) logarithm of ! the input argument. ! EXTERNAL GFLOAT FUNCTION mth$glog10 & ( & GFLOAT BY REF & ) ! MTH$ALOG2 ! ! Base 2 Logarithm ! ! The Base 2 Logarithm ! routine returns the base 2 logarithm of the input value ! specified by floating-point-input-value. ! EXTERNAL SINGLE FUNCTION mth$alog2 & ( & SINGLE BY REF & ) ! MTH$DLOG2 ! ! Base 2 Logarithm ! ! The Base 2 Logarithm ! routine returns the base 2 logarithm of the input value ! specified by floating-point-input-value. ! EXTERNAL DOUBLE FUNCTION mth$dlog2 & ( & DOUBLE BY REF & ) ! MTH$GLOG2 ! ! Base 2 Logarithm ! ! The Base 2 Logarithm ! routine returns the base 2 logarithm of the input value ! specified by floating-point-input-value. ! EXTERNAL GFLOAT FUNCTION mth$glog2 & ( & GFLOAT BY REF & ) ! MTH$RANDOM ! ! Random-Number Generator, Uniformly Distributed ! ! The Random-Number Generator, Uniformly Distributed ! routine is a general random-number generator. ! EXTERNAL SINGLE FUNCTION mth$random & ( & LONG BY REF & ) ! MTH$REAL ! ! Real Part of a Complex Number ! ! The Real Part of a Complex Number ! routine returns the real part of a complex number. ! EXTERNAL SINGLE FUNCTION mth$real & ( & BASIC$F_FLOATING_COMPLEX BY REF & ) ! MTH$DREAL ! ! Real Part of a Complex Number ! ! The Real Part of a Complex Number ! routine returns the real part of a complex number. ! EXTERNAL DOUBLE FUNCTION mth$dreal & ( & BASIC$D_FLOATING_COMPLEX BY REF & ) ! MTH$GREAL ! ! Real Part of a Complex Number ! ! The Real Part of a Complex Number ! routine returns the real part of a complex number. ! EXTERNAL GFLOAT FUNCTION mth$greal & ( & BASIC$G_FLOATING_COMPLEX BY REF & ) ! MTH$SIN ! ! Sine of Angle Expressed in Radians ! ! The Sine of Angle Expressed in Radians ! routine returns the sine of a given angle (in radians). ! EXTERNAL SINGLE FUNCTION mth$sin & ( & SINGLE BY REF & ) ! MTH$DSIN ! ! Sine of Angle Expressed in Radians ! ! The Sine of Angle Expressed in Radians ! routine returns the sine of a given angle (in radians). ! EXTERNAL DOUBLE FUNCTION mth$dsin & ( & DOUBLE BY REF & ) ! MTH$GSIN ! ! Sine of Angle Expressed in Radians ! ! The Sine of Angle Expressed in Radians ! routine returns the sine of a given angle (in radians). ! EXTERNAL GFLOAT FUNCTION mth$gsin & ( & GFLOAT BY REF & ) ! MTH$SIND ! ! Sine of Angle Expressed in Degrees ! ! The Sine of Angle Expressed in Degrees ! routine returns the sine of a given angle (in degrees). ! EXTERNAL SINGLE FUNCTION mth$sind & ( & SINGLE BY REF & ) ! MTH$DSIND ! ! Sine of Angle Expressed in Degrees ! ! The Sine of Angle Expressed in Degrees ! routine returns the sine of a given angle (in degrees). ! EXTERNAL DOUBLE FUNCTION mth$dsind & ( & DOUBLE BY REF & ) ! MTH$GSIND ! ! Sine of Angle Expressed in Degrees ! ! The Sine of Angle Expressed in Degrees ! routine returns the sine of a given angle (in degrees). ! EXTERNAL GFLOAT FUNCTION mth$gsind & ( & GFLOAT BY REF & ) ! MTH$SINH ! ! Hyperbolic Sine ! ! The Hyperbolic Sine ! routine returns the hyperbolic sine of the input ! value specified by floating-point-input-value. ! EXTERNAL SINGLE FUNCTION mth$sinh & ( & SINGLE BY REF & ) ! MTH$DSINH ! ! Hyperbolic Sine ! ! The Hyperbolic Sine ! routine returns the hyperbolic sine of the input ! value specified by floating-point-input-value. ! EXTERNAL DOUBLE FUNCTION mth$dsinh & ( & DOUBLE BY REF & ) ! MTH$GSINH ! ! Hyperbolic Sine ! ! The Hyperbolic Sine ! routine returns the hyperbolic sine of the input ! value specified by floating-point-input-value. ! EXTERNAL GFLOAT FUNCTION mth$gsinh & ( & GFLOAT BY REF & ) ! MTH$SINCOS ! ! Sine and Cosine of Angle Expressed in Radians ! ! The Sine and Cosine of Angle Expressed in Radians ! routine returns the sine ! and the cosine of a given angle (in radians). ! EXTERNAL SUB mth$sincos & ( & SINGLE BY REF, & SINGLE BY REF, & SINGLE BY REF & ) ! MTH$DSINCOS ! ! Sine and Cosine of Angle Expressed in Radians ! ! The Sine and Cosine of Angle Expressed in Radians ! routine returns the sine ! and the cosine of a given angle (in radians). ! EXTERNAL SUB mth$dsincos & ( & DOUBLE BY REF, & DOUBLE BY REF, & DOUBLE BY REF & ) ! MTH$GSINCOS ! ! Sine and Cosine of Angle Expressed in Radians ! ! The Sine and Cosine of Angle Expressed in Radians ! routine returns the sine ! and the cosine of a given angle (in radians). ! EXTERNAL SUB mth$gsincos & ( & GFLOAT BY REF, & GFLOAT BY REF, & GFLOAT BY REF & ) ! MTH$HSINCOS ! ! Sine and Cosine of Angle Expressed in Radians ! ! The Sine and Cosine of Angle Expressed in Radians ! routine returns the sine ! and the cosine of a given angle (in radians). ! EXTERNAL SUB mth$hsincos & ( & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF & ) ! MTH$SINCOSD ! ! Sine and Cosine of Angle Expressed in Degrees ! ! The Sine and Cosine of Angle Expressed in Degrees ! routine returns the sine and cosine of a given angle (in degrees). ! EXTERNAL SUB mth$sincosd & ( & SINGLE BY REF, & SINGLE BY REF, & SINGLE BY REF & ) ! MTH$DSINCOSD ! ! Sine and Cosine of Angle Expressed in Degrees ! ! The Sine and Cosine of Angle Expressed in Degrees ! routine returns the sine and cosine of a given angle (in degrees). ! EXTERNAL SUB mth$dsincosd & ( & DOUBLE BY REF, & DOUBLE BY REF, & DOUBLE BY REF & ) ! MTH$GSINCOSD ! ! Sine and Cosine of Angle Expressed in Degrees ! ! The Sine and Cosine of Angle Expressed in Degrees ! routine returns the sine and cosine of a given angle (in degrees). ! EXTERNAL SUB mth$gsincosd & ( & GFLOAT BY REF, & GFLOAT BY REF, & GFLOAT BY REF & ) ! MTH$HSINCOSD ! ! Sine and Cosine of Angle Expressed in Degrees ! ! The Sine and Cosine of Angle Expressed in Degrees ! routine returns the sine and cosine of a given angle (in degrees). ! EXTERNAL SUB mth$hsincosd & ( & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF & ) ! MTH$SQRT ! ! Square Root ! ! The Square Root ! routine returns the square root of the input value ! floating-point-input-value. ! EXTERNAL SINGLE FUNCTION mth$sqrt & ( & SINGLE BY REF & ) ! MTH$DSQRT ! ! Square Root ! ! The Square Root ! routine returns the square root of the input value ! floating-point-input-value. ! EXTERNAL DOUBLE FUNCTION mth$dsqrt & ( & DOUBLE BY REF & ) ! MTH$GSQRT ! ! Square Root ! ! The Square Root ! routine returns the square root of the input value ! floating-point-input-value. ! EXTERNAL GFLOAT FUNCTION mth$gsqrt & ( & GFLOAT BY REF & ) ! MTH$TAN ! ! Tangent of Angle Expressed in Radians ! ! The Tangent of Angle Expressed in Radians ! routine returns the tangent of a given angle (in radians). ! EXTERNAL SINGLE FUNCTION mth$tan & ( & SINGLE BY REF & ) ! MTH$DTAN ! ! Tangent of Angle Expressed in Radians ! ! The Tangent of Angle Expressed in Radians ! routine returns the tangent of a given angle (in radians). ! EXTERNAL DOUBLE FUNCTION mth$dtan & ( & DOUBLE BY REF & ) ! MTH$GTAN ! ! Tangent of Angle Expressed in Radians ! ! The Tangent of Angle Expressed in Radians ! routine returns the tangent of a given angle (in radians). ! EXTERNAL GFLOAT FUNCTION mth$gtan & ( & GFLOAT BY REF & ) ! MTH$TAND ! ! Tangent of Angle Expressed in Degrees ! ! The Tangent of Angle Expressed in Degrees ! routine returns the tangent of a given angle (in degrees). ! EXTERNAL SINGLE FUNCTION mth$tand & ( & SINGLE BY REF & ) ! MTH$DTAND ! ! Tangent of Angle Expressed in Degrees ! ! The Tangent of Angle Expressed in Degrees ! routine returns the tangent of a given angle (in degrees). ! EXTERNAL DOUBLE FUNCTION mth$dtand & ( & DOUBLE BY REF & ) ! MTH$GTAND ! ! Tangent of Angle Expressed in Degrees ! ! The Tangent of Angle Expressed in Degrees ! routine returns the tangent of a given angle (in degrees). ! EXTERNAL GFLOAT FUNCTION mth$gtand & ( & GFLOAT BY REF & ) ! MTH$TANH ! ! Compute the Hyperbolic Tangent ! ! The Compute the Hyperbolic Tangent ! routine returns the hyperbolic tangent ! of the input value. ! EXTERNAL SINGLE FUNCTION mth$tanh & ( & SINGLE BY REF & ) ! MTH$DTANH ! ! Compute the Hyperbolic Tangent ! ! The Compute the Hyperbolic Tangent ! routine returns the hyperbolic tangent ! of the input value. ! EXTERNAL DOUBLE FUNCTION mth$dtanh & ( & DOUBLE BY REF & ) ! MTH$GTANH ! ! Compute the Hyperbolic Tangent ! ! The Compute the Hyperbolic Tangent ! routine returns the hyperbolic tangent ! of the input value. ! EXTERNAL GFLOAT FUNCTION mth$gtanh & ( & GFLOAT BY REF & ) ! MTH$UMAX ! ! Compute Unsigned Maximum ! ! The Compute Unsigned Maximum ! routine computes the unsigned longword maximum of n unsigned longword ! arguments, where n is greater than or equal to 1. ! EXTERNAL LONG FUNCTION mth$umax & ( & LONG BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$UMIN ! ! Compute Unsigned Minimum ! ! The Compute Unsigned Minimum ! routine computes the unsigned longword minimum of n unsigned longword ! arguments, where n is greater than or ! equal to 1. ! EXTERNAL LONG FUNCTION mth$umin & ( & LONG BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$ABS ! ! F_floating Absolute Value Routine ! EXTERNAL SINGLE FUNCTION mth$abs & ( & SINGLE BY REF & ) ! MTH$DABS ! ! D_floating Absolute Value Routine ! EXTERNAL DOUBLE FUNCTION mth$dabs & ( & DOUBLE BY REF & ) ! MTH$GABS ! ! G_floating Absolute Value Routine ! EXTERNAL GFLOAT FUNCTION mth$gabs & ( & GFLOAT BY REF & ) ! MTH$HABS ! ! H_floating Absolute Value Routine ! EXTERNAL SUB mth$habs & ( & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF & ) ! MTH$IIABS ! ! Word Absolute Value Routine ! EXTERNAL WORD FUNCTION mth$iiabs & ( & WORD BY REF & ) ! MTH$JIABS ! ! Longword Absolute Value Routine ! EXTERNAL LONG FUNCTION mth$jiabs & ( & LONG BY REF & ) ! MTH$IIAND ! ! Bitwise AND of Two Word Parameters Routine ! EXTERNAL WORD FUNCTION mth$iiand & ( & WORD BY REF, & WORD BY REF & ) ! MTH$JIAND ! ! Bitwise AND of Two Longword Parameters Routine ! EXTERNAL LONG FUNCTION mth$jiand & ( & LONG BY REF, & LONG BY REF & ) ! MTH$DBLE ! ! Convert F_floating to D_floating (Exact) Routine ! EXTERNAL DOUBLE FUNCTION mth$dble & ( & SINGLE BY REF & ) ! MTH$GDBLE ! ! Convert F_floating to G_floating (Exact) Routine ! EXTERNAL GFLOAT FUNCTION mth$gdble & ( & SINGLE BY REF & ) ! MTH$DIM ! ! Positive Difference of Two F_floating Parameters Routine ! EXTERNAL SINGLE FUNCTION mth$dim & ( & SINGLE BY REF, & SINGLE BY REF & ) ! MTH$DDIM ! ! Positive Difference of Two D_floating Parameters Routine ! EXTERNAL DOUBLE FUNCTION mth$ddim & ( & DOUBLE BY REF, & DOUBLE BY REF & ) ! MTH$GDIM ! ! Positive Difference of Two D_floating Parameters Routine ! EXTERNAL GFLOAT FUNCTION mth$gdim & ( & GFLOAT BY REF, & GFLOAT BY REF & ) ! MTH$HDIM ! ! Positive Difference of Two D_floating Parameters Routine ! EXTERNAL SUB mth$hdim & ( & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF & ) ! MTH$IIDIM ! ! Positive Difference of Two Word Parameters Routine ! EXTERNAL WORD FUNCTION mth$iidim & ( & WORD BY REF, & WORD BY REF & ) ! MTH$JIDIM ! ! Positive Difference of Two Longword Parameters Routine ! EXTERNAL LONG FUNCTION mth$jidim & ( & LONG BY REF, & LONG BY REF & ) ! MTH$IIEOR ! ! Bitwise Exclusive OR of Two Word Parameters Routine ! EXTERNAL WORD FUNCTION mth$iieor & ( & WORD BY REF, & WORD BY REF & ) ! MTH$JIEOR ! ! Bitwise Exclusive OR of Two Longword Parameters Routine ! EXTERNAL LONG FUNCTION mth$jieor & ( & LONG BY REF, & LONG BY REF & ) ! MTH$IIFIX ! ! Convert F_floating to Word (Truncated) Routine ! EXTERNAL WORD FUNCTION mth$iifix & ( & SINGLE BY REF & ) ! MTH$JIFIX ! ! Convert F_floating to Longword (Truncated) Routine ! EXTERNAL LONG FUNCTION mth$jifix & ( & SINGLE BY REF & ) ! MTH$FLOATI ! ! Convert Word to F_floating (Exact) Routine ! EXTERNAL SINGLE FUNCTION mth$floati & ( & WORD BY REF & ) ! MTH$DFLOTI ! ! Convert Word to D_floating (Exact) Routine ! EXTERNAL DOUBLE FUNCTION mth$dfloti & ( & WORD BY REF & ) ! MTH$GFLOTI ! ! Convert Word to G_floating (Exact) Routine ! EXTERNAL GFLOAT FUNCTION mth$gfloti & ( & WORD BY REF & ) ! MTH$FLOATJ ! ! Convert Longword to F_floating (Exact) Routine ! EXTERNAL SINGLE FUNCTION mth$floatj & ( & LONG BY REF & ) ! MTH$DFLOTJ ! ! Convert Longword to D_floating (Exact) Routine ! EXTERNAL DOUBLE FUNCTION mth$dflotj & ( & LONG BY REF & ) ! MTH$GFLOTJ ! ! Convert Longword to G_floating (Exact) Routine ! EXTERNAL GFLOAT FUNCTION mth$gflotj & ( & LONG BY REF & ) ! MTH$FLOOR ! ! Convert F_floating to Greatest F_floating Integer Routine ! EXTERNAL SINGLE FUNCTION mth$floor & ( & SINGLE BY REF & ) ! MTH$DFLOOR ! ! Convert D_floating to Greatest D_floating Integer Routine ! EXTERNAL DOUBLE FUNCTION mth$dfloor & ( & DOUBLE BY REF & ) ! MTH$GFLOOR ! ! Convert G_floating to Greatest G_floating Integer Routine ! EXTERNAL GFLOAT FUNCTION mth$gfloor & ( & GFLOAT BY REF & ) ! MTH$HFLOOR ! ! Convert H_floating to Greatest H_floating Integer Routine ! EXTERNAL SUB mth$hfloor & ( & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF & ) ! MTH$AINT ! ! Convert F_floating to Truncated F_floating Routine ! EXTERNAL SINGLE FUNCTION mth$aint & ( & SINGLE BY REF & ) ! MTH$DINT ! ! Convert D_floating to Truncated D_floating Routine ! EXTERNAL DOUBLE FUNCTION mth$dint & ( & DOUBLE BY REF & ) ! MTH$IIDINT ! ! Convert D_floating to Word (Truncated) Routine ! EXTERNAL WORD FUNCTION mth$iidint & ( & DOUBLE BY REF & ) ! MTH$JIDINT ! ! Convert D_floating to Longword (Truncated) Routine ! EXTERNAL LONG FUNCTION mth$jidint & ( & DOUBLE BY REF & ) ! MTH$GINT ! ! Convert G_floating to G_floating (Truncated) Routine ! EXTERNAL GFLOAT FUNCTION mth$gint & ( & GFLOAT BY REF & ) ! MTH$IIGINT ! ! Convert G_floating to Word (Truncated) Routine ! EXTERNAL WORD FUNCTION mth$iigint & ( & GFLOAT BY REF & ) ! MTH$JIGINT ! ! Convert G_floating to Longword (Truncated) Routine ! EXTERNAL LONG FUNCTION mth$jigint & ( & GFLOAT BY REF & ) ! MTH$HINT ! ! Convert H_floating to H_floating (Truncated) Routine ! EXTERNAL SUB mth$hint & ( & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF & ) ! MTH$IIHINT ! ! Convert H_floating to Truncated Word Routine ! EXTERNAL WORD FUNCTION mth$iihint & ( & BASIC$HFLOAT_AXP BY REF & ) ! MTH$JIHINT ! ! Convert H_floating to Truncated Longword Routine ! EXTERNAL LONG FUNCTION mth$jihint & ( & BASIC$HFLOAT_AXP BY REF & ) ! MTH$IINT ! ! Convert F_floating to Word (Truncated) Routine ! EXTERNAL WORD FUNCTION mth$iint & ( & SINGLE BY REF & ) ! MTH$JINT ! ! Convert F_floating to Longword (Truncated) Routine ! EXTERNAL LONG FUNCTION mth$jint & ( & SINGLE BY REF & ) ! MTH$IIOR ! ! Bitwise Inclusive OR of Two Word Parameters Routine ! EXTERNAL WORD FUNCTION mth$iior & ( & WORD BY REF, & WORD BY REF & ) ! MTH$JIOR ! ! Bitwise Inclusive OR of Two Longword Parameters Routine ! EXTERNAL LONG FUNCTION mth$jior & ( & LONG BY REF, & LONG BY REF & ) ! MTH$AIMAX0 ! ! F_floating Maximum of N WordParameters Routine ! EXTERNAL SINGLE FUNCTION mth$aimax0 & ( & WORD BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$AJMAX0 ! ! F_floating Maximum of N Longword Parameters Routine ! EXTERNAL SINGLE FUNCTION mth$ajmax0 & ( & LONG BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$IMAX0 ! ! Word Maximum of N Word Parameters Routine ! EXTERNAL WORD FUNCTION mth$imax0 & ( & WORD BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$JMAX0 ! ! Longword Maximum of N Longword Parameters Routine ! EXTERNAL LONG FUNCTION mth$jmax0 & ( & LONG BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$AMAX1 ! ! F_floating Maximum of N F_floating Parameters Routine ! EXTERNAL SINGLE FUNCTION mth$amax1 & ( & SINGLE BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$DMAX1 ! ! D_floating Maximum of N D_floating Parameters Routine ! EXTERNAL DOUBLE FUNCTION mth$dmax1 & ( & DOUBLE BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$GMAX1 ! ! G_floating Maximum of N G_floating Parameters Routine ! EXTERNAL GFLOAT FUNCTION mth$gmax1 & ( & GFLOAT BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$HMAX1 ! ! H_floating Maximum of N H_floating Parameters Routine ! EXTERNAL SUB mth$hmax1 & ( & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$IMAX1 ! ! Word Maximum of N F_floating Parameters Routine ! EXTERNAL WORD FUNCTION mth$imax1 & ( & SINGLE BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$JMAX1 ! ! Longword Maximum of N F_floating Parameters Routine ! EXTERNAL LONG FUNCTION mth$jmax1 & ( & SINGLE BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$AIMIN0 ! ! F_floating Minimum of N Word Parameters Routine ! EXTERNAL SINGLE FUNCTION mth$aimin0 & ( & WORD BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$AJMIN0 ! ! F_floating Minimum of N Longword Parameters Routine ! EXTERNAL SINGLE FUNCTION mth$ajmin0 & ( & LONG BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$IMIN0 ! ! Word Minimum of N Word Parameters Routine ! EXTERNAL WORD FUNCTION mth$imin0 & ( & WORD BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$JMIN0 ! ! Longword Minimum of N Longword Parameters Routine ! EXTERNAL LONG FUNCTION mth$jmin0 & ( & LONG BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$AMIN1 ! ! F_floating Minimum of N F_floating Parameters Routine ! EXTERNAL SINGLE FUNCTION mth$amin1 & ( & SINGLE BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$DMIN1 ! ! D_floating Minimum of N D_floating Parameters Routine ! EXTERNAL DOUBLE FUNCTION mth$dmin1 & ( & DOUBLE BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$GMIN1 ! ! G_floating Minimum of N G_floating Parameters Routine ! EXTERNAL GFLOAT FUNCTION mth$gmin1 & ( & GFLOAT BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$HMIN1 ! ! H_floating Minimum of N H_floating Parameters Routine ! EXTERNAL SUB mth$hmin1 & ( & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$IMIN1 ! ! Word Minimum of N F_floating Parameters Routine ! EXTERNAL WORD FUNCTION mth$imin1 & ( & SINGLE BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$JMIN1 ! ! Longword Minimum of N F_floating Parameters Routine ! EXTERNAL LONG FUNCTION mth$jmin1 & ( & SINGLE BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$AMOD ! ! Remainder of Two F_floating Parameters Routine ! EXTERNAL SINGLE FUNCTION mth$amod & ( & SINGLE BY REF, & SINGLE BY REF & ) ! MTH$DMOD ! ! Remainder of Two D_floating Parameters Routine ! EXTERNAL DOUBLE FUNCTION mth$dmod & ( & DOUBLE BY REF, & DOUBLE BY REF & ) ! MTH$GMOD ! ! Remainder of Two G_floating Parameters Routine ! EXTERNAL GFLOAT FUNCTION mth$gmod & ( & GFLOAT BY REF, & GFLOAT BY REF & ) ! MTH$HMOD ! ! Remainder of Two H_floating Parameters Routine ! EXTERNAL SUB mth$hmod & ( & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF & ) ! MTH$IMOD ! ! Remainder of Two Word Parameters Routine ! EXTERNAL WORD FUNCTION mth$imod & ( & WORD BY REF, & WORD BY REF & ) ! MTH$JMOD ! ! Remainder of Two Longword Parameters Routine ! EXTERNAL LONG FUNCTION mth$jmod & ( & LONG BY REF, & LONG BY REF & ) ! MTH$ANINT ! ! Convert F_floating to Nearest F_floating Integer Routine ! EXTERNAL SINGLE FUNCTION mth$anint & ( & SINGLE BY REF & ) ! MTH$DNINT ! ! Convert D_floating to Nearest D_floating Integer Routine ! EXTERNAL DOUBLE FUNCTION mth$dnint & ( & DOUBLE BY REF & ) ! MTH$IIDNNT ! ! Convert D_floating to Word Integer Routine ! EXTERNAL WORD FUNCTION mth$iidnnt & ( & DOUBLE BY REF & ) ! MTH$JIDNNT ! ! Convert D_floating to Nearest Longword Integer Routine ! EXTERNAL LONG FUNCTION mth$jidnnt & ( & DOUBLE BY REF & ) ! MTH$GNINT ! ! Convert G_floating to Nearest G_floating Integer Routine ! EXTERNAL GFLOAT FUNCTION mth$gnint & ( & GFLOAT BY REF & ) ! MTH$IIGNNT ! ! Convert T_floating to Nearest G_floating Integer Routine ! EXTERNAL WORD FUNCTION mth$iignnt & ( & GFLOAT BY REF & ) ! MTH$JIGNNT ! ! Convert G_floating to Nearest Longword Integer Routine ! EXTERNAL LONG FUNCTION mth$jignnt & ( & GFLOAT BY REF & ) ! MTH$HNINT ! ! Convert H_floating to Nearest H_floating Integer Routine ! EXTERNAL SUB mth$hnint & ( & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF & ) ! MTH$IIHNNT ! ! Convert H_floating to Nearest Word Integer Routine ! EXTERNAL WORD FUNCTION mth$iihnnt & ( & BASIC$HFLOAT_AXP BY REF & ) ! MTH$JIHNNT ! ! Convert H_floating to Nearest Longword Integer Routine ! EXTERNAL LONG FUNCTION mth$jihnnt & ( & BASIC$HFLOAT_AXP BY REF & ) ! MTH$ININT ! ! Convert F_floating to Nearest Word Integer Routine ! EXTERNAL WORD FUNCTION mth$inint & ( & SINGLE BY REF & ) ! MTH$JNINT ! ! Convert F_floating to Nearest Longword Integer Routine ! EXTERNAL LONG FUNCTION mth$jnint & ( & SINGLE BY REF & ) ! MTH$INOT ! ! Bitwise Complement of Word Parameter Routine ! EXTERNAL WORD FUNCTION mth$inot & ( & WORD BY REF & ) ! MTH$JNOT ! ! Bitwise Complement of Longword Parameter Routine ! EXTERNAL LONG FUNCTION mth$jnot & ( & LONG BY REF & ) ! MTH$DPROD ! ! D_floating Product of Two F_floating Parameters Routine ! EXTERNAL DOUBLE FUNCTION mth$dprod & ( & SINGLE BY REF, & SINGLE BY REF & ) ! MTH$GPROD ! ! G_floating Product of Two F_floating Parameters Routine ! EXTERNAL GFLOAT FUNCTION mth$gprod & ( & SINGLE BY REF, & SINGLE BY REF & ) ! MTH$SGN ! ! F_floating Sign Function ! EXTERNAL LONG FUNCTION mth$sgn & ( & ANY BY REF & ) ! MTH$IISHFT ! ! Bitwise Shift of Word Routine ! EXTERNAL WORD FUNCTION mth$iishft & ( & WORD BY REF, & WORD BY REF & ) ! MTH$JISHFT ! ! Bitwise Shift of Longword Routine ! EXTERNAL LONG FUNCTION mth$jishft & ( & LONG BY REF, & LONG BY REF & ) ! MTH$SIGN ! ! F_floating Transfer of Sign of Y to Sign of X Routine ! EXTERNAL SINGLE FUNCTION mth$sign & ( & SINGLE BY REF, & SINGLE BY REF & ) ! MTH$DSIGN ! ! D_floating Transfer of Sign of Y to Sign of X Routine ! EXTERNAL DOUBLE FUNCTION mth$dsign & ( & DOUBLE BY REF, & DOUBLE BY REF & ) ! MTH$GSIGN ! ! G_floating Transfer of Sign of X to Sign of X Routine ! EXTERNAL GFLOAT FUNCTION mth$gsign & ( & GFLOAT BY REF, & GFLOAT BY REF & ) ! MTH$HSIGN ! ! H_floating Transfer of Sign of Y to Sign of X Routine ! EXTERNAL SUB mth$hsign & ( & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF & ) ! MTH$IISIGN ! ! Word Transfer of Sign of Y to Sign of X Routine ! EXTERNAL WORD FUNCTION mth$iisign & ( & WORD BY REF, & WORD BY REF & ) ! MTH$JISIGN ! ! Longword Transfer of Sign of Y to Sign of X Routine ! EXTERNAL LONG FUNCTION mth$jisign & ( & LONG BY REF, & LONG BY REF & ) ! MTH$SNGL ! ! Convert D_floating to F_floating (Rounded) Routine ! EXTERNAL SINGLE FUNCTION mth$sngl & ( & DOUBLE BY REF & ) ! MTH$SNGLG ! ! Convert G_floating to F_floating (Rounded) Routine ! EXTERNAL SINGLE FUNCTION mth$snglg & ( & GFLOAT BY REF & )