! ******************************************************************************************************************************** ! Created: 30-AUG-2007 11:29:47 by OpenVMS SDL IA64-2 ! Source: 30-AUG-2007 11:29:47 GEM$:[GEMGROUP.SHEILAM.FORSYSDEF.IVMS-V83]MTH$ROUTINES.SDI;1 ! ******************************************************************************************************************************** !*** MODULE mth$routines *** !DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! *************************************************************************** ! * ! 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). ! REAL*4 mth$acos EXTERNAL mth$acos ! 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). ! REAL*8 mth$dacos EXTERNAL mth$dacos ! 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). ! REAL*8 mth$gacos EXTERNAL mth$gacos ! 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). ! REAL*4 mth$acosd EXTERNAL mth$acosd ! 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). ! REAL*8 mth$dacosd EXTERNAL mth$dacosd ! 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). ! REAL*8 mth$gacosd EXTERNAL mth$gacosd ! MTH$ASIN ! ! Arc Sine in Radians ! ! Given the sine of an angle, the Arc Sine in Radians ! routine returns that angle ! (in radians). ! REAL*4 mth$asin EXTERNAL mth$asin ! MTH$DASIN ! ! Arc Sine in Radians ! ! Given the sine of an angle, the Arc Sine in Radians ! routine returns that angle ! (in radians). ! REAL*8 mth$dasin EXTERNAL mth$dasin ! MTH$GASIN ! ! Arc Sine in Radians ! ! Given the sine of an angle, the Arc Sine in Radians ! routine returns that angle ! (in radians). ! REAL*8 mth$gasin EXTERNAL mth$gasin ! MTH$ASIND ! ! Arc Sine in Degrees ! ! Given the sine of an angle, the Arc Sine in Degrees ! routine returns that angle ! (in degrees). ! REAL*4 mth$asind EXTERNAL mth$asind ! MTH$DASIND ! ! Arc Sine in Degrees ! ! Given the sine of an angle, the Arc Sine in Degrees ! routine returns that angle ! (in degrees). ! REAL*8 mth$dasind EXTERNAL mth$dasind ! MTH$GASIND ! ! Arc Sine in Degrees ! ! Given the sine of an angle, the Arc Sine in Degrees ! routine returns that angle ! (in degrees). ! REAL*8 mth$gasind EXTERNAL mth$gasind ! MTH$ATAN ! ! Arc Tangent in Radians ! ! Given the tangent of an angle, the Arc Tangent in Radians ! routine returns that angle (in radians). ! REAL*4 mth$atan EXTERNAL mth$atan ! MTH$DATAN ! ! Arc Tangent in Radians ! ! Given the tangent of an angle, the Arc Tangent in Radians ! routine returns that angle (in radians). ! REAL*8 mth$datan EXTERNAL mth$datan ! MTH$GATAN ! ! Arc Tangent in Radians ! ! Given the tangent of an angle, the Arc Tangent in Radians ! routine returns that angle (in radians). ! REAL*8 mth$gatan EXTERNAL mth$gatan ! 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. ! REAL*4 mth$atan2 EXTERNAL mth$atan2 ! 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. ! REAL*8 mth$datan2 EXTERNAL mth$datan2 ! 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. ! REAL*8 mth$gatan2 EXTERNAL mth$gatan2 ! MTH$ATAND ! ! Arc Tangent in Degrees ! ! Given the tangent of an angle, the Arc Tangent in Degrees ! routine returns that angle (in degrees). ! REAL*4 mth$atand EXTERNAL mth$atand ! MTH$DATAND ! ! Arc Tangent in Degrees ! ! Given the tangent of an angle, the Arc Tangent in Degrees ! routine returns that angle (in degrees). ! REAL*8 mth$datand EXTERNAL mth$datand ! MTH$GATAND ! ! Arc Tangent in Degrees ! ! Given the tangent of an angle, the Arc Tangent in Degrees ! routine returns that angle (in degrees). ! REAL*8 mth$gatand EXTERNAL mth$gatand ! 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. ! REAL*4 mth$atanh EXTERNAL mth$atanh ! 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. ! REAL*8 mth$datanh EXTERNAL mth$datanh ! 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. ! REAL*8 mth$gatanh EXTERNAL mth$gatanh ! 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. ! REAL*4 mth$atand2 EXTERNAL mth$atand2 ! 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. ! REAL*8 mth$datand2 EXTERNAL mth$datand2 ! 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. ! REAL*8 mth$gatand2 EXTERNAL mth$gatand2 ! MTH$CABS ! ! Complex Absolute Value ! ! The Complex Absolute Value routine ! returns the absolute value of a complex number (r,i). ! REAL*4 mth$cabs EXTERNAL mth$cabs ! MTH$CDABS ! ! Complex Absolute Value ! ! The Complex Absolute Value routine ! returns the absolute value of a complex number (r,i). ! REAL*8 mth$cdabs EXTERNAL mth$cdabs ! MTH$CGABS ! ! Complex Absolute Value ! ! The Complex Absolute Value routine ! returns the absolute value of a complex number (r,i). ! REAL*8 mth$cgabs EXTERNAL mth$cgabs ! 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. ! COMPLEX mth$ccos EXTERNAL mth$ccos ! 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. ! COMPLEX mth$cexp EXTERNAL mth$cexp ! 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. ! COMPLEX mth$clog EXTERNAL mth$clog ! 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. ! COMPLEX mth$cmplx EXTERNAL mth$cmplx ! 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. ! ! Subroutine mth$dcmplx ! 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. ! ! Subroutine mth$gcmplx ! 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. ! COMPLEX mth$conjg EXTERNAL mth$conjg ! 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). ! ! Subroutine mth$dconjg ! 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). ! ! Subroutine mth$gconjg ! 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). ! REAL*4 mth$cos EXTERNAL mth$cos ! 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). ! REAL*8 mth$dcos EXTERNAL mth$dcos ! 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). ! REAL*8 mth$gcos EXTERNAL mth$gcos ! 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). ! REAL*4 mth$cosd EXTERNAL mth$cosd ! 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). ! REAL*8 mth$dcosd EXTERNAL mth$dcosd ! 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). ! REAL*8 mth$gcosd EXTERNAL mth$gcosd ! MTH$COSH ! ! Hyperbolic Cosine ! ! The Hyperbolic Cosine ! routine returns the hyperbolic cosine of ! the input value. ! REAL*4 mth$cosh EXTERNAL mth$cosh ! MTH$DCOSH ! ! Hyperbolic Cosine ! ! The Hyperbolic Cosine ! routine returns the hyperbolic cosine of ! the input value. ! REAL*8 mth$dcosh EXTERNAL mth$dcosh ! MTH$GCOSH ! ! Hyperbolic Cosine ! ! The Hyperbolic Cosine ! routine returns the hyperbolic cosine of ! the input value. ! REAL*8 mth$gcosh EXTERNAL mth$gcosh ! 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. ! COMPLEX mth$csin EXTERNAL mth$csin ! 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). ! COMPLEX mth$csqrt EXTERNAL mth$csqrt ! 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. ! REAL*8 mth$cvt_d_g EXTERNAL mth$cvt_d_g ! 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. ! REAL*8 mth$cvt_g_d EXTERNAL mth$cvt_g_d ! 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. ! ! Subroutine mth$cvt_da_ga ! 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. ! ! Subroutine mth$cvt_ga_da ! MTH$CDCOS ! ! Cosine of a Complex Number ! ! The Cosine of a Complex Number ! routine returns the cosine of a complex number. ! ! Subroutine mth$cdcos ! MTH$CGCOS ! ! Cosine of a Complex Number ! ! The Cosine of a Complex Number ! routine returns the cosine of a complex number. ! ! Subroutine mth$cgcos ! MTH$CDEXP ! ! Complex Exponential ! ! The Complex Exponential ! routine returns the complex exponential of a ! complex number. ! ! Subroutine mth$cdexp ! MTH$CGEXP ! ! Complex Exponential ! ! The Complex Exponential ! routine returns the complex exponential of a ! complex number. ! ! Subroutine mth$cgexp ! MTH$CDLOG ! ! Complex Natural Logarithm ! ! The Complex Natural Logarithm ! routine returns the complex natural logarithm of a complex number. ! ! Subroutine mth$cdlog ! MTH$CGLOG ! ! Complex Natural Logarithm ! ! The Complex Natural Logarithm ! routine returns the complex natural logarithm of a complex number. ! ! Subroutine mth$cglog ! MTH$CDSIN ! ! Sine of Complex Number ! ! The Sine of Complex Number ! routine returns the sine of a complex number (r,i). ! ! Subroutine mth$cdsin ! MTH$CGSIN ! ! Sine of Complex Number ! ! The Sine of Complex Number ! routine returns the sine of a complex number (r,i). ! ! Subroutine mth$cgsin ! MTH$CDSQRT ! ! Complex Square Root ! ! The Complex Square Root routine ! returns the complex square root of a complex number (r,i). ! ! Subroutine mth$cdsqrt ! MTH$CGSQRT ! ! Complex Square Root ! ! The Complex Square Root routine ! returns the complex square root of a complex number (r,i). ! ! Subroutine mth$cgsqrt ! MTH$EXP ! ! Exponential ! ! The Exponential ! routine returns the exponential of the input value. ! REAL*4 mth$exp EXTERNAL mth$exp ! MTH$DEXP ! ! Exponential ! ! The Exponential ! routine returns the exponential of the input value. ! REAL*8 mth$dexp EXTERNAL mth$dexp ! MTH$GEXP ! ! Exponential ! ! The Exponential ! routine returns the exponential of the input value. ! REAL*8 mth$gexp EXTERNAL mth$gexp ! 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. ! ! Subroutine mth$hacos ! 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. ! ! Subroutine mth$hacosd ! 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. ! ! Subroutine mth$hasin ! 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. ! ! Subroutine mth$hasind ! 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. ! ! Subroutine mth$hatan ! 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. ! ! Subroutine mth$hatan2 ! 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. ! ! Subroutine mth$hatand ! 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. ! ! Subroutine mth$hatanh ! 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. ! ! Subroutine mth$hcos ! 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. ! ! Subroutine mth$hcosd ! MTH$HCOSH ! ! Hyperbolic Cosine (H-floating Value) ! ! The Hyperbolic Cosine ! routine returns the hyperbolic cosine of ! the input value as an H-floating value. ! ! Subroutine mth$hcosh ! MTH$HEXP ! ! Exponential (H-floating Value) ! ! The Exponential ! routine returns the exponential of the input value as an H-floating ! value. ! ! Subroutine mth$hexp ! 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. ! ! Subroutine mth$hlog10 ! 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. ! ! Subroutine mth$hlog ! 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. ! ! Subroutine mth$hlog2 ! 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. ! ! Subroutine mth$hsin ! 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. ! ! Subroutine mth$hsind ! 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. ! ! Subroutine mth$hsinh ! 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. ! ! Subroutine mth$hsqrt ! 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. ! ! Subroutine mth$htan ! 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. ! ! Subroutine mth$htand ! 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. ! ! Subroutine mth$htanh ! 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. ! ! Subroutine mth$hatand2 ! MTH$AIMAG ! ! Imaginary Part of a Complex Number ! ! The Imaginary Part of a Complex Number ! routine returns the imaginary part of a complex number. ! REAL*4 mth$aimag EXTERNAL mth$aimag ! MTH$DIMAG ! ! Imaginary Part of a Complex Number ! ! The Imaginary Part of a Complex Number ! routine returns the imaginary part of a complex number. ! REAL*8 mth$dimag EXTERNAL mth$dimag ! MTH$GIMAG ! ! Imaginary Part of a Complex Number ! ! The Imaginary Part of a Complex Number ! routine returns the imaginary part of a complex number. ! REAL*8 mth$gimag EXTERNAL mth$gimag ! MTH$ALOG ! ! Natural Logarithm ! ! The Natural Logarithm ! routine returns the natural (base e) logarithm of ! the input argument. ! REAL*4 mth$alog EXTERNAL mth$alog ! MTH$DLOG ! ! Natural Logarithm ! ! The Natural Logarithm ! routine returns the natural (base e) logarithm of ! the input argument. ! REAL*8 mth$dlog EXTERNAL mth$dlog ! MTH$GLOG ! ! Natural Logarithm ! ! The Natural Logarithm ! routine returns the natural (base e) logarithm of ! the input argument. ! REAL*8 mth$glog EXTERNAL mth$glog ! MTH$ALOG10 ! ! Common Logarithm ! ! The Common Logarithm ! routine returns the common (base 10) logarithm of ! the input argument. ! REAL*4 mth$alog10 EXTERNAL mth$alog10 ! MTH$DLOG10 ! ! Common Logarithm ! ! The Common Logarithm ! routine returns the common (base 10) logarithm of ! the input argument. ! REAL*8 mth$dlog10 EXTERNAL mth$dlog10 ! MTH$GLOG10 ! ! Common Logarithm ! ! The Common Logarithm ! routine returns the common (base 10) logarithm of ! the input argument. ! REAL*8 mth$glog10 EXTERNAL mth$glog10 ! 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. ! REAL*4 mth$alog2 EXTERNAL mth$alog2 ! 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. ! REAL*8 mth$dlog2 EXTERNAL mth$dlog2 ! 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. ! REAL*8 mth$glog2 EXTERNAL mth$glog2 ! MTH$RANDOM ! ! Random-Number Generator, Uniformly Distributed ! ! The Random-Number Generator, Uniformly Distributed ! routine is a general random-number generator. ! REAL*4 mth$random EXTERNAL mth$random ! MTH$REAL ! ! Real Part of a Complex Number ! ! The Real Part of a Complex Number ! routine returns the real part of a complex number. ! REAL*4 mth$real EXTERNAL mth$real ! MTH$DREAL ! ! Real Part of a Complex Number ! ! The Real Part of a Complex Number ! routine returns the real part of a complex number. ! REAL*8 mth$dreal EXTERNAL mth$dreal ! MTH$GREAL ! ! Real Part of a Complex Number ! ! The Real Part of a Complex Number ! routine returns the real part of a complex number. ! REAL*8 mth$greal EXTERNAL mth$greal ! 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). ! REAL*4 mth$sin EXTERNAL mth$sin ! 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). ! REAL*8 mth$dsin EXTERNAL mth$dsin ! 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). ! REAL*8 mth$gsin EXTERNAL mth$gsin ! 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). ! REAL*4 mth$sind EXTERNAL mth$sind ! 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). ! REAL*8 mth$dsind EXTERNAL mth$dsind ! 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). ! REAL*8 mth$gsind EXTERNAL mth$gsind ! MTH$SINH ! ! Hyperbolic Sine ! ! The Hyperbolic Sine ! routine returns the hyperbolic sine of the input ! value specified by floating-point-input-value. ! REAL*4 mth$sinh EXTERNAL mth$sinh ! MTH$DSINH ! ! Hyperbolic Sine ! ! The Hyperbolic Sine ! routine returns the hyperbolic sine of the input ! value specified by floating-point-input-value. ! REAL*8 mth$dsinh EXTERNAL mth$dsinh ! MTH$GSINH ! ! Hyperbolic Sine ! ! The Hyperbolic Sine ! routine returns the hyperbolic sine of the input ! value specified by floating-point-input-value. ! REAL*8 mth$gsinh EXTERNAL mth$gsinh ! 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). ! ! Subroutine mth$sincos ! 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). ! ! Subroutine mth$dsincos ! 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). ! ! Subroutine mth$gsincos ! 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). ! ! Subroutine mth$hsincos ! 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). ! ! Subroutine mth$sincosd ! 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). ! ! Subroutine mth$dsincosd ! 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). ! ! Subroutine mth$gsincosd ! 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). ! ! Subroutine mth$hsincosd ! MTH$SQRT ! ! Square Root ! ! The Square Root ! routine returns the square root of the input value ! floating-point-input-value. ! REAL*4 mth$sqrt EXTERNAL mth$sqrt ! MTH$DSQRT ! ! Square Root ! ! The Square Root ! routine returns the square root of the input value ! floating-point-input-value. ! REAL*8 mth$dsqrt EXTERNAL mth$dsqrt ! MTH$GSQRT ! ! Square Root ! ! The Square Root ! routine returns the square root of the input value ! floating-point-input-value. ! REAL*8 mth$gsqrt EXTERNAL mth$gsqrt ! 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). ! REAL*4 mth$tan EXTERNAL mth$tan ! 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). ! REAL*8 mth$dtan EXTERNAL mth$dtan ! 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). ! REAL*8 mth$gtan EXTERNAL mth$gtan ! 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). ! REAL*4 mth$tand EXTERNAL mth$tand ! 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). ! REAL*8 mth$dtand EXTERNAL mth$dtand ! 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). ! REAL*8 mth$gtand EXTERNAL mth$gtand ! MTH$TANH ! ! Compute the Hyperbolic Tangent ! ! The Compute the Hyperbolic Tangent ! routine returns the hyperbolic tangent ! of the input value. ! REAL*4 mth$tanh EXTERNAL mth$tanh ! MTH$DTANH ! ! Compute the Hyperbolic Tangent ! ! The Compute the Hyperbolic Tangent ! routine returns the hyperbolic tangent ! of the input value. ! REAL*8 mth$dtanh EXTERNAL mth$dtanh ! MTH$GTANH ! ! Compute the Hyperbolic Tangent ! ! The Compute the Hyperbolic Tangent ! routine returns the hyperbolic tangent ! of the input value. ! REAL*8 mth$gtanh EXTERNAL mth$gtanh ! 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. ! INTEGER*4 mth$umax EXTERNAL mth$umax ! 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. ! INTEGER*4 mth$umin EXTERNAL mth$umin ! MTH$ABS ! ! F_floating Absolute Value Routine ! REAL*4 mth$abs EXTERNAL mth$abs ! MTH$DABS ! ! D_floating Absolute Value Routine ! REAL*8 mth$dabs EXTERNAL mth$dabs ! MTH$GABS ! ! G_floating Absolute Value Routine ! REAL*8 mth$gabs EXTERNAL mth$gabs ! MTH$HABS ! ! H_floating Absolute Value Routine ! ! Subroutine mth$habs ! MTH$IIABS ! ! Word Absolute Value Routine ! INTEGER*2 mth$iiabs EXTERNAL mth$iiabs ! MTH$JIABS ! ! Longword Absolute Value Routine ! INTEGER*4 mth$jiabs EXTERNAL mth$jiabs ! MTH$IIAND ! ! Bitwise AND of Two Word Parameters Routine ! INTEGER*2 mth$iiand EXTERNAL mth$iiand ! MTH$JIAND ! ! Bitwise AND of Two Longword Parameters Routine ! INTEGER*4 mth$jiand EXTERNAL mth$jiand ! MTH$DBLE ! ! Convert F_floating to D_floating (Exact) Routine ! REAL*8 mth$dble EXTERNAL mth$dble ! MTH$GDBLE ! ! Convert F_floating to G_floating (Exact) Routine ! REAL*8 mth$gdble EXTERNAL mth$gdble ! MTH$DIM ! ! Positive Difference of Two F_floating Parameters Routine ! REAL*4 mth$dim EXTERNAL mth$dim ! MTH$DDIM ! ! Positive Difference of Two D_floating Parameters Routine ! REAL*8 mth$ddim EXTERNAL mth$ddim ! MTH$GDIM ! ! Positive Difference of Two D_floating Parameters Routine ! REAL*8 mth$gdim EXTERNAL mth$gdim ! MTH$HDIM ! ! Positive Difference of Two D_floating Parameters Routine ! ! Subroutine mth$hdim ! MTH$IIDIM ! ! Positive Difference of Two Word Parameters Routine ! INTEGER*2 mth$iidim EXTERNAL mth$iidim ! MTH$JIDIM ! ! Positive Difference of Two Longword Parameters Routine ! INTEGER*4 mth$jidim EXTERNAL mth$jidim ! MTH$IIEOR ! ! Bitwise Exclusive OR of Two Word Parameters Routine ! INTEGER*2 mth$iieor EXTERNAL mth$iieor ! MTH$JIEOR ! ! Bitwise Exclusive OR of Two Longword Parameters Routine ! INTEGER*4 mth$jieor EXTERNAL mth$jieor ! MTH$IIFIX ! ! Convert F_floating to Word (Truncated) Routine ! INTEGER*2 mth$iifix EXTERNAL mth$iifix ! MTH$JIFIX ! ! Convert F_floating to Longword (Truncated) Routine ! INTEGER*4 mth$jifix EXTERNAL mth$jifix ! MTH$FLOATI ! ! Convert Word to F_floating (Exact) Routine ! REAL*4 mth$floati EXTERNAL mth$floati ! MTH$DFLOTI ! ! Convert Word to D_floating (Exact) Routine ! REAL*8 mth$dfloti EXTERNAL mth$dfloti ! MTH$GFLOTI ! ! Convert Word to G_floating (Exact) Routine ! REAL*8 mth$gfloti EXTERNAL mth$gfloti ! MTH$FLOATJ ! ! Convert Longword to F_floating (Exact) Routine ! REAL*4 mth$floatj EXTERNAL mth$floatj ! MTH$DFLOTJ ! ! Convert Longword to D_floating (Exact) Routine ! REAL*8 mth$dflotj EXTERNAL mth$dflotj ! MTH$GFLOTJ ! ! Convert Longword to G_floating (Exact) Routine ! REAL*8 mth$gflotj EXTERNAL mth$gflotj ! MTH$FLOOR ! ! Convert F_floating to Greatest F_floating Integer Routine ! REAL*4 mth$floor EXTERNAL mth$floor ! MTH$DFLOOR ! ! Convert D_floating to Greatest D_floating Integer Routine ! REAL*8 mth$dfloor EXTERNAL mth$dfloor ! MTH$GFLOOR ! ! Convert G_floating to Greatest G_floating Integer Routine ! REAL*8 mth$gfloor EXTERNAL mth$gfloor ! MTH$HFLOOR ! ! Convert H_floating to Greatest H_floating Integer Routine ! ! Subroutine mth$hfloor ! MTH$AINT ! ! Convert F_floating to Truncated F_floating Routine ! REAL*4 mth$aint EXTERNAL mth$aint ! MTH$DINT ! ! Convert D_floating to Truncated D_floating Routine ! REAL*8 mth$dint EXTERNAL mth$dint ! MTH$IIDINT ! ! Convert D_floating to Word (Truncated) Routine ! INTEGER*2 mth$iidint EXTERNAL mth$iidint ! MTH$JIDINT ! ! Convert D_floating to Longword (Truncated) Routine ! INTEGER*4 mth$jidint EXTERNAL mth$jidint ! MTH$GINT ! ! Convert G_floating to G_floating (Truncated) Routine ! REAL*8 mth$gint EXTERNAL mth$gint ! MTH$IIGINT ! ! Convert G_floating to Word (Truncated) Routine ! INTEGER*2 mth$iigint EXTERNAL mth$iigint ! MTH$JIGINT ! ! Convert G_floating to Longword (Truncated) Routine ! INTEGER*4 mth$jigint EXTERNAL mth$jigint ! MTH$HINT ! ! Convert H_floating to H_floating (Truncated) Routine ! ! Subroutine mth$hint ! MTH$IIHINT ! ! Convert H_floating to Truncated Word Routine ! INTEGER*2 mth$iihint EXTERNAL mth$iihint ! MTH$JIHINT ! ! Convert H_floating to Truncated Longword Routine ! INTEGER*4 mth$jihint EXTERNAL mth$jihint ! MTH$IINT ! ! Convert F_floating to Word (Truncated) Routine ! INTEGER*2 mth$iint EXTERNAL mth$iint ! MTH$JINT ! ! Convert F_floating to Longword (Truncated) Routine ! INTEGER*4 mth$jint EXTERNAL mth$jint ! MTH$IIOR ! ! Bitwise Inclusive OR of Two Word Parameters Routine ! INTEGER*2 mth$iior EXTERNAL mth$iior ! MTH$JIOR ! ! Bitwise Inclusive OR of Two Longword Parameters Routine ! INTEGER*4 mth$jior EXTERNAL mth$jior ! MTH$AIMAX0 ! ! F_floating Maximum of N WordParameters Routine ! REAL*4 mth$aimax0 EXTERNAL mth$aimax0 ! MTH$AJMAX0 ! ! F_floating Maximum of N Longword Parameters Routine ! REAL*4 mth$ajmax0 EXTERNAL mth$ajmax0 ! MTH$IMAX0 ! ! Word Maximum of N Word Parameters Routine ! INTEGER*2 mth$imax0 EXTERNAL mth$imax0 ! MTH$JMAX0 ! ! Longword Maximum of N Longword Parameters Routine ! INTEGER*4 mth$jmax0 EXTERNAL mth$jmax0 ! MTH$AMAX1 ! ! F_floating Maximum of N F_floating Parameters Routine ! REAL*4 mth$amax1 EXTERNAL mth$amax1 ! MTH$DMAX1 ! ! D_floating Maximum of N D_floating Parameters Routine ! REAL*8 mth$dmax1 EXTERNAL mth$dmax1 ! MTH$GMAX1 ! ! G_floating Maximum of N G_floating Parameters Routine ! REAL*8 mth$gmax1 EXTERNAL mth$gmax1 ! MTH$HMAX1 ! ! H_floating Maximum of N H_floating Parameters Routine ! ! Subroutine mth$hmax1 ! MTH$IMAX1 ! ! Word Maximum of N F_floating Parameters Routine ! INTEGER*2 mth$imax1 EXTERNAL mth$imax1 ! MTH$JMAX1 ! ! Longword Maximum of N F_floating Parameters Routine ! INTEGER*4 mth$jmax1 EXTERNAL mth$jmax1 ! MTH$AIMIN0 ! ! F_floating Minimum of N Word Parameters Routine ! REAL*4 mth$aimin0 EXTERNAL mth$aimin0 ! MTH$AJMIN0 ! ! F_floating Minimum of N Longword Parameters Routine ! REAL*4 mth$ajmin0 EXTERNAL mth$ajmin0 ! MTH$IMIN0 ! ! Word Minimum of N Word Parameters Routine ! INTEGER*2 mth$imin0 EXTERNAL mth$imin0 ! MTH$JMIN0 ! ! Longword Minimum of N Longword Parameters Routine ! INTEGER*4 mth$jmin0 EXTERNAL mth$jmin0 ! MTH$AMIN1 ! ! F_floating Minimum of N F_floating Parameters Routine ! REAL*4 mth$amin1 EXTERNAL mth$amin1 ! MTH$DMIN1 ! ! D_floating Minimum of N D_floating Parameters Routine ! REAL*8 mth$dmin1 EXTERNAL mth$dmin1 ! MTH$GMIN1 ! ! G_floating Minimum of N G_floating Parameters Routine ! REAL*8 mth$gmin1 EXTERNAL mth$gmin1 ! MTH$HMIN1 ! ! H_floating Minimum of N H_floating Parameters Routine ! ! Subroutine mth$hmin1 ! MTH$IMIN1 ! ! Word Minimum of N F_floating Parameters Routine ! INTEGER*2 mth$imin1 EXTERNAL mth$imin1 ! MTH$JMIN1 ! ! Longword Minimum of N F_floating Parameters Routine ! INTEGER*4 mth$jmin1 EXTERNAL mth$jmin1 ! MTH$AMOD ! ! Remainder of Two F_floating Parameters Routine ! REAL*4 mth$amod EXTERNAL mth$amod ! MTH$DMOD ! ! Remainder of Two D_floating Parameters Routine ! REAL*8 mth$dmod EXTERNAL mth$dmod ! MTH$GMOD ! ! Remainder of Two G_floating Parameters Routine ! REAL*8 mth$gmod EXTERNAL mth$gmod ! MTH$HMOD ! ! Remainder of Two H_floating Parameters Routine ! ! Subroutine mth$hmod ! MTH$IMOD ! ! Remainder of Two Word Parameters Routine ! INTEGER*2 mth$imod EXTERNAL mth$imod ! MTH$JMOD ! ! Remainder of Two Longword Parameters Routine ! INTEGER*4 mth$jmod EXTERNAL mth$jmod ! MTH$ANINT ! ! Convert F_floating to Nearest F_floating Integer Routine ! REAL*4 mth$anint EXTERNAL mth$anint ! MTH$DNINT ! ! Convert D_floating to Nearest D_floating Integer Routine ! REAL*8 mth$dnint EXTERNAL mth$dnint ! MTH$IIDNNT ! ! Convert D_floating to Word Integer Routine ! INTEGER*2 mth$iidnnt EXTERNAL mth$iidnnt ! MTH$JIDNNT ! ! Convert D_floating to Nearest Longword Integer Routine ! INTEGER*4 mth$jidnnt EXTERNAL mth$jidnnt ! MTH$GNINT ! ! Convert G_floating to Nearest G_floating Integer Routine ! REAL*8 mth$gnint EXTERNAL mth$gnint ! MTH$IIGNNT ! ! Convert T_floating to Nearest G_floating Integer Routine ! INTEGER*2 mth$iignnt EXTERNAL mth$iignnt ! MTH$JIGNNT ! ! Convert G_floating to Nearest Longword Integer Routine ! INTEGER*4 mth$jignnt EXTERNAL mth$jignnt ! MTH$HNINT ! ! Convert H_floating to Nearest H_floating Integer Routine ! ! Subroutine mth$hnint ! MTH$IIHNNT ! ! Convert H_floating to Nearest Word Integer Routine ! INTEGER*2 mth$iihnnt EXTERNAL mth$iihnnt ! MTH$JIHNNT ! ! Convert H_floating to Nearest Longword Integer Routine ! INTEGER*4 mth$jihnnt EXTERNAL mth$jihnnt ! MTH$ININT ! ! Convert F_floating to Nearest Word Integer Routine ! INTEGER*2 mth$inint EXTERNAL mth$inint ! MTH$JNINT ! ! Convert F_floating to Nearest Longword Integer Routine ! INTEGER*4 mth$jnint EXTERNAL mth$jnint ! MTH$INOT ! ! Bitwise Complement of Word Parameter Routine ! INTEGER*2 mth$inot EXTERNAL mth$inot ! MTH$JNOT ! ! Bitwise Complement of Longword Parameter Routine ! INTEGER*4 mth$jnot EXTERNAL mth$jnot ! MTH$DPROD ! ! D_floating Product of Two F_floating Parameters Routine ! REAL*8 mth$dprod EXTERNAL mth$dprod ! MTH$GPROD ! ! G_floating Product of Two F_floating Parameters Routine ! REAL*8 mth$gprod EXTERNAL mth$gprod ! MTH$SGN ! ! F_floating Sign Function ! INTEGER*4 mth$sgn EXTERNAL mth$sgn ! MTH$IISHFT ! ! Bitwise Shift of Word Routine ! INTEGER*2 mth$iishft EXTERNAL mth$iishft ! MTH$JISHFT ! ! Bitwise Shift of Longword Routine ! INTEGER*4 mth$jishft EXTERNAL mth$jishft ! MTH$SIGN ! ! F_floating Transfer of Sign of Y to Sign of X Routine ! REAL*4 mth$sign EXTERNAL mth$sign ! MTH$DSIGN ! ! D_floating Transfer of Sign of Y to Sign of X Routine ! REAL*8 mth$dsign EXTERNAL mth$dsign ! MTH$GSIGN ! ! G_floating Transfer of Sign of X to Sign of X Routine ! REAL*8 mth$gsign EXTERNAL mth$gsign ! MTH$HSIGN ! ! H_floating Transfer of Sign of Y to Sign of X Routine ! ! Subroutine mth$hsign ! MTH$IISIGN ! ! Word Transfer of Sign of Y to Sign of X Routine ! INTEGER*2 mth$iisign EXTERNAL mth$iisign ! MTH$JISIGN ! ! Longword Transfer of Sign of Y to Sign of X Routine ! INTEGER*4 mth$jisign EXTERNAL mth$jisign ! MTH$SNGL ! ! Convert D_floating to F_floating (Rounded) Routine ! REAL*4 mth$sngl EXTERNAL mth$sngl ! MTH$SNGLG ! ! Convert G_floating to F_floating (Rounded) Routine ! REAL*4 mth$snglg EXTERNAL mth$snglg !DEC$ END OPTIONS