%IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF ! *************************************************************************** ! * ! COPYRIGHT (c) 1988 BY * ! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * ! ALL RIGHTS RESERVED. * ! * ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ! TRANSFERRED. * ! * ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! CORPORATION. * ! * ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * ! * ! *************************************************************************** ! MTH$ACOS ! ! Arc Cosine of Angle Expressed in Radians ! ! Given the cosine of an angle, the Arc Cosine of Angle Expressed in Radians ! routine returns that angle ! (in radians). ! EXTERNAL SINGLE FUNCTION mth$acos & ( & SINGLE BY REF & ) ! MTH$DACOS ! ! Arc Cosine of Angle Expressed in Radians ! ! Given the cosine of an angle, the Arc Cosine of Angle Expressed in Radians ! routine returns that angle ! (in radians). ! EXTERNAL DOUBLE FUNCTION mth$dacos & ( & DOUBLE BY REF & ) ! MTH$GACOS ! ! Arc Cosine of Angle Expressed in Radians ! ! Given the cosine of an angle, the Arc Cosine of Angle Expressed in Radians ! routine returns that angle ! (in radians). ! EXTERNAL GFLOAT FUNCTION mth$gacos & ( & GFLOAT BY REF & ) ! MTH$ACOSD ! ! Arc Cosine of Angle Expressed in Degrees ! ! Given the cosine of an angle, the Arc Cosine of Angle Expressed in Degrees ! routine returns that ! angle (in degrees). ! EXTERNAL SINGLE FUNCTION mth$acosd & ( & SINGLE BY REF & ) ! MTH$DACOSD ! ! Arc Cosine of Angle Expressed in Degrees ! ! Given the cosine of an angle, the Arc Cosine of Angle Expressed in Degrees ! routine returns that ! angle (in degrees). ! EXTERNAL DOUBLE FUNCTION mth$dacosd & ( & DOUBLE BY REF & ) ! MTH$GACOSD ! ! Arc Cosine of Angle Expressed in Degrees ! ! Given the cosine of an angle, the Arc Cosine of Angle Expressed in Degrees ! routine returns that ! angle (in degrees). ! EXTERNAL GFLOAT FUNCTION mth$gacosd & ( & GFLOAT BY REF & ) ! MTH$ASIN ! ! Arc Sine in Radians ! ! Given the sine of an angle, the Arc Sine in Radians ! routine returns that angle ! (in radians). ! EXTERNAL SINGLE FUNCTION mth$asin & ( & SINGLE BY REF & ) ! MTH$DASIN ! ! Arc Sine in Radians ! ! Given the sine of an angle, the Arc Sine in Radians ! routine returns that angle ! (in radians). ! EXTERNAL DOUBLE FUNCTION mth$dasin & ( & DOUBLE BY REF & ) ! MTH$GASIN ! ! Arc Sine in Radians ! ! Given the sine of an angle, the Arc Sine in Radians ! routine returns that angle ! (in radians). ! EXTERNAL GFLOAT FUNCTION mth$gasin & ( & GFLOAT BY REF & ) ! MTH$ASIND ! ! Arc Sine in Degrees ! ! Given the sine of an angle, the Arc Sine in Degrees ! routine returns that angle ! (in degrees). ! EXTERNAL SINGLE FUNCTION mth$asind & ( & SINGLE BY REF & ) ! MTH$DASIND ! ! Arc Sine in Degrees ! ! Given the sine of an angle, the Arc Sine in Degrees ! routine returns that angle ! (in degrees). ! EXTERNAL DOUBLE FUNCTION mth$dasind & ( & DOUBLE BY REF & ) ! MTH$GASIND ! ! Arc Sine in Degrees ! ! Given the sine of an angle, the Arc Sine in Degrees ! routine returns that angle ! (in degrees). ! EXTERNAL GFLOAT FUNCTION mth$gasind & ( & GFLOAT BY REF & ) ! MTH$ATAN ! ! Arc Tangent in Radians ! ! Given the tangent of an angle, the Arc Tangent in Radians ! routine returns that angle (in radians). ! EXTERNAL SINGLE FUNCTION mth$atan & ( & SINGLE BY REF & ) ! MTH$DATAN ! ! Arc Tangent in Radians ! ! Given the tangent of an angle, the Arc Tangent in Radians ! routine returns that angle (in radians). ! EXTERNAL DOUBLE FUNCTION mth$datan & ( & DOUBLE BY REF & ) ! MTH$GATAN ! ! Arc Tangent in Radians ! ! Given the tangent of an angle, the Arc Tangent in Radians ! routine returns that angle (in radians). ! EXTERNAL GFLOAT FUNCTION mth$gatan & ( & GFLOAT BY REF & ) ! MTH$ATAN2 ! ! Arc Tangent in Radians with Two Arguments ! ! Given cosine and cosine, the Arc Tangent in ! Radians with Two Arguments ! routine returns the angle (in radians) ! whose tangent is given by the quotient of cosine and cosine, ! cosine/cosine. ! EXTERNAL SINGLE FUNCTION mth$atan2 & ( & SINGLE BY REF, & SINGLE BY REF & ) ! MTH$DATAN2 ! ! Arc Tangent in Radians with Two Arguments ! ! Given cosine and cosine, the Arc Tangent in ! Radians with Two Arguments ! routine returns the angle (in radians) ! whose tangent is given by the quotient of cosine and cosine, ! cosine/cosine. ! EXTERNAL DOUBLE FUNCTION mth$datan2 & ( & DOUBLE BY REF, & DOUBLE BY REF & ) ! MTH$GATAN2 ! ! Arc Tangent in Radians with Two Arguments ! ! Given cosine and cosine, the Arc Tangent in ! Radians with Two Arguments ! routine returns the angle (in radians) ! whose tangent is given by the quotient of cosine and cosine, ! cosine/cosine. ! EXTERNAL GFLOAT FUNCTION mth$gatan2 & ( & GFLOAT BY REF, & GFLOAT BY REF & ) ! MTH$ATAND ! ! Arc Tangent in Degrees ! ! Given the tangent of an angle, the Arc Tangent in Degrees ! routine returns that angle (in degrees). ! EXTERNAL SINGLE FUNCTION mth$atand & ( & SINGLE BY REF & ) ! MTH$DATAND ! ! Arc Tangent in Degrees ! ! Given the tangent of an angle, the Arc Tangent in Degrees ! routine returns that angle (in degrees). ! EXTERNAL DOUBLE FUNCTION mth$datand & ( & DOUBLE BY REF & ) ! MTH$GATAND ! ! Arc Tangent in Degrees ! ! Given the tangent of an angle, the Arc Tangent in Degrees ! routine returns that angle (in degrees). ! EXTERNAL GFLOAT FUNCTION mth$gatand & ( & GFLOAT BY REF & ) ! MTH$ATANH ! ! Hyperbolic Arc Tangent ! ! Given the hyperbolic tangent of an angle, the Hyperbolic Arc Tangent ! routine returns ! the hyperbolic arc tangent of that angle. ! EXTERNAL SINGLE FUNCTION mth$atanh & ( & SINGLE BY REF & ) ! MTH$DATANH ! ! Hyperbolic Arc Tangent ! ! Given the hyperbolic tangent of an angle, the Hyperbolic Arc Tangent ! routine returns ! the hyperbolic arc tangent of that angle. ! EXTERNAL DOUBLE FUNCTION mth$datanh & ( & DOUBLE BY REF & ) ! MTH$GATANH ! ! Hyperbolic Arc Tangent ! ! Given the hyperbolic tangent of an angle, the Hyperbolic Arc Tangent ! routine returns ! the hyperbolic arc tangent of that angle. ! EXTERNAL GFLOAT FUNCTION mth$gatanh & ( & GFLOAT BY REF & ) ! MTH$ATAND2 ! ! Arc Tangent in Degrees with Two Arguments ! ! Given cosine and cosine, the Arc Tangent in ! Degrees with Two Arguments ! routine returns ! the angle (in degrees) whose tangent ! is given by the quotient of cosine and cosine, ! cosine/cosine. ! EXTERNAL SINGLE FUNCTION mth$atand2 & ( & SINGLE BY REF, & SINGLE BY REF & ) ! MTH$DATAND2 ! ! Arc Tangent in Degrees with Two Arguments ! ! Given cosine and cosine, the Arc Tangent in ! Degrees with Two Arguments ! routine returns ! the angle (in degrees) whose tangent ! is given by the quotient of cosine and cosine, ! cosine/cosine. ! EXTERNAL DOUBLE FUNCTION mth$datand2 & ( & DOUBLE BY REF, & DOUBLE BY REF & ) ! MTH$GATAND2 ! ! Arc Tangent in Degrees with Two Arguments ! ! Given cosine and cosine, the Arc Tangent in ! Degrees with Two Arguments ! routine returns ! the angle (in degrees) whose tangent ! is given by the quotient of cosine and cosine, ! cosine/cosine. ! EXTERNAL GFLOAT FUNCTION mth$gatand2 & ( & GFLOAT BY REF, & GFLOAT BY REF & ) ! 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. ! EXTERNAL LONG FUNCTION blas1$visamax & ( & LONG BY REF, & SINGLE DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL LONG FUNCTION blas1$vidamax & ( & LONG BY REF, & DOUBLE DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL LONG FUNCTION blas1$vigamax & ( & LONG BY REF, & GFLOAT DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL LONG FUNCTION blas1$vicamax & ( & LONG BY REF, & BASIC$F_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL LONG FUNCTION blas1$vizamax & ( & LONG BY REF, & BASIC$D_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL LONG FUNCTION blas1$viwamax & ( & LONG BY REF, & BASIC$G_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SINGLE FUNCTION blas1$vsasum & ( & LONG BY REF, & SINGLE DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL DOUBLE FUNCTION blas1$vdasum & ( & LONG BY REF, & DOUBLE DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL GFLOAT FUNCTION blas1$vgasum & ( & LONG BY REF, & GFLOAT DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL BASIC$F_FLOATING_COMPLEX FUNCTION blas1$vscasum & ( & LONG BY REF, & BASIC$F_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL BASIC$D_FLOATING_COMPLEX FUNCTION blas1$vdzasum & ( & LONG BY REF, & BASIC$D_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL BASIC$G_FLOATING_COMPLEX FUNCTION blas1$vgwasum & ( & LONG BY REF, & BASIC$G_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB blas1$vsaxpy & ( & LONG BY REF, & SINGLE DIM() BY REF, & SINGLE DIM() BY REF, & LONG BY REF, & SINGLE DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB blas1$vdaxpy & ( & LONG BY REF, & DOUBLE DIM() BY REF, & DOUBLE DIM() BY REF, & LONG BY REF, & DOUBLE DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB blas1$vgaxpy & ( & LONG BY REF, & GFLOAT DIM() BY REF, & GFLOAT DIM() BY REF, & LONG BY REF, & GFLOAT DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB blas1$vcaxpy & ( & LONG BY REF, & BASIC$F_FLOATING_COMPLEX DIM() BY REF, & BASIC$F_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF, & BASIC$F_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB blas1$vzaxpy & ( & LONG BY REF, & BASIC$D_FLOATING_COMPLEX DIM() BY REF, & BASIC$D_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF, & BASIC$D_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB blas1$vwaxpy & ( & LONG BY REF, & BASIC$G_FLOATING_COMPLEX DIM() BY REF, & BASIC$G_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF, & BASIC$G_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF & ) ! BLAS1$VSCOPY ! ! Copy a Vector ! ! The Copy a Vector routines copy n elements of the ! vector x to the vector y. ! EXTERNAL SUB blas1$vscopy & ( & LONG BY REF, & SINGLE DIM() BY REF, & LONG BY REF, & SINGLE DIM() BY REF, & LONG BY REF & ) ! BLAS1$VDCOPY ! ! Copy a Vector ! ! The Copy a Vector routines copy n elements of the ! vector x to the vector y. ! EXTERNAL SUB blas1$vdcopy & ( & LONG BY REF, & DOUBLE DIM() BY REF, & LONG BY REF, & DOUBLE DIM() BY REF, & LONG BY REF & ) ! BLAS1$VCCOPY ! ! Copy a Vector ! ! The Copy a Vector routines copy n elements of the ! vector x to the vector y. ! EXTERNAL SUB blas1$vccopy & ( & LONG BY REF, & BASIC$F_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF, & BASIC$F_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF & ) ! BLAS1$VZCOPY ! ! Copy a Vector ! ! The Copy a Vector routines copy n elements of the ! vector x to the vector y. ! EXTERNAL SUB blas1$vzcopy & ( & LONG BY REF, & BASIC$D_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF, & BASIC$D_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF & ) ! 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 ! EXTERNAL SINGLE FUNCTION blas1$vsdot & ( & LONG BY REF, & SINGLE DIM() BY REF, & LONG BY REF, & SINGLE DIM() BY REF, & LONG BY REF & ) ! 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 ! EXTERNAL DOUBLE FUNCTION blas1$vddot & ( & LONG BY REF, & DOUBLE DIM() BY REF, & LONG BY REF, & DOUBLE DIM() BY REF, & LONG BY REF & ) ! 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 ! EXTERNAL GFLOAT FUNCTION blas1$vgdot & ( & LONG BY REF, & GFLOAT DIM() BY REF, & LONG BY REF, & GFLOAT DIM() BY REF, & LONG BY REF & ) ! 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 ! EXTERNAL BASIC$F_FLOATING_COMPLEX FUNCTION blas1$vcdotu & ( & LONG BY REF, & BASIC$F_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF, & BASIC$F_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF & ) ! 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 ! EXTERNAL BASIC$F_FLOATING_COMPLEX FUNCTION blas1$vcdotc & ( & LONG BY REF, & BASIC$F_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF, & BASIC$F_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF & ) ! 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 ! EXTERNAL BASIC$D_FLOATING_COMPLEX FUNCTION blas1$vzdotu & ( & LONG BY REF, & BASIC$D_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF, & BASIC$D_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF & ) ! 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 ! EXTERNAL BASIC$D_FLOATING_COMPLEX FUNCTION blas1$vzdotc & ( & LONG BY REF, & BASIC$D_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF, & BASIC$D_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF & ) ! 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 ! EXTERNAL BASIC$G_FLOATING_COMPLEX FUNCTION blas1$vwdotu & ( & LONG BY REF, & BASIC$G_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF, & BASIC$G_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF & ) ! 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 ! EXTERNAL BASIC$G_FLOATING_COMPLEX FUNCTION blas1$vwdotc & ( & LONG BY REF, & BASIC$G_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF, & BASIC$G_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SINGLE FUNCTION blas1$vsnrm2 & ( & LONG BY REF, & SINGLE DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL DOUBLE FUNCTION blas1$vdnrm2 & ( & LONG BY REF, & DOUBLE DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL GFLOAT FUNCTION blas1$vgnrm2 & ( & LONG BY REF, & GFLOAT DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL BASIC$F_FLOATING_COMPLEX FUNCTION blas1$vscnrm2 & ( & LONG BY REF, & BASIC$F_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL BASIC$D_FLOATING_COMPLEX FUNCTION blas1$vdznrm2 & ( & LONG BY REF, & BASIC$D_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL BASIC$G_FLOATING_COMPLEX FUNCTION blas1$vgwnrm2 & ( & LONG BY REF, & BASIC$G_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB blas1$vsrot & ( & LONG BY REF, & SINGLE DIM() BY REF, & LONG BY REF, & SINGLE DIM() BY REF, & LONG BY REF, & SINGLE BY REF, & SINGLE BY REF & ) ! 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. ! EXTERNAL SUB blas1$vdrot & ( & LONG BY REF, & DOUBLE DIM() BY REF, & LONG BY REF, & DOUBLE DIM() BY REF, & LONG BY REF, & DOUBLE BY REF, & DOUBLE BY REF & ) ! 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. ! EXTERNAL SUB blas1$vgrot & ( & LONG BY REF, & GFLOAT DIM() BY REF, & LONG BY REF, & GFLOAT DIM() BY REF, & LONG BY REF, & GFLOAT BY REF, & GFLOAT BY REF & ) ! 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. ! EXTERNAL SUB blas1$vcsrot & ( & LONG BY REF, & BASIC$F_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF, & BASIC$F_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF, & BASIC$F_FLOATING_COMPLEX BY REF, & BASIC$F_FLOATING_COMPLEX BY REF & ) ! 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. ! EXTERNAL SUB blas1$vzdrot & ( & LONG BY REF, & BASIC$D_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF, & BASIC$D_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF, & BASIC$D_FLOATING_COMPLEX BY REF, & BASIC$D_FLOATING_COMPLEX BY REF & ) ! 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. ! EXTERNAL SUB blas1$vwgrot & ( & LONG BY REF, & BASIC$G_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF, & BASIC$G_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF, & BASIC$G_FLOATING_COMPLEX BY REF, & BASIC$G_FLOATING_COMPLEX BY REF & ) ! 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. ! EXTERNAL SUB blas1$vsrotg & ( & SINGLE BY REF, & SINGLE BY REF, & SINGLE BY REF, & SINGLE BY REF & ) ! 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. ! EXTERNAL SUB blas1$vdrotg & ( & DOUBLE BY REF, & DOUBLE BY REF, & DOUBLE BY REF, & DOUBLE BY REF & ) ! 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. ! EXTERNAL SUB blas1$vgrotg & ( & GFLOAT BY REF, & GFLOAT BY REF, & GFLOAT BY REF, & GFLOAT BY REF & ) ! 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. ! EXTERNAL SUB blas1$vcrotg & ( & BASIC$F_FLOATING_COMPLEX BY REF, & BASIC$F_FLOATING_COMPLEX BY REF, & BASIC$F_FLOATING_COMPLEX BY REF, & BASIC$F_FLOATING_COMPLEX BY REF & ) ! 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. ! EXTERNAL SUB blas1$vzrotg & ( & BASIC$D_FLOATING_COMPLEX BY REF, & BASIC$D_FLOATING_COMPLEX BY REF, & BASIC$D_FLOATING_COMPLEX BY REF, & BASIC$D_FLOATING_COMPLEX BY REF & ) ! 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. ! EXTERNAL SUB blas1$vwrotg & ( & BASIC$G_FLOATING_COMPLEX BY REF, & BASIC$G_FLOATING_COMPLEX BY REF, & BASIC$G_FLOATING_COMPLEX BY REF, & BASIC$G_FLOATING_COMPLEX BY REF & ) ! 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. ! EXTERNAL SUB blas1$vsscal & ( & LONG BY REF, & SINGLE BY REF, & SINGLE DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB blas1$vdscal & ( & LONG BY REF, & DOUBLE BY REF, & DOUBLE DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB blas1$vgscal & ( & LONG BY REF, & GFLOAT BY REF, & GFLOAT DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB blas1$vcscal & ( & LONG BY REF, & BASIC$F_FLOATING_COMPLEX BY REF, & BASIC$F_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB blas1$vcsscal & ( & LONG BY REF, & BASIC$F_FLOATING_COMPLEX BY REF, & BASIC$F_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB blas1$vzscal & ( & LONG BY REF, & BASIC$D_FLOATING_COMPLEX BY REF, & BASIC$D_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB blas1$vwscal & ( & LONG BY REF, & BASIC$G_FLOATING_COMPLEX BY REF, & BASIC$G_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB blas1$vzdscal & ( & LONG BY REF, & BASIC$D_FLOATING_COMPLEX BY REF, & BASIC$D_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB blas1$vwgscal & ( & LONG BY REF, & BASIC$D_FLOATING_COMPLEX BY REF, & BASIC$D_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB blas1$vsswap & ( & LONG BY REF, & SINGLE DIM() BY REF, & LONG BY REF, & SINGLE DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB blas1$vdswap & ( & LONG BY REF, & DOUBLE DIM() BY REF, & LONG BY REF, & DOUBLE DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB blas1$vcswap & ( & LONG BY REF, & BASIC$F_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF, & BASIC$F_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB blas1$vzswap & ( & LONG BY REF, & BASIC$D_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF, & BASIC$D_FLOATING_COMPLEX DIM() BY REF, & LONG BY REF & ) ! MTH$CABS ! ! Complex Absolute Value ! ! The Complex Absolute Value routine ! returns the absolute value of a complex number (r,i). ! EXTERNAL SINGLE FUNCTION mth$cabs & ( & BASIC$F_FLOATING_COMPLEX BY REF & ) ! MTH$CDABS ! ! Complex Absolute Value ! ! The Complex Absolute Value routine ! returns the absolute value of a complex number (r,i). ! EXTERNAL DOUBLE FUNCTION mth$cdabs & ( & BASIC$D_FLOATING_COMPLEX BY REF & ) ! MTH$CGABS ! ! Complex Absolute Value ! ! The Complex Absolute Value routine ! returns the absolute value of a complex number (r,i). ! EXTERNAL GFLOAT FUNCTION mth$cgabs & ( & BASIC$G_FLOATING_COMPLEX BY REF & ) ! MTH$CCOS ! ! Cosine of a Complex Number (F-floating Value) ! ! The Cosine of a Complex Number (F-floating Value) ! routine returns the cosine of a complex number as an ! F-floating value. ! EXTERNAL BASIC$F_FLOATING_COMPLEX FUNCTION mth$ccos & ( & BASIC$F_FLOATING_COMPLEX BY REF & ) ! MTH$CEXP ! ! Complex Exponential (F-floating Value) ! ! The Complex Exponential (F-floating Value) ! routine returns the complex exponential of a ! complex number as an F-floating value. ! EXTERNAL BASIC$F_FLOATING_COMPLEX FUNCTION mth$cexp & ( & BASIC$F_FLOATING_COMPLEX BY REF & ) ! MTH$CLOG ! ! Complex Natural Logarithm (F-floating Value) ! ! The Complex Natural Logarithm (F-floating Value) ! routine returns the complex natural logarithm of a complex number as ! an F-floating value. ! EXTERNAL BASIC$F_FLOATING_COMPLEX FUNCTION mth$clog & ( & BASIC$F_FLOATING_COMPLEX BY REF & ) ! MTH$CMPLX ! ! Complex Number Made from F-floating-Point ! ! The Complex Number Made from F-floating-Point ! routine returns a complex number from two floating-point input values. ! EXTERNAL BASIC$F_FLOATING_COMPLEX FUNCTION mth$cmplx & ( & SINGLE BY REF, & SINGLE BY REF & ) ! MTH$DCMPLX ! ! Complex Number Made from D- or G-floating-Point ! ! The Complex Number Made from ! D- or G-floating-Point ! routine returns a complex number from two D- or G-floating input values. ! EXTERNAL SUB mth$dcmplx & ( & BASIC$D_FLOATING_COMPLEX BY REF, & DOUBLE BY REF, & DOUBLE BY REF & ) ! MTH$GCMPLX ! ! Complex Number Made from D- or G-floating-Point ! ! The Complex Number Made from ! D- or G-floating-Point ! routine returns a complex number from two D- or G-floating input values. ! EXTERNAL SUB mth$gcmplx & ( & BASIC$G_FLOATING_COMPLEX BY REF, & GFLOAT BY REF, & GFLOAT BY REF & ) ! MTH$CONJG ! ! Conjugate of a Complex Number (F-floating Value) ! ! The Conjugate of a Complex Number (F-floating ! Value) ! routine returns the complex conjugate (r,-i) of a complex number ! (r,i) as an F-floating value. ! EXTERNAL BASIC$F_FLOATING_COMPLEX FUNCTION mth$conjg & ( & BASIC$F_FLOATING_COMPLEX BY REF & ) ! MTH$DCONJG ! ! Conjugate of a Complex Number ! ! The Conjugate of a Complex Number ! routine returns the complex conjugate (r,-i) of a complex number (r,i). ! EXTERNAL SUB mth$dconjg & ( & BASIC$D_FLOATING_COMPLEX BY REF, & BASIC$D_FLOATING_COMPLEX BY REF & ) ! MTH$GCONJG ! ! Conjugate of a Complex Number ! ! The Conjugate of a Complex Number ! routine returns the complex conjugate (r,-i) of a complex number (r,i). ! EXTERNAL SUB mth$gconjg & ( & BASIC$G_FLOATING_COMPLEX BY REF, & BASIC$G_FLOATING_COMPLEX BY REF & ) ! MTH$COS ! ! Cosine of Angle Expressed in Radians ! ! The Cosine of Angle Expressed in Radians ! routine returns the cosine of a given angle (in radians). ! EXTERNAL SINGLE FUNCTION mth$cos & ( & SINGLE BY REF & ) ! MTH$DCOS ! ! Cosine of Angle Expressed in Radians ! ! The Cosine of Angle Expressed in Radians ! routine returns the cosine of a given angle (in radians). ! EXTERNAL DOUBLE FUNCTION mth$dcos & ( & DOUBLE BY REF & ) ! MTH$GCOS ! ! Cosine of Angle Expressed in Radians ! ! The Cosine of Angle Expressed in Radians ! routine returns the cosine of a given angle (in radians). ! EXTERNAL GFLOAT FUNCTION mth$gcos & ( & GFLOAT BY REF & ) ! MTH$COSD ! ! Cosine of Angle Expressed in Degrees ! ! The Cosine of Angle Expressed in Degrees ! routine returns the cosine of a given angle (in degrees). ! EXTERNAL SINGLE FUNCTION mth$cosd & ( & SINGLE BY REF & ) ! MTH$DCOSD ! ! Cosine of Angle Expressed in Degrees ! ! The Cosine of Angle Expressed in Degrees ! routine returns the cosine of a given angle (in degrees). ! EXTERNAL DOUBLE FUNCTION mth$dcosd & ( & DOUBLE BY REF & ) ! MTH$GCOSD ! ! Cosine of Angle Expressed in Degrees ! ! The Cosine of Angle Expressed in Degrees ! routine returns the cosine of a given angle (in degrees). ! EXTERNAL GFLOAT FUNCTION mth$gcosd & ( & GFLOAT BY REF & ) ! MTH$COSH ! ! Hyperbolic Cosine ! ! The Hyperbolic Cosine ! routine returns the hyperbolic cosine of ! the input value. ! EXTERNAL SINGLE FUNCTION mth$cosh & ( & SINGLE BY REF & ) ! MTH$DCOSH ! ! Hyperbolic Cosine ! ! The Hyperbolic Cosine ! routine returns the hyperbolic cosine of ! the input value. ! EXTERNAL DOUBLE FUNCTION mth$dcosh & ( & DOUBLE BY REF & ) ! MTH$GCOSH ! ! Hyperbolic Cosine ! ! The Hyperbolic Cosine ! routine returns the hyperbolic cosine of ! the input value. ! EXTERNAL GFLOAT FUNCTION mth$gcosh & ( & GFLOAT BY REF & ) ! MTH$CSIN ! ! Sine of 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. ! EXTERNAL BASIC$F_FLOATING_COMPLEX FUNCTION mth$csin & ( & BASIC$F_FLOATING_COMPLEX BY REF & ) ! MTH$CSQRT ! ! Complex Square Root (F-floating Value) ! ! The Complex Square Root (F-floating Value) routine ! returns the complex square root of a complex number (r,i). ! EXTERNAL BASIC$F_FLOATING_COMPLEX FUNCTION mth$csqrt & ( & BASIC$F_FLOATING_COMPLEX BY REF & ) ! MTH$CVT_D_G ! ! Convert One Double-Precision Value ! ! The Convert One Double-Precision Value routines ! convert one double-precision value to the ! destination data type and return the result as a function value. ! MTH$CVT_D_G converts a D-floating value to G-floating and ! MTH$CVT_G_D converts a G-floating value to a D-floating value. ! EXTERNAL GFLOAT FUNCTION mth$cvt_d_g & ( & DOUBLE BY REF & ) ! MTH$CVT_G_D ! ! Convert One Double-Precision Value ! ! The Convert One Double-Precision Value routines ! convert one double-precision value to the ! destination data type and return the result as a function value. ! MTH$CVT_D_G converts a D_floating value to G_floating and ! MTH$CVT_G_D converts a G_floating value to a D_floating value. ! EXTERNAL DOUBLE FUNCTION mth$cvt_g_d & ( & GFLOAT BY REF & ) ! MTH$CVT_DA_GA ! ! Convert an Array of Double-Precision Values ! ! The Convert an Array of ! Double-Precision Values ! routines convert a contiguous array of ! double-precision values to the destination data type and return the results ! as an array. MTH$CVT_DA_GA converts D-floating values to G-floating and ! MTH$CVT_GA_DA converts G-floating values to D-floating. ! EXTERNAL SUB mth$cvt_da_ga & ( & DOUBLE DIM() BY REF, & GFLOAT DIM() BY REF, & OPTIONAL LONG BY REF & ) ! MTH$CVT_GA_DA ! ! Convert an Array of Double-Precision Values ! ! The Convert an Array of ! Double-Precision Values ! routines convert a contiguous array of ! double-precision values to the destination data type and return the results ! as an array. MTH$CVT_DA_GA converts D_floating values to G_floating and ! MTH$CVT_GA_DA converts G_floating values to D_floating. ! EXTERNAL SUB mth$cvt_ga_da & ( & GFLOAT DIM() BY REF, & DOUBLE DIM() BY REF, & OPTIONAL LONG BY REF & ) ! MTH$CDCOS ! ! Cosine of a Complex Number ! ! The Cosine of a Complex Number ! routine returns the cosine of a complex number. ! EXTERNAL SUB mth$cdcos & ( & BASIC$D_FLOATING_COMPLEX BY REF, & BASIC$D_FLOATING_COMPLEX BY REF & ) ! MTH$CGCOS ! ! Cosine of a Complex Number ! ! The Cosine of a Complex Number ! routine returns the cosine of a complex number. ! EXTERNAL SUB mth$cgcos & ( & BASIC$G_FLOATING_COMPLEX BY REF, & BASIC$G_FLOATING_COMPLEX BY REF & ) ! MTH$CDEXP ! ! Complex Exponential ! ! The Complex Exponential ! routine returns the complex exponential of a ! complex number. ! EXTERNAL SUB mth$cdexp & ( & BASIC$D_FLOATING_COMPLEX BY REF, & BASIC$D_FLOATING_COMPLEX BY REF & ) ! MTH$CGEXP ! ! Complex Exponential ! ! The Complex Exponential ! routine returns the complex exponential of a ! complex number. ! EXTERNAL SUB mth$cgexp & ( & BASIC$G_FLOATING_COMPLEX BY REF, & BASIC$G_FLOATING_COMPLEX BY REF & ) ! MTH$CDLOG ! ! Complex Natural Logarithm ! ! The Complex Natural Logarithm ! routine returns the complex natural logarithm of a complex number. ! EXTERNAL SUB mth$cdlog & ( & BASIC$D_FLOATING_COMPLEX BY REF, & BASIC$D_FLOATING_COMPLEX BY REF & ) ! MTH$CGLOG ! ! Complex Natural Logarithm ! ! The Complex Natural Logarithm ! routine returns the complex natural logarithm of a complex number. ! EXTERNAL SUB mth$cglog & ( & BASIC$G_FLOATING_COMPLEX BY REF, & BASIC$G_FLOATING_COMPLEX BY REF & ) ! MTH$CDSIN ! ! Sine of a Complex Number ! ! The Sine of a Complex Number ! routine returns the sine of a complex number (r,i). ! EXTERNAL SUB mth$cdsin & ( & BASIC$D_FLOATING_COMPLEX BY REF, & BASIC$D_FLOATING_COMPLEX BY REF & ) ! MTH$CGSIN ! ! Sine of Complex Number ! ! The Sine of Complex Number ! routine returns the sine of a complex number (r,i). ! EXTERNAL SUB mth$cgsin & ( & BASIC$G_FLOATING_COMPLEX BY REF, & BASIC$G_FLOATING_COMPLEX BY REF & ) ! MTH$CDSQRT ! ! Complex Square Root ! ! The Complex Square Root routine ! returns the complex square root of a complex number (r,i). ! EXTERNAL SUB mth$cdsqrt & ( & BASIC$D_FLOATING_COMPLEX BY REF, & BASIC$D_FLOATING_COMPLEX BY REF & ) ! MTH$CGSQRT ! ! Complex Square Root ! ! The Complex Square Root routine ! returns the complex square root of a complex number (r,i). ! EXTERNAL SUB mth$cgsqrt & ( & BASIC$G_FLOATING_COMPLEX BY REF, & BASIC$G_FLOATING_COMPLEX BY REF & ) ! MTH$EXP ! ! Exponential ! ! The Exponential ! routine returns the exponential of the input value. ! EXTERNAL SINGLE FUNCTION mth$exp & ( & SINGLE BY REF & ) ! MTH$DEXP ! ! Exponential ! ! The Exponential ! routine returns the exponential of the input value. ! EXTERNAL DOUBLE FUNCTION mth$dexp & ( & DOUBLE BY REF & ) ! MTH$GEXP ! ! Exponential ! ! The Exponential ! routine returns the exponential of the input value. ! EXTERNAL GFLOAT FUNCTION mth$gexp & ( & GFLOAT BY REF & ) ! MTH$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. ! EXTERNAL LONG FUNCTION mth$vjfolrlp_ma_v5 & ( & LONG BY REF, & LONG DIM() BY REF, & LONG BY REF, & LONG DIM() BY REF, & LONG BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SINGLE FUNCTION mth$vffolrlp_ma_v5 & ( & LONG BY REF, & SINGLE DIM() BY REF, & LONG BY REF, & SINGLE DIM() BY REF, & LONG BY REF, & SINGLE BY REF & ) ! 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. ! EXTERNAL DOUBLE FUNCTION mth$vdfolrlp_ma_v5 & ( & LONG BY REF, & DOUBLE DIM() BY REF, & LONG BY REF, & DOUBLE DIM() BY REF, & LONG BY REF, & DOUBLE BY REF & ) ! 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. ! EXTERNAL GFLOAT FUNCTION mth$vgfolrlp_ma_v5 & ( & LONG BY REF, & GFLOAT DIM() BY REF, & LONG BY REF, & GFLOAT DIM() BY REF, & LONG BY REF, & GFLOAT BY REF & ) ! 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. ! EXTERNAL LONG FUNCTION mth$vjfolrln_ma_v5 & ( & LONG BY REF, & LONG DIM() BY REF, & LONG BY REF, & LONG DIM() BY REF, & LONG BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SINGLE FUNCTION mth$vffolrln_ma_v5 & ( & LONG BY REF, & SINGLE DIM() BY REF, & LONG BY REF, & SINGLE DIM() BY REF, & LONG BY REF, & SINGLE BY REF & ) ! 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. ! EXTERNAL DOUBLE FUNCTION mth$vdfolrln_ma_v5 & ( & LONG BY REF, & DOUBLE DIM() BY REF, & LONG BY REF, & DOUBLE DIM() BY REF, & LONG BY REF, & DOUBLE BY REF & ) ! 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. ! EXTERNAL GFLOAT FUNCTION mth$vgfolrln_ma_v5 & ( & LONG BY REF, & GFLOAT DIM() BY REF, & LONG BY REF, & GFLOAT DIM() BY REF, & LONG BY REF, & GFLOAT BY REF & ) ! 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. ! EXTERNAL LONG FUNCTION mth$vjfolrlp_m_v2 & ( & LONG BY REF, & LONG DIM() BY REF, & LONG BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SINGLE FUNCTION mth$vffolrlp_m_v2 & ( & LONG BY REF, & SINGLE DIM() BY REF, & LONG BY REF, & SINGLE BY REF & ) ! 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. ! EXTERNAL DOUBLE FUNCTION mth$vdfolrlp_m_v2 & ( & LONG BY REF, & DOUBLE DIM() BY REF, & LONG BY REF, & DOUBLE BY REF & ) ! 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. ! EXTERNAL GFLOAT FUNCTION mth$vgfolrlp_m_v2 & ( & LONG BY REF, & GFLOAT DIM() BY REF, & LONG BY REF, & GFLOAT BY REF & ) ! 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. ! EXTERNAL LONG FUNCTION mth$vjfolrln_m_v2 & ( & LONG BY REF, & LONG DIM() BY REF, & LONG BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SINGLE FUNCTION mth$vffolrln_m_v2 & ( & LONG BY REF, & SINGLE DIM() BY REF, & LONG BY REF, & SINGLE BY REF & ) ! 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. ! EXTERNAL DOUBLE FUNCTION mth$vdfolrln_m_v2 & ( & LONG BY REF, & DOUBLE DIM() BY REF, & LONG BY REF, & DOUBLE BY REF & ) ! 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. ! EXTERNAL GFLOAT FUNCTION mth$vgfolrln_m_v2 & ( & LONG BY REF, & GFLOAT DIM() BY REF, & LONG BY REF, & GFLOAT BY REF & ) ! 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. ! EXTERNAL LONG FUNCTION mth$vjfolrlp_a_v2 & ( & LONG BY REF, & LONG DIM() BY REF, & LONG BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SINGLE FUNCTION mth$vffolrlp_a_v2 & ( & LONG BY REF, & SINGLE DIM() BY REF, & LONG BY REF, & SINGLE BY REF & ) ! 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. ! EXTERNAL DOUBLE FUNCTION mth$vdfolrlp_a_v2 & ( & LONG BY REF, & DOUBLE DIM() BY REF, & LONG BY REF, & DOUBLE BY REF & ) ! 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. ! EXTERNAL GFLOAT FUNCTION mth$vgfolrlp_a_v2 & ( & LONG BY REF, & GFLOAT DIM() BY REF, & LONG BY REF, & GFLOAT BY REF & ) ! 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. ! EXTERNAL LONG FUNCTION mth$vjfolrln_a_v2 & ( & LONG BY REF, & LONG DIM() BY REF, & LONG BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SINGLE FUNCTION mth$vffolrln_a_v2 & ( & LONG BY REF, & SINGLE DIM() BY REF, & LONG BY REF, & SINGLE BY REF & ) ! 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. ! EXTERNAL DOUBLE FUNCTION mth$vdfolrln_a_v2 & ( & LONG BY REF, & DOUBLE DIM() BY REF, & LONG BY REF, & DOUBLE BY REF & ) ! 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. ! EXTERNAL GFLOAT FUNCTION mth$vgfolrln_a_v2 & ( & LONG BY REF, & GFLOAT DIM() BY REF, & LONG BY REF, & GFLOAT BY REF & ) ! 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. ! EXTERNAL SUB mth$vjfolrp_ma_v15 & ( & LONG BY REF, & LONG DIM() BY REF, & LONG BY REF, & LONG DIM() BY REF, & LONG BY REF, & LONG DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB mth$vffolrp_ma_v15 & ( & LONG BY REF, & SINGLE DIM() BY REF, & LONG BY REF, & SINGLE DIM() BY REF, & LONG BY REF, & SINGLE DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB mth$vdfolrp_ma_v15 & ( & LONG BY REF, & DOUBLE DIM() BY REF, & LONG BY REF, & DOUBLE DIM() BY REF, & LONG BY REF, & DOUBLE DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB mth$vgfolrp_ma_v15 & ( & LONG BY REF, & GFLOAT DIM() BY REF, & LONG BY REF, & GFLOAT DIM() BY REF, & LONG BY REF, & GFLOAT DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB mth$vjfolrn_ma_v15 & ( & LONG BY REF, & LONG DIM() BY REF, & LONG BY REF, & LONG DIM() BY REF, & LONG BY REF, & LONG DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB mth$vffolrn_ma_v15 & ( & LONG BY REF, & SINGLE DIM() BY REF, & LONG BY REF, & SINGLE DIM() BY REF, & LONG BY REF, & SINGLE DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB mth$vdfolrn_ma_v15 & ( & LONG BY REF, & DOUBLE DIM() BY REF, & LONG BY REF, & DOUBLE DIM() BY REF, & LONG BY REF, & DOUBLE DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB mth$vgfolrn_ma_v15 & ( & LONG BY REF, & GFLOAT DIM() BY REF, & LONG BY REF, & GFLOAT DIM() BY REF, & LONG BY REF, & GFLOAT DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB mth$vjfolrp_m_v8 & ( & LONG BY REF, & LONG DIM() BY REF, & LONG BY REF, & LONG DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB mth$vffolrp_m_v8 & ( & LONG BY REF, & SINGLE DIM() BY REF, & LONG BY REF, & SINGLE DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB mth$vdfolrp_m_v8 & ( & LONG BY REF, & DOUBLE DIM() BY REF, & LONG BY REF, & DOUBLE DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB mth$vgfolrp_m_v8 & ( & LONG BY REF, & GFLOAT DIM() BY REF, & LONG BY REF, & GFLOAT DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB mth$vjfolrn_m_v8 & ( & LONG BY REF, & LONG DIM() BY REF, & LONG BY REF, & LONG DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB mth$vffolrn_m_v8 & ( & LONG BY REF, & SINGLE DIM() BY REF, & LONG BY REF, & SINGLE DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB mth$vdfolrn_m_v8 & ( & LONG BY REF, & DOUBLE DIM() BY REF, & LONG BY REF, & DOUBLE DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB mth$vgfolrn_m_v8 & ( & LONG BY REF, & GFLOAT DIM() BY REF, & LONG BY REF, & GFLOAT DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB mth$vjfolrp_a_v8 & ( & LONG BY REF, & LONG DIM() BY REF, & LONG BY REF, & LONG DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB mth$vffolrp_a_v8 & ( & LONG BY REF, & SINGLE DIM() BY REF, & LONG BY REF, & SINGLE DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB mth$vdfolrp_a_v8 & ( & LONG BY REF, & DOUBLE DIM() BY REF, & LONG BY REF, & DOUBLE DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB mth$vgfolrp_a_v8 & ( & LONG BY REF, & GFLOAT DIM() BY REF, & LONG BY REF, & GFLOAT DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB mth$vjfolrn_a_v8 & ( & LONG BY REF, & LONG DIM() BY REF, & LONG BY REF, & LONG DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB mth$vffolrn_a_v8 & ( & LONG BY REF, & SINGLE DIM() BY REF, & LONG BY REF, & SINGLE DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB mth$vdfolrn_a_v8 & ( & LONG BY REF, & DOUBLE DIM() BY REF, & LONG BY REF, & DOUBLE DIM() BY REF, & LONG BY REF & ) ! 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. ! EXTERNAL SUB mth$vgfolrn_a_v8 & ( & LONG BY REF, & GFLOAT DIM() BY REF, & LONG BY REF, & GFLOAT DIM() BY REF, & LONG BY REF & ) ! MTH$HACOS ! ! Arc Cosine of Angle Expressed in Radians (H-floating Value) ! ! Given the cosine of an angle, the Arc Cosine of Angle Expressed in ! Radians (H-floating Value) routine returns that angle (in radians) in ! H-floating-point precision. ! EXTERNAL SUB mth$hacos & ( & HFLOAT BY REF, & HFLOAT BY REF & ) ! MTH$HACOSD ! ! Arc Cosine of Angle Expressed in Degrees (H-Floating Value) ! ! Given the cosine of an angle, the Arc Cosine of Angle Expressed in ! Degrees (H-Floating Value) ! routine returns that ! angle (in degrees) as an H-floating value. ! EXTERNAL SUB mth$hacosd & ( & HFLOAT BY REF, & HFLOAT BY REF & ) ! MTH$HASIN ! ! Arc Sine in Radians (H-floating Value) ! ! Given the sine of an angle, the Arc Sine in Radians (H-floating Value) ! routine returns that angle ! (in radians) as an H-floating value. ! EXTERNAL SUB mth$hasin & ( & HFLOAT BY REF, & HFLOAT BY REF & ) ! MTH$HASIND ! ! Arc Sine in Degrees (H-Floating Value) ! ! Given the sine of an angle, the Arc Sine in Degrees (H-Floating Value) ! routine returns that angle ! (in degrees) as an H-floating value. ! EXTERNAL SUB mth$hasind & ( & HFLOAT BY REF, & HFLOAT BY REF & ) ! MTH$HATAN ! ! Arc Tangent in Radians (H-floating Value) ! ! Given the tangent of an angle, the Arc Tangent in Radians (H-floating Value) ! routine returns that angle (in radians) ! as an H-floating value. ! EXTERNAL SUB mth$hatan & ( & HFLOAT BY REF, & HFLOAT BY REF & ) ! MTH$HATAN2 ! ! Arc Tangent in Radians (H-floating Value) with Two Arguments ! ! Given cosine and cosine, the Arc Tangent in ! Radians (H-floating Value) with Two Arguments routine returns the ! angle (in radians) as an H-floating value whose tangent is given by ! the quotient of cosine and cosine, ! cosine/cosine. ! EXTERNAL SUB mth$hatan2 & ( & HFLOAT BY REF, & HFLOAT BY REF, & HFLOAT BY REF & ) ! MTH$HATAND ! ! Arc Tangent in Degrees (H-floating Value) ! ! Given the tangent of an angle, the Arc Tangent in Degrees (H-floating Value) ! routine returns that angle (in degrees) ! as an H-floating point value. ! EXTERNAL SUB mth$hatand & ( & HFLOAT BY REF, & HFLOAT BY REF & ) ! 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 ! EXTERNAL SUB mth$hatanh & ( & HFLOAT BY REF, & HFLOAT BY REF & ) ! MTH$HCOS ! ! Cosine of Angle Expressed in Radians (H-floating Value) ! ! The Cosine of Angle Expressed in Radians ! (H-floating Value) ! routine returns the cosine of a given angle (in radians) as an ! H-floating value. ! EXTERNAL SUB mth$hcos & ( & HFLOAT BY REF, & HFLOAT BY REF & ) ! MTH$HCOSD ! ! Cosine of Angle Expressed in Degrees (H-floating Value) ! ! The Cosine of Angle Expressed in Degrees ! (H-floating Value) ! routine returns the cosine of a given angle (in degrees) as an ! H-floating value. ! EXTERNAL SUB mth$hcosd & ( & HFLOAT BY REF, & HFLOAT BY REF & ) ! MTH$HCOSH ! ! Hyperbolic Cosine (H-floating Value) ! ! The Hyperbolic Cosine ! routine returns the hyperbolic cosine of ! the input value as an H-floating value. ! EXTERNAL SUB mth$hcosh & ( & HFLOAT BY REF, & HFLOAT BY REF & ) ! MTH$HEXP ! ! Exponential (H-floating Value) ! ! The Exponential ! routine returns the exponential of the input value as an H-floating ! value. ! EXTERNAL SUB mth$hexp & ( & HFLOAT BY REF, & HFLOAT BY REF & ) ! MTH$HLOG10 ! ! Common Logarithm (H-floating Value) ! ! The Common Logarithm (H-floating Value) ! routine returns the common (base 10) logarithm of ! the input argument as an H-floating value. ! EXTERNAL SUB mth$hlog10 & ( & HFLOAT BY REF, & HFLOAT BY REF & ) ! MTH$HLOG ! ! Natural Logarithm (H-floating Value) ! ! The Natural Logarithm (H-floating Value) ! routine returns the natural (base e) logarithm of ! the input argument as an H-floating value. ! EXTERNAL SUB mth$hlog & ( & HFLOAT BY REF, & HFLOAT BY REF & ) ! MTH$HLOG2 ! ! Base 2 Logarithm (H-floating Value) ! ! The Base 2 Logarithm (H-floating Value) ! routine returns the base 2 logarithm of the input value ! specified by floating-point-input-value as an H-floating ! value. ! EXTERNAL SUB mth$hlog2 & ( & HFLOAT BY REF, & HFLOAT BY REF & ) ! MTH$HSIN ! ! Sine of Angle Expressed in Radians (H-floating Value) ! ! The Sine of Angle Expressed in Radians (H-floating ! Value) ! routine returns the sine of a given angle (in radians) as an ! H-floating value. ! EXTERNAL SUB mth$hsin & ( & HFLOAT BY REF, & HFLOAT BY REF & ) ! MTH$HSIND ! ! Sine of Angle Expressed in Degrees (H-floating Value) ! ! The Sine of Angle Expressed in Degrees (H-floating ! Value) ! routine returns the sine of a given angle (in degrees) as an ! H-floating value. ! EXTERNAL SUB mth$hsind & ( & HFLOAT BY REF, & HFLOAT BY REF & ) ! MTH$HSINH ! ! Hyperbolic Sine (H-floating Value) ! ! The Hyperbolic Sine (H-floating Value) ! routine returns the hyperbolic sine of the input ! value specified by floating-point-input-value as an ! H-floating value. ! EXTERNAL SUB mth$hsinh & ( & HFLOAT BY REF, & HFLOAT BY REF & ) ! MTH$HSQRT ! ! Square Root (H-floating Value) ! ! The Square Root (H-floating Value) ! routine returns the square root of the input value ! floating-point-input-value as an H-floating value. ! EXTERNAL SUB mth$hsqrt & ( & HFLOAT BY REF, & HFLOAT BY REF & ) ! MTH$HTAN ! ! Tangent of Angle Expressed in Radians (H-floating Value) ! ! The Tangent of Angle Expressed in Radians ! (H-floating Value) ! routine returns the tangent of a given angle (in radians) as an ! H-floating value. ! EXTERNAL SUB mth$htan & ( & HFLOAT BY REF, & HFLOAT BY REF & ) ! MTH$HTAND ! ! Tangent of Angle Expressed in Degrees (H-floating Value) ! ! The Tangent of Angle Expressed in Degrees ! (H-floating Value) ! routine returns the tangent of a given angle (in degrees) as an ! H-floating value. ! EXTERNAL SUB mth$htand & ( & HFLOAT BY REF, & HFLOAT BY REF & ) ! MTH$HTANH ! ! Compute the Hyperbolic Tangent (H-floating Value) ! ! The Compute the Hyperbolic Tangent (H-floating ! Value) ! routine returns the hyperbolic tangent ! of the input value as an H-floating value. ! EXTERNAL SUB mth$htanh & ( & HFLOAT BY REF, & HFLOAT BY REF & ) ! MTH$HATAND2 ! ! Arc Tangent in Degrees (H-floating Value) with Two Arguments ! ! Given cosine and cosine, MTH$xHTAND2 returns ! the angle (in degrees) whose tangent ! is given by the quotient of cosine and cosine, ! cosine/cosine. ! EXTERNAL SUB mth$hatand2 & ( & HFLOAT BY REF, & HFLOAT BY REF, & HFLOAT BY REF & ) ! MTH$AIMAG ! ! Imaginary Part of a Complex Number ! ! The Imaginary Part of a Complex Number ! routine returns the imaginary part of a complex number. ! EXTERNAL SINGLE FUNCTION mth$aimag & ( & BASIC$F_FLOATING_COMPLEX BY REF & ) ! MTH$DIMAG ! ! Imaginary Part of a Complex Number ! ! The Imaginary Part of a Complex Number ! routine returns the imaginary part of a complex number. ! EXTERNAL DOUBLE FUNCTION mth$dimag & ( & BASIC$D_FLOATING_COMPLEX BY REF & ) ! MTH$GIMAG ! ! Imaginary Part of a Complex Number ! ! The Imaginary Part of a Complex Number ! routine returns the imaginary part of a complex number. ! EXTERNAL GFLOAT FUNCTION mth$gimag & ( & BASIC$G_FLOATING_COMPLEX BY REF & ) ! MTH$ALOG ! ! Natural Logarithm ! ! The Natural Logarithm routine returns the natural (base e) logarithm of ! the input argument. ! EXTERNAL SINGLE FUNCTION mth$alog & ( & SINGLE BY REF & ) ! MTH$DLOG ! ! Natural Logarithm ! ! The Natural Logarithm routine returns the natural (base e) logarithm of ! the input argument. ! EXTERNAL DOUBLE FUNCTION mth$dlog & ( & DOUBLE BY REF & ) ! MTH$GLOG ! ! Natural Logarithm ! ! The Natural Logarithm routine returns the natural (base e) logarithm of ! the input argument. ! EXTERNAL GFLOAT FUNCTION mth$glog & ( & GFLOAT BY REF & ) ! MTH$ALOG10 ! ! Common Logarithm ! ! The Common Logarithm routine returns the common (base 10) logarithm of ! the input argument. ! EXTERNAL SINGLE FUNCTION mth$alog10 & ( & SINGLE BY REF & ) ! MTH$DLOG10 ! ! Common Logarithm ! ! The Common Logarithm routine returns the common (base 10) logarithm of ! the input argument. ! EXTERNAL DOUBLE FUNCTION mth$dlog10 & ( & DOUBLE BY REF & ) ! MTH$GLOG10 ! ! Common Logarithm ! ! The Common Logarithm routine returns the common (base 10) logarithm of ! the input argument. ! EXTERNAL GFLOAT FUNCTION mth$glog10 & ( & GFLOAT BY REF & ) ! MTH$ALOG2 ! ! Base 2 Logarithm ! ! The Base 2 Logarithm routine returns the base 2 logarithm of the input value ! specified by floating-point-input-value. ! EXTERNAL SINGLE FUNCTION mth$alog2 & ( & SINGLE BY REF & ) ! MTH$DLOG2 ! ! Base 2 Logarithm ! ! The Base 2 Logarithm routine returns the base 2 logarithm of the input value ! specified by floating-point-input-value. ! EXTERNAL DOUBLE FUNCTION mth$dlog2 & ( & DOUBLE BY REF & ) ! MTH$GLOG2 ! ! Base 2 Logarithm ! ! The Base 2 Logarithm routine returns the base 2 logarithm of the input value ! specified by floating-point-input-value. ! EXTERNAL GFLOAT FUNCTION mth$glog2 & ( & GFLOAT BY REF & ) ! MTH$RANDOM ! ! Random Number Generator, Uniformly Distributed ! ! The Random Number Generator, Uniformly Distributed ! routine is a general random number generator. ! EXTERNAL SINGLE FUNCTION mth$random & ( & LONG BY REF & ) ! MTH$REAL ! ! Real Part of a Complex Number ! ! The Real Part of a Complex Number ! routine returns the real part of a complex number. ! EXTERNAL SINGLE FUNCTION mth$real & ( & BASIC$F_FLOATING_COMPLEX BY REF & ) ! MTH$DREAL ! ! Real Part of a Complex Number ! ! The Real Part of a Complex Number ! routine returns the real part of a complex number. ! EXTERNAL DOUBLE FUNCTION mth$dreal & ( & BASIC$D_FLOATING_COMPLEX BY REF & ) ! MTH$GREAL ! ! Real Part of a Complex Number ! ! The Real Part of a Complex Number ! routine returns the real part of a complex number. ! EXTERNAL GFLOAT FUNCTION mth$greal & ( & BASIC$G_FLOATING_COMPLEX BY REF & ) ! MTH$SIN ! ! Sine of Angle Expressed in Radians ! ! The Sine of Angle Expressed in Radians ! routine returns the sine of a given angle (in radians). ! EXTERNAL SINGLE FUNCTION mth$sin & ( & SINGLE BY REF & ) ! MTH$DSIN ! ! Sine of Angle Expressed in Radians ! ! The Sine of Angle Expressed in Radians ! routine returns the sine of a given angle (in radians). ! EXTERNAL DOUBLE FUNCTION mth$dsin & ( & DOUBLE BY REF & ) ! MTH$GSIN ! ! Sine of Angle Expressed in Radians ! ! The Sine of Angle Expressed in Radians ! routine returns the sine of a given angle (in radians). ! EXTERNAL GFLOAT FUNCTION mth$gsin & ( & GFLOAT BY REF & ) ! MTH$SIND ! ! Sine of Angle Expressed in Degrees ! ! The Sine of Angle Expressed in Degrees ! routine returns the sine of a given angle (in degrees). ! EXTERNAL SINGLE FUNCTION mth$sind & ( & SINGLE BY REF & ) ! MTH$DSIND ! ! Sine of Angle Expressed in Degrees ! ! The Sine of Angle Expressed in Degrees ! routine returns the sine of a given angle (in degrees). ! EXTERNAL DOUBLE FUNCTION mth$dsind & ( & DOUBLE BY REF & ) ! MTH$GSIND ! ! Sine of Angle Expressed in Degrees ! ! The Sine of Angle Expressed in Degrees ! routine returns the sine of a given angle (in degrees). ! EXTERNAL GFLOAT FUNCTION mth$gsind & ( & GFLOAT BY REF & ) ! MTH$SINH ! ! Hyperbolic Sine ! ! The Hyperbolic Sine ! routine returns the hyperbolic sine of the input ! value specified by floating-point-input-value. ! EXTERNAL SINGLE FUNCTION mth$sinh & ( & SINGLE BY REF & ) ! MTH$DSINH ! ! Hyperbolic Sine ! ! The Hyperbolic Sine ! routine returns the hyperbolic sine of the input ! value specified by floating-point-input-value. ! EXTERNAL DOUBLE FUNCTION mth$dsinh & ( & DOUBLE BY REF & ) ! MTH$GSINH ! ! Hyperbolic Sine ! ! The Hyperbolic Sine ! routine returns the hyperbolic sine of the input ! value specified by floating-point-input-value. ! EXTERNAL GFLOAT FUNCTION mth$gsinh & ( & GFLOAT BY REF & ) ! MTH$SINCOS ! ! Sine and Cosine of Angle Expressed in Radians ! ! The Sine and Cosine of Angle Expressed in Radians ! routine returns the sine ! and cosine of a given angle (in radians). ! EXTERNAL SUB mth$sincos & ( & SINGLE BY REF, & SINGLE BY REF, & SINGLE BY REF & ) ! MTH$DSINCOS ! ! Sine and Cosine of Angle Expressed in Radians ! ! The Sine and Cosine of Angle Expressed in Radians ! routine returns the sine ! and the cosine of a given angle (in radians). ! EXTERNAL SUB mth$dsincos & ( & DOUBLE BY REF, & DOUBLE BY REF, & DOUBLE BY REF & ) ! MTH$GSINCOS ! ! Sine and Cosine of Angle Expressed in Radians ! ! The Sine and Cosine of Angle Expressed in Radians ! routine returns the sine ! and the cosine of a given angle (in radians). ! EXTERNAL SUB mth$gsincos & ( & GFLOAT BY REF, & GFLOAT BY REF, & GFLOAT BY REF & ) ! MTH$HSINCOS ! ! Sine and Cosine of Angle Expressed in Radians ! ! The Sine and Cosine of Angle Expressed in Radians ! routine returns the sine ! and the cosine of a given angle (in radians). ! EXTERNAL SUB mth$hsincos & ( & HFLOAT BY REF, & HFLOAT BY REF, & HFLOAT BY REF & ) ! MTH$SINCOSD ! ! Sine and Cosine of Angle Expressed in Degrees ! ! The Sine and Cosine of Angle Expressed in Degrees ! routine returns the sine and cosine of a given angle (in degrees). ! EXTERNAL SUB mth$sincosd & ( & SINGLE BY REF, & SINGLE BY REF, & SINGLE BY REF & ) ! MTH$DSINCOSD ! ! Sine and Cosine of Angle Expressed in Degrees ! ! The Sine and Cosine of Angle Expressed in Degrees ! routine returns the sine and cosine of a given angle (in degrees). ! EXTERNAL SUB mth$dsincosd & ( & DOUBLE BY REF, & DOUBLE BY REF, & DOUBLE BY REF & ) ! MTH$GSINCOSD ! ! Sine and Cosine of Angle Expressed in Degrees ! ! The Sine and Cosine of Angle Expressed in Degrees ! routine returns the sine and cosine of a given angle (in degrees). ! EXTERNAL SUB mth$gsincosd & ( & GFLOAT BY REF, & GFLOAT BY REF, & GFLOAT BY REF & ) ! MTH$HSINCOSD ! ! Sine and Cosine of Angle Expressed in Degrees ! ! The Sine and Cosine of Angle Expressed in Degrees ! routine returns the sine and cosine of a given angle (in degrees). ! EXTERNAL SUB mth$hsincosd & ( & HFLOAT BY REF, & HFLOAT BY REF, & HFLOAT BY REF & ) ! MTH$SQRT ! ! Square Root ! ! The Square Root ! routine returns the square root of the input value ! floating-point-input-value. ! EXTERNAL SINGLE FUNCTION mth$sqrt & ( & SINGLE BY REF & ) ! MTH$DSQRT ! ! Square Root ! ! The Square Root ! routine returns the square root of the input value ! floating-point-input-value. ! EXTERNAL DOUBLE FUNCTION mth$dsqrt & ( & DOUBLE BY REF & ) ! MTH$GSQRT ! ! Square Root ! ! The Square Root ! routine returns the square root of the input value ! floating-point-input-value. ! EXTERNAL GFLOAT FUNCTION mth$gsqrt & ( & GFLOAT BY REF & ) ! MTH$TAN ! ! Tangent of Angle Expressed in Radians ! ! The Tangent of Angle Expressed in Radians ! routine returns the tangent of a given angle (in radians). ! EXTERNAL SINGLE FUNCTION mth$tan & ( & SINGLE BY REF & ) ! MTH$DTAN ! ! Tangent of Angle Expressed in Radians ! ! The Tangent of Angle Expressed in Radians ! routine returns the tangent of a given angle (in radians). ! EXTERNAL DOUBLE FUNCTION mth$dtan & ( & DOUBLE BY REF & ) ! MTH$GTAN ! ! Tangent of Angle Expressed in Radians ! ! The Tangent of Angle Expressed in Radians ! routine returns the tangent of a given angle (in radians). ! EXTERNAL GFLOAT FUNCTION mth$gtan & ( & GFLOAT BY REF & ) ! MTH$TAND ! ! Tangent of Angle Expressed in Degrees ! ! The Tangent of Angle Expressed in Degrees ! routine returns the tangent of a given angle (in degrees). ! EXTERNAL SINGLE FUNCTION mth$tand & ( & SINGLE BY REF & ) ! MTH$DTAND ! ! Tangent of Angle Expressed in Degrees ! ! The Tangent of Angle Expressed in Degrees ! routine returns the tangent of a given angle (in degrees). ! EXTERNAL DOUBLE FUNCTION mth$dtand & ( & DOUBLE BY REF & ) ! MTH$GTAND ! ! Tangent of Angle Expressed in Degrees ! ! The Tangent of Angle Expressed in Degrees ! routine returns the tangent of a given angle (in degrees). ! EXTERNAL GFLOAT FUNCTION mth$gtand & ( & GFLOAT BY REF & ) ! MTH$TANH ! ! Compute the Hyperbolic Tangent ! ! The Compute the Hyperbolic Tangent ! routine returns the hyperbolic tangent ! of the input value. ! EXTERNAL SINGLE FUNCTION mth$tanh & ( & SINGLE BY REF & ) ! MTH$DTANH ! ! Compute the Hyperbolic Tangent ! ! The Compute the Hyperbolic Tangent ! routine returns the hyperbolic tangent ! of the input value. ! EXTERNAL DOUBLE FUNCTION mth$dtanh & ( & DOUBLE BY REF & ) ! MTH$GTANH ! ! Compute the Hyperbolic Tangent ! ! The Compute the Hyperbolic Tangent ! routine returns the hyperbolic tangent ! of the input value. ! EXTERNAL GFLOAT FUNCTION mth$gtanh & ( & GFLOAT BY REF & ) ! MTH$UMAX ! ! Compute Unsigned Maximum ! ! The Compute Unsigned Maximum ! routine computes the unsigned longword maximum of n unsigned longword ! arguments, where n is greater than or equal to 1. ! EXTERNAL LONG FUNCTION mth$umax & ( & LONG BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$UMIN ! ! Compute Unsigned Minimum ! ! The Compute Unsigned Minimum ! routine computes the unsigned longword minimum of n unsigned longword ! arguments, where n is greater than or ! equal to 1. ! EXTERNAL LONG FUNCTION mth$umin & ( & LONG BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$ABS ! ! F_floating Absolute Value Routine ! EXTERNAL SINGLE FUNCTION mth$abs & ( & SINGLE BY REF & ) ! MTH$DABS ! ! D_floating Absolute Value Routine ! EXTERNAL DOUBLE FUNCTION mth$dabs & ( & DOUBLE BY REF & ) ! MTH$GABS ! ! G_floating Absolute Value Routine ! EXTERNAL GFLOAT FUNCTION mth$gabs & ( & GFLOAT BY REF & ) ! MTH$HABS ! ! H_floating Absolute Value Routine ! EXTERNAL SUB mth$habs & ( & HFLOAT BY REF, & HFLOAT BY REF & ) ! MTH$IIABS ! ! Word Absolute Value Routine ! EXTERNAL WORD FUNCTION mth$iiabs & ( & WORD BY REF & ) ! MTH$JIABS ! ! Longword Absolute Value Routine ! EXTERNAL LONG FUNCTION mth$jiabs & ( & LONG BY REF & ) ! MTH$IIAND ! ! Bitwise AND of Two Word Parameters Routine ! EXTERNAL WORD FUNCTION mth$iiand & ( & WORD BY REF, & WORD BY REF & ) ! MTH$JIAND ! ! Bitwise AND of Two Longword Parameters Routine ! EXTERNAL LONG FUNCTION mth$jiand & ( & LONG BY REF, & LONG BY REF & ) ! MTH$DBLE ! ! Convert F_floating to D_floating (Exact) Routine ! EXTERNAL DOUBLE FUNCTION mth$dble & ( & SINGLE BY REF & ) ! MTH$GDBLE ! ! Convert F_floating to G_floating (Exact) Routine ! EXTERNAL GFLOAT FUNCTION mth$gdble & ( & SINGLE BY REF & ) ! MTH$DIM ! ! Positive Difference of Two F_floating Parameters Routine ! EXTERNAL SINGLE FUNCTION mth$dim & ( & SINGLE BY REF, & SINGLE BY REF & ) ! MTH$DDIM ! ! Positive Difference of Two D_floating Parameters Routine ! EXTERNAL DOUBLE FUNCTION mth$ddim & ( & DOUBLE BY REF, & DOUBLE BY REF & ) ! MTH$GDIM ! ! Positive Difference of Two D_floating Parameters Routine ! EXTERNAL GFLOAT FUNCTION mth$gdim & ( & GFLOAT BY REF, & GFLOAT BY REF & ) ! MTH$HDIM ! ! Positive Difference of Two D_floating Parameters Routine ! EXTERNAL SUB mth$hdim & ( & HFLOAT BY REF, & HFLOAT BY REF, & HFLOAT BY REF & ) ! MTH$IIDIM ! ! Positive Difference of Two Word Parameters Routine ! EXTERNAL WORD FUNCTION mth$iidim & ( & WORD BY REF, & WORD BY REF & ) ! MTH$JIDIM ! ! Positive Difference of Two Longword Parameters Routine ! EXTERNAL LONG FUNCTION mth$jidim & ( & LONG BY REF, & LONG BY REF & ) ! MTH$IIEOR ! ! Bitwise Exclusive OR of Two Word Parameters Routine ! EXTERNAL WORD FUNCTION mth$iieor & ( & WORD BY REF, & WORD BY REF & ) ! MTH$JIEOR ! ! Bitwise Exclusive OR of Two Longword Parameters Routine ! EXTERNAL LONG FUNCTION mth$jieor & ( & LONG BY REF, & LONG BY REF & ) ! MTH$IIFIX ! ! Convert F_floating to Word (Truncated) Routine ! EXTERNAL WORD FUNCTION mth$iifix & ( & SINGLE BY REF & ) ! MTH$JIFIX ! ! Convert F_floating to Longword (Truncated) Routine ! EXTERNAL LONG FUNCTION mth$jifix & ( & SINGLE BY REF & ) ! MTH$FLOATI ! ! Convert Word to F_floating (Exact) Routine ! EXTERNAL SINGLE FUNCTION mth$floati & ( & WORD BY REF & ) ! MTH$DFLOTI ! ! Convert Word to D_floating (Exact) Routine ! EXTERNAL DOUBLE FUNCTION mth$dfloti & ( & WORD BY REF & ) ! MTH$GFLOTI ! ! Convert Word to G_floating (Exact) Routine ! EXTERNAL GFLOAT FUNCTION mth$gfloti & ( & WORD BY REF & ) ! MTH$FLOATJ ! ! Convert Longword to F_floating (Exact) Routine ! EXTERNAL SINGLE FUNCTION mth$floatj & ( & LONG BY REF & ) ! MTH$DFLOTJ ! ! Convert Longword to D_floating (Exact) Routine ! EXTERNAL DOUBLE FUNCTION mth$dflotj & ( & LONG BY REF & ) ! MTH$GFLOTJ ! ! Convert Longword to G_floating (Exact) Routine ! EXTERNAL GFLOAT FUNCTION mth$gflotj & ( & LONG BY REF & ) ! MTH$FLOOR ! ! Convert F_floating to Greatest F_floating Integer Routine ! EXTERNAL SINGLE FUNCTION mth$floor & ( & SINGLE BY REF & ) ! MTH$DFLOOR ! ! Convert D_floating to Greatest D_floating Integer Routine ! EXTERNAL DOUBLE FUNCTION mth$dfloor & ( & DOUBLE BY REF & ) ! MTH$GFLOOR ! ! Convert G_floating to Greatest G_floating Integer Routine ! EXTERNAL GFLOAT FUNCTION mth$gfloor & ( & GFLOAT BY REF & ) ! MTH$HFLOOR ! ! Convert H_floating to Greatest H_floating Integer Routine ! EXTERNAL SUB mth$hfloor & ( & HFLOAT BY REF, & HFLOAT BY REF & ) ! MTH$AINT ! ! Convert F_floating to Truncated F_floating Routine ! EXTERNAL SINGLE FUNCTION mth$aint & ( & SINGLE BY REF & ) ! MTH$DINT ! ! Convert D_floating to Truncated D_floating Routine ! EXTERNAL DOUBLE FUNCTION mth$dint & ( & DOUBLE BY REF & ) ! MTH$IIDINT ! ! Convert D_floating to Word (Truncated) Routine ! EXTERNAL WORD FUNCTION mth$iidint & ( & DOUBLE BY REF & ) ! MTH$JIDINT ! ! Convert D_floating to Longword (Truncated) Routine ! EXTERNAL LONG FUNCTION mth$jidint & ( & DOUBLE BY REF & ) ! MTH$GINT ! ! Convert G_floating to G_floating (Truncated) Routine ! EXTERNAL GFLOAT FUNCTION mth$gint & ( & GFLOAT BY REF & ) ! MTH$IIGINT ! ! Convert G_floating to Word (Truncated) Routine ! EXTERNAL WORD FUNCTION mth$iigint & ( & GFLOAT BY REF & ) ! MTH$JIGINT ! ! Convert G_floating to Longword (Truncated) Routine ! EXTERNAL LONG FUNCTION mth$jigint & ( & GFLOAT BY REF & ) ! MTH$HINT ! ! Convert H_floating to H_floating (Truncated) Routine ! EXTERNAL SUB mth$hint & ( & HFLOAT BY REF, & HFLOAT BY REF & ) ! MTH$IIHINT ! ! Convert H_floating to Truncated Word Routine ! EXTERNAL WORD FUNCTION mth$iihint & ( & HFLOAT BY REF & ) ! MTH$JIHINT ! ! Convert H_floating to Truncated Longword Routine ! EXTERNAL LONG FUNCTION mth$jihint & ( & HFLOAT BY REF & ) ! MTH$IINT ! ! Convert F_floating to Word (Truncated) Routine ! EXTERNAL WORD FUNCTION mth$iint & ( & SINGLE BY REF & ) ! MTH$JINT ! ! Convert F_floating to Longword (Truncated) Routine ! EXTERNAL LONG FUNCTION mth$jint & ( & SINGLE BY REF & ) ! MTH$IIOR ! ! Bitwise Inclusive OR of Two Word Parameters Routine ! EXTERNAL WORD FUNCTION mth$iior & ( & WORD BY REF, & WORD BY REF & ) ! MTH$JIOR ! ! Bitwise Inclusive OR of Two Longword Parameters Routine ! EXTERNAL LONG FUNCTION mth$jior & ( & LONG BY REF, & LONG BY REF & ) ! MTH$AIMAX0 ! ! F_floating Maximum of N WordParameters Routine ! EXTERNAL SINGLE FUNCTION mth$aimax0 & ( & WORD BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$AJMAX0 ! ! F_floating Maximum of N Longword Parameters Routine ! EXTERNAL SINGLE FUNCTION mth$ajmax0 & ( & LONG BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$IMAX0 ! ! Word Maximum of N Word Parameters Routine ! EXTERNAL WORD FUNCTION mth$imax0 & ( & WORD BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$JMAX0 ! ! Longword Maximum of N Longword Parameters Routine ! EXTERNAL LONG FUNCTION mth$jmax0 & ( & LONG BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$AMAX1 ! ! F_floating Maximum of N F_floating Parameters Routine ! EXTERNAL SINGLE FUNCTION mth$amax1 & ( & SINGLE BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$DMAX1 ! ! D_floating Maximum of N D_floating Parameters Routine ! EXTERNAL DOUBLE FUNCTION mth$dmax1 & ( & DOUBLE BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$GMAX1 ! ! G_floating Maximum of N G_floating Parameters Routine ! EXTERNAL GFLOAT FUNCTION mth$gmax1 & ( & GFLOAT BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$HMAX1 ! ! H_floating Maximum of N H_floating Parameters Routine ! EXTERNAL SUB mth$hmax1 & ( & HFLOAT BY REF, & HFLOAT BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$IMAX1 ! ! Word Maximum of N F_floating Parameters Routine ! EXTERNAL WORD FUNCTION mth$imax1 & ( & SINGLE BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$JMAX1 ! ! Longword Maximum of N F_floating Parameters Routine ! EXTERNAL LONG FUNCTION mth$jmax1 & ( & SINGLE BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$AIMIN0 ! ! F_floating Minimum of N Word Parameters Routine ! EXTERNAL SINGLE FUNCTION mth$aimin0 & ( & WORD BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$AJMIN0 ! ! F_floating Minimum of N Longword Parameters Routine ! EXTERNAL SINGLE FUNCTION mth$ajmin0 & ( & LONG BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$IMIN0 ! ! Word Minimum of N Word Parameters Routine ! EXTERNAL WORD FUNCTION mth$imin0 & ( & WORD BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$JMIN0 ! ! Longword Minimum of N Longword Parameters Routine ! EXTERNAL LONG FUNCTION mth$jmin0 & ( & LONG BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$AMIN1 ! ! F_floating Minimum of N F_floating Parameters Routine ! EXTERNAL SINGLE FUNCTION mth$amin1 & ( & SINGLE BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$DMIN1 ! ! D_floating Minimum of N D_floating Parameters Routine ! EXTERNAL DOUBLE FUNCTION mth$dmin1 & ( & DOUBLE BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$GMIN1 ! ! G_floating Minimum of N G_floating Parameters Routine ! EXTERNAL GFLOAT FUNCTION mth$gmin1 & ( & GFLOAT BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$HMIN1 ! ! H_floating Minimum of N H_floating Parameters Routine ! EXTERNAL SUB mth$hmin1 & ( & HFLOAT BY REF, & HFLOAT BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$IMIN1 ! ! Word Minimum of N F_floating Parameters Routine ! EXTERNAL WORD FUNCTION mth$imin1 & ( & SINGLE BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$JMIN1 ! ! Longword Minimum of N F_floating Parameters Routine ! EXTERNAL LONG FUNCTION mth$jmin1 & ( & SINGLE BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$AMOD ! ! Remainder of Two F_floating Parameters Routine ! EXTERNAL SINGLE FUNCTION mth$amod & ( & SINGLE BY REF, & SINGLE BY REF & ) ! MTH$DMOD ! ! Remainder of Two D_floating Parameters Routine ! EXTERNAL DOUBLE FUNCTION mth$dmod & ( & DOUBLE BY REF, & DOUBLE BY REF & ) ! MTH$GMOD ! ! Remainder of Two G_floating Parameters Routine ! EXTERNAL GFLOAT FUNCTION mth$gmod & ( & GFLOAT BY REF, & GFLOAT BY REF & ) ! MTH$HMOD ! ! Remainder of Two H_floating Parameters Routine ! EXTERNAL SUB mth$hmod & ( & HFLOAT BY REF, & HFLOAT BY REF, & HFLOAT BY REF & ) ! MTH$IMOD ! ! Remainder of Two Word Parameters Routine ! EXTERNAL WORD FUNCTION mth$imod & ( & WORD BY REF, & WORD BY REF & ) ! MTH$JMOD ! ! Remainder of Two Longword Parameters Routine ! EXTERNAL LONG FUNCTION mth$jmod & ( & LONG BY REF, & LONG BY REF & ) ! MTH$ANINT ! ! Convert F_floating to Nearest F_floating Integer Routine ! EXTERNAL SINGLE FUNCTION mth$anint & ( & SINGLE BY REF & ) ! MTH$DNINT ! ! Convert D_floating to Nearest D_floating Integer Routine ! EXTERNAL DOUBLE FUNCTION mth$dnint & ( & DOUBLE BY REF & ) ! MTH$IIDNNT ! ! Convert D_floating to Word Integer Routine ! EXTERNAL WORD FUNCTION mth$iidnnt & ( & DOUBLE BY REF & ) ! MTH$JIDNNT ! ! Convert D_floating to Nearest Longword Integer Routine ! EXTERNAL LONG FUNCTION mth$jidnnt & ( & DOUBLE BY REF & ) ! MTH$GNINT ! ! Convert G_floating to Nearest G_floating Integer Routine ! EXTERNAL GFLOAT FUNCTION mth$gnint & ( & GFLOAT BY REF & ) ! MTH$IIGNNT ! ! Convert T_floating to Nearest G_floating Integer Routine ! EXTERNAL WORD FUNCTION mth$iignnt & ( & GFLOAT BY REF & ) ! MTH$JIGNNT ! ! Convert G_floating to Nearest Longword Integer Routine ! EXTERNAL LONG FUNCTION mth$jignnt & ( & GFLOAT BY REF & ) ! MTH$HNINT ! ! Convert H_floating to Nearest H_floating Integer Routine ! EXTERNAL SUB mth$hnint & ( & HFLOAT BY REF, & HFLOAT BY REF & ) ! MTH$IIHNNT ! ! Convert H_floating to Nearest Word Integer Routine ! EXTERNAL WORD FUNCTION mth$iihnnt & ( & HFLOAT BY REF & ) ! MTH$JIHNNT ! ! Convert H_floating to Nearest Longword Integer Routine ! EXTERNAL LONG FUNCTION mth$jihnnt & ( & HFLOAT BY REF & ) ! MTH$ININT ! ! Convert F_floating to Nearest Word Integer Routine ! EXTERNAL WORD FUNCTION mth$inint & ( & SINGLE BY REF & ) ! MTH$JNINT ! ! Convert F_floating to Nearest Longword Integer Routine ! EXTERNAL LONG FUNCTION mth$jnint & ( & SINGLE BY REF & ) ! MTH$INOT ! ! Bitwise Complement of Word Parameter Routine ! EXTERNAL WORD FUNCTION mth$inot & ( & WORD BY REF & ) ! MTH$JNOT ! ! Bitwise Complement of Longword Parameter Routine ! EXTERNAL LONG FUNCTION mth$jnot & ( & LONG BY REF & ) ! MTH$DPROD ! ! D_floating Product of Two F_floating Parameters Routine ! EXTERNAL DOUBLE FUNCTION mth$dprod & ( & SINGLE BY REF, & SINGLE BY REF & ) ! MTH$GPROD ! ! G_floating Product of Two F_floating Parameters Routine ! EXTERNAL GFLOAT FUNCTION mth$gprod & ( & SINGLE BY REF, & SINGLE BY REF & ) ! MTH$SGN ! ! F_floating Sign Function ! EXTERNAL LONG FUNCTION mth$sgn & ( & ANY BY REF & ) ! MTH$IISHFT ! ! Bitwise Shift of Word Routine ! EXTERNAL WORD FUNCTION mth$iishft & ( & WORD BY REF, & WORD BY REF & ) ! MTH$JISHFT ! ! Bitwise Shift of Longword Routine ! EXTERNAL LONG FUNCTION mth$jishft & ( & LONG BY REF, & LONG BY REF & ) ! MTH$SIGN ! ! F_floating Transfer of Sign of Y to Sign of X Routine ! EXTERNAL SINGLE FUNCTION mth$sign & ( & SINGLE BY REF, & SINGLE BY REF & ) ! MTH$DSIGN ! ! D_floating Transfer of Sign of Y to Sign of X Routine ! EXTERNAL DOUBLE FUNCTION mth$dsign & ( & DOUBLE BY REF, & DOUBLE BY REF & ) ! MTH$GSIGN ! ! G_floating Transfer of Sign of X to Sign of X Routine ! EXTERNAL GFLOAT FUNCTION mth$gsign & ( & GFLOAT BY REF, & GFLOAT BY REF & ) ! MTH$HSIGN ! ! H_floating Transfer of Sign of Y to Sign of X Routine ! EXTERNAL SUB mth$hsign & ( & HFLOAT BY REF, & HFLOAT BY REF, & HFLOAT BY REF & ) ! MTH$IISIGN ! ! Word Transfer of Sign of Y to Sign of X Routine ! EXTERNAL WORD FUNCTION mth$iisign & ( & WORD BY REF, & WORD BY REF & ) ! MTH$JISIGN ! ! Longword Transfer of Sign of Y to Sign of X Routine ! EXTERNAL LONG FUNCTION mth$jisign & ( & LONG BY REF, & LONG BY REF & ) ! MTH$SNGL ! ! Convert D_floating to F_floating (Rounded) Routine ! EXTERNAL SINGLE FUNCTION mth$sngl & ( & DOUBLE BY REF & ) ! MTH$SNGLG ! ! Convert G_floating to F_floating (Rounded) Routine ! EXTERNAL SINGLE FUNCTION mth$snglg & ( & GFLOAT BY REF & )