! *********************************************************************************************************************************************************************************************************************************************************** ! Created 9-NOV-1999 09:12:07 by VAX SDL V3.2-12 Source: 9-NOV-1999 09:12:06 FORD2$:[VFORT.KIT.FORSYSDEF]MTH$ROUTINES.SDI;1 ! *********************************************************************************************************************************************************************************************************************************************************** !*** MODULE mth$routines *** CDEC$ OPTIONS /NOALIGN ! *************************************************************************** ! * ! 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 ! BLAS1$VISAMAX ! ! Obtain the Index of the First Element of a Vector Having ! the Largest Absolute Value ! ! The Otain the Index of the First Element of a Vector Having the ! Largest Absolute Value routines find the index of the ! first occurrence of a vector element having the maximum absolute ! value. ! INTEGER*4 blas1$visamax EXTERNAL blas1$visamax ! BLAS1$VIDAMAX ! ! Obtain the Index of the First Element of a Vector Having ! the Largest Absolute Value ! ! The Otain the Index of the First Element of a Vector Having the ! Largest Absolute Value routines find the index of the ! first occurrence of a vector element having the maximum absolute ! value. ! INTEGER*4 blas1$vidamax EXTERNAL blas1$vidamax ! BLAS1$VIGAMAX ! ! Obtain the Index of the First Element of a Vector Having ! the Largest Absolute Value ! ! The Otain the Index of the First Element of a Vector Having the ! Largest Absolute Value routines find the index of the ! first occurrence of a vector element having the maximum absolute ! value. ! INTEGER*4 blas1$vigamax EXTERNAL blas1$vigamax ! BLAS1$VICAMAX ! ! Obtain the Index of the First Element of a Vector Having ! the Largest Absolute Value ! ! The Otain the Index of the First Element of a Vector Having the ! Largest Absolute Value routines find the index of the ! first occurrence of a vector element having the maximum absolute ! value. ! INTEGER*4 blas1$vicamax EXTERNAL blas1$vicamax ! BLAS1$VIZAMAX ! ! Obtain the Index of the First Element of a Vector Having ! the Largest Absolute Value ! ! The Otain the Index of the First Element of a Vector Having the ! Largest Absolute Value routines find the index of the ! first occurrence of a vector element having the maximum absolute ! value. ! INTEGER*4 blas1$vizamax EXTERNAL blas1$vizamax ! BLAS1$VIWAMAX ! ! Obtain the Index of the First Element of a Vector Having ! the Largest Absolute Value ! ! The Otain the Index of the First Element of a Vector Having the ! Largest Absolute Value routines find the index of the ! first occurrence of a vector element having the maximum absolute ! value. ! INTEGER*4 blas1$viwamax EXTERNAL blas1$viwamax ! BLAS1$VSASUM ! ! Obtain the Sum of the Absolute Values of the Elements of a Vector ! ! The Obtain the Sum of the Absolute Values of the Elements of a Vector ! routines determine the sum of the absolute values of the elements of ! the x-element vector x. ! REAL*4 blas1$vsasum EXTERNAL blas1$vsasum ! BLAS1$VDASUM ! ! Obtain the Sum of the Absolute Values of the Elements of a Vector ! ! The Obtain the Sum of the Absolute Values of the Elements of a Vector ! routines determine the sum of the absolute values of the elements of ! the x-element vector x. ! REAL*8 blas1$vdasum EXTERNAL blas1$vdasum ! BLAS1$VGASUM ! ! Obtain the Sum of the Absolute Values of the Elements of a Vector ! ! The Obtain the Sum of the Absolute Values of the Elements of a Vector ! routines determine the sum of the absolute values of the elements of ! the x-element vector x. ! REAL*8 blas1$vgasum EXTERNAL blas1$vgasum ! BLAS1$VSCASUM ! ! Obtain the Sum of the Absolute Values of the Elements of a Vector ! ! The Obtain the Sum of the Absolute Values of the Elements of a Vector ! routines determine the sum of the absolute values of the elements of ! the x-element vector x. ! COMPLEX blas1$vscasum EXTERNAL blas1$vscasum ! BLAS1$VDZASUM ! ! Obtain the Sum of the Absolute Values of the Elements of a Vector ! ! The Obtain the Sum of the Absolute Values of the Elements of a Vector ! routines determine the sum of the absolute values of the elements of ! the x-element vector x. ! COMPLEX*16 blas1$vdzasum EXTERNAL blas1$vdzasum ! BLAS1$VGWASUM ! ! Obtain the Sum of the Absolute Values of the Elements of a Vector ! ! The Obtain the Sum of the Absolute Values of the Elements of a Vector ! routines determine the sum of the absolute values of the elements of ! the x-element vector x. ! COMPLEX*16 blas1$vgwasum EXTERNAL blas1$vgwasum ! BLAS1$VSAXPY ! ! Multiply a Vector by a Scalar and Add a Vector ! ! The Multiply a Vector by a Scalar and Add a Vector routines compute ! n, where n is a scalar number and n and n are n-element vectors. ! ! Subroutine blas1$vsaxpy ! BLAS1$VDAXPY ! ! Multiply a Vector by a Scalar and Add a Vector ! ! The Multiply a Vector by a Scalar and Add a Vector routines compute ! n, where n is a scalar number and n and n are n-element vectors. ! ! Subroutine blas1$vdaxpy ! BLAS1$VGAXPY ! ! Multiply a Vector by a Scalar and Add a Vector ! ! The Multiply a Vector by a Scalar and Add a Vector routines compute ! n, where n is a scalar number and n and n are n-element vectors. ! ! Subroutine blas1$vgaxpy ! BLAS1$VCAXPY ! ! Multiply a Vector by a Scalar and Add a Vector ! ! The Multiply a Vector by a Scalar and Add a Vector routines compute ! n, where n is a scalar number and n and n are n-element vectors. ! ! Subroutine blas1$vcaxpy ! BLAS1$VZAXPY ! ! Multiply a Vector by a Scalar and Add a Vector ! ! The Multiply a Vector by a Scalar and Add a Vector routines compute ! n, where n is a scalar number and n and n are n-element vectors. ! ! Subroutine blas1$vzaxpy ! BLAS1$VWAXPY ! ! Multiply a Vector by a Scalar and Add a Vector ! ! The Multiply a Vector by a Scalar and Add a Vector routines compute ! n, where n is a scalar number and n and n are n-element vectors. ! ! Subroutine blas1$vwaxpy ! BLAS1$VSCOPY ! ! Copy a Vector ! ! The Copy a Vector routines copy n elements of the ! vector x to the vector y. ! ! Subroutine blas1$vscopy ! BLAS1$VDCOPY ! ! Copy a Vector ! ! The Copy a Vector routines copy n elements of the ! vector x to the vector y. ! ! Subroutine blas1$vdcopy ! BLAS1$VCCOPY ! ! Copy a Vector ! ! The Copy a Vector routines copy n elements of the ! vector x to the vector y. ! ! Subroutine blas1$vccopy ! BLAS1$VZCOPY ! ! Copy a Vector ! ! The Copy a Vector routines copy n elements of the ! vector x to the vector y. ! ! Subroutine blas1$vzcopy ! BLAS1$VSDOT ! ! Obtain the Inner Product of Two Vectors ! ! The Obtain the Inner Product of Two Vectors routines ! return the dot product of two y-element vectors, ! x and y ! REAL*4 blas1$vsdot EXTERNAL blas1$vsdot ! BLAS1$VDDOT ! ! Obtain the Inner Product of Two Vectors ! ! The Obtain the Inner Product of Two Vectors routines ! return the dot product of two y-element vectors, ! x and y ! REAL*8 blas1$vddot EXTERNAL blas1$vddot ! BLAS1$VGDOT ! ! Obtain the Inner Product of Two Vectors ! ! The Obtain the Inner Product of Two Vectors routines ! return the dot product of two y-element vectors, ! x and y ! REAL*8 blas1$vgdot EXTERNAL blas1$vgdot ! BLAS1$VCDOTU ! ! Obtain the Inner Product of Two Vectors ! ! The Obtain the Inner Product of Two Vectors routines ! return the dot product of two y-element vectors, ! x and y ! COMPLEX blas1$vcdotu EXTERNAL blas1$vcdotu ! BLAS1$VCDOTC ! ! Obtain the Inner Product of Two Vectors ! ! The Obtain the Inner Product of Two Vectors routines ! return the dot product of two y-element vectors, ! x and y ! COMPLEX blas1$vcdotc EXTERNAL blas1$vcdotc ! BLAS1$VZDOTU ! ! Obtain the Inner Product of Two Vectors ! ! The Obtain the Inner Product of Two Vectors routines ! return the dot product of two y-element vectors, ! x and y ! COMPLEX*16 blas1$vzdotu EXTERNAL blas1$vzdotu ! BLAS1$VZDOTC ! ! Obtain the Inner Product of Two Vectors ! ! The Obtain the Inner Product of Two Vectors routines ! return the dot product of two y-element vectors, ! x and y ! COMPLEX*16 blas1$vzdotc EXTERNAL blas1$vzdotc ! BLAS1$VWDOTU ! ! Obtain the Inner Product of Two Vectors ! ! The Obtain the Inner Product of Two Vectors routines ! return the dot product of two y-element vectors, ! x and y ! COMPLEX*16 blas1$vwdotu EXTERNAL blas1$vwdotu ! BLAS1$VWDOTC ! ! Obtain the Inner Product of Two Vectors ! ! The Obtain the Inner Product of Two Vectors routines ! return the dot product of two y-element vectors, ! x and y ! COMPLEX*16 blas1$vwdotc EXTERNAL blas1$vwdotc ! BLAS1$VSNRM2 ! ! Obtain the Euclidean Norm of a Vector ! ! The Obtain the Ecudlicean Norm of a Vector routines obtain the ! Euclidean norm of an n-element vector x. ! REAL*4 blas1$vsnrm2 EXTERNAL blas1$vsnrm2 ! BLAS1$VDNRM2 ! ! Obtain the Euclidean Norm of a Vector ! ! The Obtain the Ecudlicean Norm of a Vector routines obtain the ! Euclidean norm of an n-element vector x. ! REAL*8 blas1$vdnrm2 EXTERNAL blas1$vdnrm2 ! BLAS1$VGNRM2 ! ! Obtain the Euclidean Norm of a Vector ! ! The Obtain the Ecudlicean Norm of a Vector routines obtain the ! Euclidean norm of an n-element vector x. ! REAL*8 blas1$vgnrm2 EXTERNAL blas1$vgnrm2 ! BLAS1$VSCNRM2 ! ! Obtain the Euclidean Norm of a Vector ! ! The Obtain the Ecudlicean Norm of a Vector routines obtain the ! Euclidean norm of an n-element vector x. ! COMPLEX blas1$vscnrm2 EXTERNAL blas1$vscnrm2 ! BLAS1$VDZNRM2 ! ! Obtain the Euclidean Norm of a Vector ! ! The Obtain the Ecudlicean Norm of a Vector routines obtain the ! Euclidean norm of an n-element vector x. ! COMPLEX*16 blas1$vdznrm2 EXTERNAL blas1$vdznrm2 ! BLAS1$VGWNRM2 ! ! Obtain the Euclidean Norm of a Vector ! ! The Obtain the Ecudlicean Norm of a Vector routines obtain the ! Euclidean norm of an n-element vector x. ! COMPLEX*16 blas1$vgwnrm2 EXTERNAL blas1$vgwnrm2 ! BLAS1$VSROT ! ! Apply a Givens Plane Rotation ! ! The Apply a Givens Plane Rotation routines apply a Givens plane ! rotation to a pair of n-element vectors x and y. ! ! Subroutine blas1$vsrot ! BLAS1$VDROT ! ! Apply a Givens Plane Rotation ! ! The Apply a Givens Plane Rotation routines apply a Givens plane ! rotation to a pair of n-element vectors x and y. ! ! Subroutine blas1$vdrot ! BLAS1$VGROT ! ! Apply a Givens Plane Rotation ! ! The Apply a Givens Plane Rotation routines apply a Givens plane ! rotation to a pair of n-element vectors x and y. ! ! Subroutine blas1$vgrot ! BLAS1$VCSROT ! ! Apply a Givens Plane Rotation ! ! The Apply a Givens Plane Rotation routines apply a Givens plane ! rotation to a pair of n-element vectors x and y. ! ! Subroutine blas1$vcsrot ! BLAS1$VZDROT ! ! Apply a Givens Plane Rotation ! ! The Apply a Givens Plane Rotation routines apply a Givens plane ! rotation to a pair of n-element vectors x and y. ! ! Subroutine blas1$vzdrot ! BLAS1$VWGROT ! ! Apply a Givens Plane Rotation ! ! The Apply a Givens Plane Rotation routines apply a Givens plane ! rotation to a pair of n-element vectors x and y. ! ! Subroutine blas1$vwgrot ! BLAS1$VSROTG ! ! Generate the Elements for a Givens Plane Rotation ! ! The Generate the Elements for a Givens Plane Rotation ! routines construct a Givens plane rotation that eliminates the second ! element of a two-element vector. ! ! Subroutine blas1$vsrotg ! BLAS1$VDROTG ! ! Generate the Elements for a Givens Plane Rotation ! ! The Generate the Elements for a Givens Plane Rotation ! routines construct a Givens plane rotation that eliminates the second ! element of a two-element vector. ! ! Subroutine blas1$vdrotg ! BLAS1$VGROTG ! ! Generate the Elements for a Givens Plane Rotation ! ! The Generate the Elements for a Givens Plane Rotation ! routines construct a Givens plane rotation that eliminates the second ! element of a two-element vector. ! ! Subroutine blas1$vgrotg ! BLAS1$VCROTG ! ! Generate the Elements for a Givens Plane Rotation ! ! The Generate the Elements for a Givens Plane Rotation ! routines construct a Givens plane rotation that eliminates the second ! element of a two-element vector. ! ! Subroutine blas1$vcrotg ! BLAS1$VZROTG ! ! Generate the Elements for a Givens Plane Rotation ! ! The Generate the Elements for a Givens Plane Rotation ! routines construct a Givens plane rotation that eliminates the second ! element of a two-element vector. ! ! Subroutine blas1$vzrotg ! BLAS1$VWROTG ! ! Generate the Elements for a Givens Plane Rotation ! ! The Generate the Elements for a Givens Plane Rotation ! routines construct a Givens plane rotation that eliminates the second ! element of a two-element vector. ! ! Subroutine blas1$vwrotg ! BLAS1$VSSCAL ! ! Scale the Elements of a Vector ! ! The Scale the Elements of a Vector routines compute ! a * x where a is a scalar number and x is an n-element vector. ! ! Subroutine blas1$vsscal ! BLAS1$VDSCAL ! ! Scale the Elements of a Vector ! ! The Scale the Elements of a Vector routines compute ! a * x where a is a scalar number and x is an n-element vector. ! ! Subroutine blas1$vdscal ! BLAS1$VGSCAL ! ! Scale the Elements of a Vector ! ! The Scale the Elements of a Vector routines compute ! a * x where a is a scalar number and x is an n-element vector. ! ! Subroutine blas1$vgscal ! BLAS1$VCSCAL ! ! Scale the Elements of a Vector ! ! The Scale the Elements of a Vector routines compute ! a * x where a is a scalar number and x is an n-element vector. ! ! Subroutine blas1$vcscal ! BLAS1$VCSSCAL ! ! Scale the Elements of a Vector ! ! The Scale the Elements of a Vector routines compute ! a * x where a is a scalar number and x is an n-element vector. ! ! Subroutine blas1$vcsscal ! BLAS1$VZSCAL ! ! Scale the Elements of a Vector ! ! The Scale the Elements of a Vector routines compute ! a * x where a is a scalar number and x is an n-element vector. ! ! Subroutine blas1$vzscal ! BLAS1$VWSCAL ! ! Scale the Elements of a Vector ! ! The Scale the Elements of a Vector routines compute ! a * x where a is a scalar number and x is an n-element vector. ! ! Subroutine blas1$vwscal ! BLAS1$VZDSCAL ! ! Scale the Elements of a Vector ! ! The Scale the Elements of a Vector routines compute ! a * x where a is a scalar number and x is an n-element vector. ! ! Subroutine blas1$vzdscal ! BLAS1$VWGSCAL ! ! Scale the Elements of a Vector ! ! The Scale the Elements of a Vector routines compute ! a * x where a is a scalar number and x is an n-element vector. ! ! Subroutine blas1$vwgscal ! BLAS1$VSSWAP ! ! Swap the Elements of Two Vectors ! ! The Swap the Elements of Two Vectors routines swap n ! elements of the vector x with the vector y. ! ! Subroutine blas1$vsswap ! BLAS1$VDSWAP ! ! Swap the Elements of Two Vectors ! ! The Swap the Elements of Two Vectors routines swap n ! elements of the vector x with the vector y. ! ! Subroutine blas1$vdswap ! BLAS1$VCSWAP ! ! Swap the Elements of Two Vectors ! ! The Swap the Elements of Two Vectors routines swap n ! elements of the vector x with the vector y. ! ! Subroutine blas1$vcswap ! BLAS1$VZSWAP ! ! Swap the Elements of Two Vectors ! ! The Swap the Elements of Two Vectors routines swap n ! elements of the vector x with the vector y. ! ! Subroutine blas1$vzswap ! 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 a Complex Number (F-floating Value) ! ! The Sine of a 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 a Complex Number ! ! The Sine of a 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$VJFOLRLP_MA_V5 ! ! First Order Linear Recurrence --- Multiplication and Addition --- Last Value ! ! The First Order Linear Recurrence --- Multiplication and Addition --- ! Last Value routines provide a vectorized algorithm for the linear ! recurrence relation that includes both multiplication and addition ! operations. Only the last value computed is stored. ! INTEGER*4 mth$vjfolrlp_ma_v5 EXTERNAL mth$vjfolrlp_ma_v5 ! MTH$VFFOLRLP_MA_V5 ! ! First Order Linear Recurrence --- Multiplication and Addition --- Last Value ! ! The First Order Linear Recurrence --- Multiplication and Addition --- ! Last Value routines provide a vectorized algorithm for the linear ! recurrence relation that includes both multiplication and addition ! operations. Only the last value computed is stored. ! REAL*4 mth$vffolrlp_ma_v5 EXTERNAL mth$vffolrlp_ma_v5 ! MTH$VDFOLRLP_MA_V5 ! ! First Order Linear Recurrence --- Multiplication and Addition --- Last Value ! ! The First Order Linear Recurrence --- Multiplication and Addition --- ! Last Value routines provide a vectorized algorithm for the linear ! recurrence relation that includes both multiplication and addition ! operations. Only the last value computed is stored. ! REAL*8 mth$vdfolrlp_ma_v5 EXTERNAL mth$vdfolrlp_ma_v5 ! MTH$VGFOLRLP_MA_V5 ! ! First Order Linear Recurrence --- Multiplication and Addition --- Last Value ! ! The First Order Linear Recurrence --- Multiplication and Addition --- ! Last Value routines provide a vectorized algorithm for the linear ! recurrence relation that includes both multiplication and addition ! operations. Only the last value computed is stored. ! REAL*8 mth$vgfolrlp_ma_v5 EXTERNAL mth$vgfolrlp_ma_v5 ! MTH$VJFOLRLN_MA_V5 ! ! First Order Linear Recurrence --- Multiplication and Addition --- Last Value ! ! The First Order Linear Recurrence --- Multiplication and Addition --- ! Last Value routines provide a vectorized algorithm for the linear ! recurrence relation that includes both multiplication and addition ! operations. Only the last value computed is stored. ! INTEGER*4 mth$vjfolrln_ma_v5 EXTERNAL mth$vjfolrln_ma_v5 ! MTH$VFFOLRLN_MA_V5 ! ! First Order Linear Recurrence --- Multiplication and Addition --- Last Value ! ! The First Order Linear Recurrence --- Multiplication and Addition --- ! Last Value routines provide a vectorized algorithm for the linear ! recurrence relation that includes both multiplication and addition ! operations. Only the last value computed is stored. ! REAL*4 mth$vffolrln_ma_v5 EXTERNAL mth$vffolrln_ma_v5 ! MTH$VDFOLRLN_MA_V5 ! ! First Order Linear Recurrence --- Multiplication and Addition --- Last Value ! ! The First Order Linear Recurrence --- Multiplication and Addition --- ! Last Value routines provide a vectorized algorithm for the linear ! recurrence relation that includes both multiplication and addition ! operations. Only the last value computed is stored. ! REAL*8 mth$vdfolrln_ma_v5 EXTERNAL mth$vdfolrln_ma_v5 ! MTH$VGFOLRLN_MA_V5 ! ! First Order Linear Recurrence --- Multiplication and Addition --- Last Value ! ! The First Order Linear Recurrence --- Multiplication and Addition --- ! Last Value routines provide a vectorized algorithm for the linear ! recurrence relation that includes both multiplication and addition ! operations. Only the last value computed is stored. ! REAL*8 mth$vgfolrln_ma_v5 EXTERNAL mth$vgfolrln_ma_v5 ! MTH$VJFOLRLP_M_V2 ! ! First Order Linear Recurrence --- Multiplication or Addition --- Last Value ! ! The First Order Linear Recurrence --- Multiplication or Addition --- ! Last Value routines provide a vectorized algorithm for the linear ! recurrence relation that includes either a multiplication or an ! addition operation. Only the last value computed is stored. ! INTEGER*4 mth$vjfolrlp_m_v2 EXTERNAL mth$vjfolrlp_m_v2 ! MTH$VFFOLRLP_M_V2 ! ! First Order Linear Recurrence --- Multiplication or Addition --- Last Value ! ! The First Order Linear Recurrence --- Multiplication or Addition --- ! Last Value routines provide a vectorized algorithm for the linear ! recurrence relation that includes either a multiplication or an ! addition operation. Only the last value computed is stored. ! REAL*4 mth$vffolrlp_m_v2 EXTERNAL mth$vffolrlp_m_v2 ! MTH$VDFOLRLP_M_V2 ! ! First Order Linear Recurrence --- Multiplication or Addition --- Last Value ! ! The First Order Linear Recurrence --- Multiplication or Addition --- ! Last Value routines provide a vectorized algorithm for the linear ! recurrence relation that includes either a multiplication or an ! addition operation. Only the last value computed is stored. ! REAL*8 mth$vdfolrlp_m_v2 EXTERNAL mth$vdfolrlp_m_v2 ! MTH$VGFOLRLP_M_V2 ! ! First Order Linear Recurrence --- Multiplication or Addition --- Last Value ! ! The First Order Linear Recurrence --- Multiplication or Addition --- ! Last Value routines provide a vectorized algorithm for the linear ! recurrence relation that includes either a multiplication or an ! addition operation. Only the last value computed is stored. ! REAL*8 mth$vgfolrlp_m_v2 EXTERNAL mth$vgfolrlp_m_v2 ! MTH$VJFOLRLN_M_V2 ! ! First Order Linear Recurrence --- Multiplication or Addition --- Last Value ! ! The First Order Linear Recurrence --- Multiplication or Addition --- ! Last Value routines provide a vectorized algorithm for the linear ! recurrence relation that includes either a multiplication or an ! addition operation. Only the last value computed is stored. ! INTEGER*4 mth$vjfolrln_m_v2 EXTERNAL mth$vjfolrln_m_v2 ! MTH$VFFOLRLN_M_V2 ! ! First Order Linear Recurrence --- Multiplication or Addition --- Last Value ! ! The First Order Linear Recurrence --- Multiplication or Addition --- ! Last Value routines provide a vectorized algorithm for the linear ! recurrence relation that includes either a multiplication or an ! addition operation. Only the last value computed is stored. ! REAL*4 mth$vffolrln_m_v2 EXTERNAL mth$vffolrln_m_v2 ! MTH$VDFOLRLN_M_V2 ! ! First Order Linear Recurrence --- Multiplication or Addition --- Last Value ! ! The First Order Linear Recurrence --- Multiplication or Addition --- ! Last Value routines provide a vectorized algorithm for the linear ! recurrence relation that includes either a multiplication or an ! addition operation. Only the last value computed is stored. ! REAL*8 mth$vdfolrln_m_v2 EXTERNAL mth$vdfolrln_m_v2 ! MTH$VGFOLRLN_M_V2 ! ! First Order Linear Recurrence --- Multiplication or Addition --- Last Value ! ! The First Order Linear Recurrence --- Multiplication or Addition --- ! Last Value routines provide a vectorized algorithm for the linear ! recurrence relation that includes either a multiplication or an ! addition operation. Only the last value computed is stored. ! REAL*8 mth$vgfolrln_m_v2 EXTERNAL mth$vgfolrln_m_v2 ! MTH$VJFOLRLP_A_V2 ! ! First Order Linear Recurrence --- Multiplication or Addition --- Last Value ! ! The First Order Linear Recurrence --- Multiplication or Addition --- ! Last Value routines provide a vectorized algorithm for the linear ! recurrence relation that includes either a multiplication or an ! addition operation. Only the last value computed is stored. ! INTEGER*4 mth$vjfolrlp_a_v2 EXTERNAL mth$vjfolrlp_a_v2 ! MTH$VFFOLRLP_A_V2 ! ! First Order Linear Recurrence --- Multiplication or Addition --- Last Value ! ! The First Order Linear Recurrence --- Multiplication or Addition --- ! Last Value routines provide a vectorized algorithm for the linear ! recurrence relation that includes either a multiplication or an ! addition operation. Only the last value computed is stored. ! REAL*4 mth$vffolrlp_a_v2 EXTERNAL mth$vffolrlp_a_v2 ! MTH$VDFOLRLP_A_V2 ! ! First Order Linear Recurrence --- Multiplication or Addition --- Last Value ! ! The First Order Linear Recurrence --- Multiplication or Addition --- ! Last Value routines provide a vectorized algorithm for the linear ! recurrence relation that includes either a multiplication or an ! addition operation. Only the last value computed is stored. ! REAL*8 mth$vdfolrlp_a_v2 EXTERNAL mth$vdfolrlp_a_v2 ! MTH$VGFOLRLP_A_V2 ! ! First Order Linear Recurrence --- Multiplication or Addition --- Last Value ! ! The First Order Linear Recurrence --- Multiplication or Addition --- ! Last Value routines provide a vectorized algorithm for the linear ! recurrence relation that includes either a multiplication or an ! addition operation. Only the last value computed is stored. ! REAL*8 mth$vgfolrlp_a_v2 EXTERNAL mth$vgfolrlp_a_v2 ! MTH$VJFOLRLN_A_V2 ! ! First Order Linear Recurrence --- Multiplication or Addition --- Last Value ! ! The First Order Linear Recurrence --- Multiplication or Addition --- ! Last Value routines provide a vectorized algorithm for the linear ! recurrence relation that includes either a multiplication or an ! addition operation. Only the last value computed is stored. ! INTEGER*4 mth$vjfolrln_a_v2 EXTERNAL mth$vjfolrln_a_v2 ! MTH$VFFOLRLN_A_V2 ! ! First Order Linear Recurrence --- Multiplication or Addition --- Last Value ! ! The First Order Linear Recurrence --- Multiplication or Addition --- ! Last Value routines provide a vectorized algorithm for the linear ! recurrence relation that includes either a multiplication or an ! addition operation. Only the last value computed is stored. ! REAL*4 mth$vffolrln_a_v2 EXTERNAL mth$vffolrln_a_v2 ! MTH$VDFOLRLN_A_V2 ! ! First Order Linear Recurrence --- Multiplication or Addition --- Last Value ! ! The First Order Linear Recurrence --- Multiplication or Addition --- ! Last Value routines provide a vectorized algorithm for the linear ! recurrence relation that includes either a multiplication or an ! addition operation. Only the last value computed is stored. ! REAL*8 mth$vdfolrln_a_v2 EXTERNAL mth$vdfolrln_a_v2 ! MTH$VGFOLRLN_A_V2 ! ! First Order Linear Recurrence --- Multiplication or Addition --- Last Value ! ! The First Order Linear Recurrence --- Multiplication or Addition --- ! Last Value routines provide a vectorized algorithm for the linear ! recurrence relation that includes either a multiplication or an ! addition operation. Only the last value computed is stored. ! REAL*8 mth$vgfolrln_a_v2 EXTERNAL mth$vgfolrln_a_v2 ! MTH$VJFOLRP_MA_V15 ! ! First Order Linear Recurrence --- Multiplication and Addition ! ! The First Order Linear Recurrence --- Multiplication and Addition ! routines provide a vectorized algorithm for the linear recurrence ! relation that includes both multiplication and addition ! operations. ! ! Subroutine mth$vjfolrp_ma_v15 ! MTH$VFFOLRP_MA_V15 ! ! First Order Linear Recurrence --- Multiplication and Addition ! ! The First Order Linear Recurrence --- Multiplication and Addition ! routines provide a vectorized algorithm for the linear recurrence ! relation that includes both multiplication and addition ! operations. ! ! Subroutine mth$vffolrp_ma_v15 ! MTH$VDFOLRP_MA_V15 ! ! First Order Linear Recurrence --- Multiplication and Addition ! ! The First Order Linear Recurrence --- Multiplication and Addition ! routines provide a vectorized algorithm for the linear recurrence ! relation that includes both multiplication and addition ! operations. ! ! Subroutine mth$vdfolrp_ma_v15 ! MTH$VGFOLRP_MA_V15 ! ! First Order Linear Recurrence --- Multiplication and Addition ! ! The First Order Linear Recurrence --- Multiplication and Addition ! routines provide a vectorized algorithm for the linear recurrence ! relation that includes both multiplication and addition ! operations. ! ! Subroutine mth$vgfolrp_ma_v15 ! MTH$VJFOLRN_MA_V15 ! ! First Order Linear Recurrence --- Multiplication and Addition ! ! The First Order Linear Recurrence --- Multiplication and Addition ! routines provide a vectorized algorithm for the linear recurrence ! relation that includes both multiplication and addition ! operations. ! ! Subroutine mth$vjfolrn_ma_v15 ! MTH$VFFOLRN_MA_V15 ! ! First Order Linear Recurrence --- Multiplication and Addition ! ! The First Order Linear Recurrence --- Multiplication and Addition ! routines provide a vectorized algorithm for the linear recurrence ! relation that includes both multiplication and addition ! operations. ! ! Subroutine mth$vffolrn_ma_v15 ! MTH$VDFOLRN_MA_V15 ! ! First Order Linear Recurrence --- Multiplication and Addition ! ! The First Order Linear Recurrence --- Multiplication and Addition ! routines provide a vectorized algorithm for the linear recurrence ! relation that includes both multiplication and addition ! operations. ! ! Subroutine mth$vdfolrn_ma_v15 ! MTH$VGFOLRN_MA_V15 ! ! First Order Linear Recurrence --- Multiplication and Addition ! ! The First Order Linear Recurrence --- Multiplication and Addition ! routines provide a vectorized algorithm for the linear recurrence ! relation that includes both multiplication and addition ! operations. ! ! Subroutine mth$vgfolrn_ma_v15 ! MTH$VJFOLRP_M_V8 ! ! First Order Linear Recurrence --- Multiplication or Addition ! ! The First Order Linear Recurrence --- Multiplication or Addition ! routines provide a vectorized algorithm for the linear recurrence ! relation that includes either a multiplication or an addition ! operation, but not both. ! ! Subroutine mth$vjfolrp_m_v8 ! MTH$VFFOLRP_M_V8 ! ! First Order Linear Recurrence --- Multiplication or Addition ! ! The First Order Linear Recurrence --- Multiplication or Addition ! routines provide a vectorized algorithm for the linear recurrence ! relation that includes either a multiplication or an addition ! operation, but not both. ! ! Subroutine mth$vffolrp_m_v8 ! MTH$VDFOLRP_M_V8 ! ! First Order Linear Recurrence --- Multiplication or Addition ! ! The First Order Linear Recurrence --- Multiplication or Addition ! routines provide a vectorized algorithm for the linear recurrence ! relation that includes either a multiplication or an addition ! operation, but not both. ! ! Subroutine mth$vdfolrp_m_v8 ! MTH$VGFOLRP_M_V8 ! ! First Order Linear Recurrence --- Multiplication or Addition ! ! The First Order Linear Recurrence --- Multiplication or Addition ! routines provide a vectorized algorithm for the linear recurrence ! relation that includes either a multiplication or an addition ! operation, but not both. ! ! Subroutine mth$vgfolrp_m_v8 ! MTH$VJFOLRN_M_V8 ! ! First Order Linear Recurrence --- Multiplication or Addition ! ! The First Order Linear Recurrence --- Multiplication or Addition ! routines provide a vectorized algorithm for the linear recurrence ! relation that includes either a multiplication or an addition ! operation, but not both. ! ! Subroutine mth$vjfolrn_m_v8 ! MTH$VFFOLRN_M_V8 ! ! First Order Linear Recurrence --- Multiplication or Addition ! ! The First Order Linear Recurrence --- Multiplication or Addition ! routines provide a vectorized algorithm for the linear recurrence ! relation that includes either a multiplication or an addition ! operation, but not both. ! ! Subroutine mth$vffolrn_m_v8 ! MTH$VDFOLRN_M_V8 ! ! First Order Linear Recurrence --- Multiplication or Addition ! ! The First Order Linear Recurrence --- Multiplication or Addition ! routines provide a vectorized algorithm for the linear recurrence ! relation that includes either a multiplication or an addition ! operation, but not both. ! ! Subroutine mth$vdfolrn_m_v8 ! MTH$VGFOLRN_M_V8 ! ! First Order Linear Recurrence --- Multiplication or Addition ! ! The First Order Linear Recurrence --- Multiplication or Addition ! routines provide a vectorized algorithm for the linear recurrence ! relation that includes either a multiplication or an addition ! operation, but not both. ! ! Subroutine mth$vgfolrn_m_v8 ! MTH$VJFOLRP_A_V8 ! ! First Order Linear Recurrence --- Multiplication or Addition ! ! The First Order Linear Recurrence --- Multiplication or Addition ! routines provide a vectorized algorithm for the linear recurrence ! relation that includes either a multiplication or an addition ! operation, but not both. ! ! Subroutine mth$vjfolrp_a_v8 ! MTH$VFFOLRP_A_V8 ! ! First Order Linear Recurrence --- Multiplication or Addition ! ! The First Order Linear Recurrence --- Multiplication or Addition ! routines provide a vectorized algorithm for the linear recurrence ! relation that includes either a multiplication or an addition ! operation, but not both. ! ! Subroutine mth$vffolrp_a_v8 ! MTH$VDFOLRP_A_V8 ! ! First Order Linear Recurrence --- Multiplication or Addition ! ! The First Order Linear Recurrence --- Multiplication or Addition ! routines provide a vectorized algorithm for the linear recurrence ! relation that includes either a multiplication or an addition ! operation, but not both. ! ! Subroutine mth$vdfolrp_a_v8 ! MTH$VGFOLRP_A_V8 ! ! First Order Linear Recurrence --- Multiplication or Addition ! ! The First Order Linear Recurrence --- Multiplication or Addition ! routines provide a vectorized algorithm for the linear recurrence ! relation that includes either a multiplication or an addition ! operation, but not both. ! ! Subroutine mth$vgfolrp_a_v8 ! MTH$VJFOLRN_A_V8 ! ! First Order Linear Recurrence --- Multiplication or Addition ! ! The First Order Linear Recurrence --- Multiplication or Addition ! routines provide a vectorized algorithm for the linear recurrence ! relation that includes either a multiplication or an addition ! operation, but not both. ! ! Subroutine mth$vjfolrn_a_v8 ! MTH$VFFOLRN_A_V8 ! ! First Order Linear Recurrence --- Multiplication or Addition ! ! The First Order Linear Recurrence --- Multiplication or Addition ! routines provide a vectorized algorithm for the linear recurrence ! relation that includes either a multiplication or an addition ! operation, but not both. ! ! Subroutine mth$vffolrn_a_v8 ! MTH$VDFOLRN_A_V8 ! ! First Order Linear Recurrence --- Multiplication or Addition ! ! The First Order Linear Recurrence --- Multiplication or Addition ! routines provide a vectorized algorithm for the linear recurrence ! relation that includes either a multiplication or an addition ! operation, but not both. ! ! Subroutine mth$vdfolrn_a_v8 ! MTH$VGFOLRN_A_V8 ! ! First Order Linear Recurrence --- Multiplication or Addition ! ! The First Order Linear Recurrence --- Multiplication or Addition ! routines provide a vectorized algorithm for the linear recurrence ! relation that includes either a multiplication or an addition ! operation, but not both. ! ! Subroutine mth$vgfolrn_a_v8 ! 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 ! line_break ! H-floating value ! (H-floating Value) routine returns ! the hyperbolic arc tangent (as an ! line_break ! H-floating value of that angle. ! line_break ! ! 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 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 CDEC$ END OPTIONS