/********************************************************************************************************************************/ /* Created: 9-Mar-2021 22:28:03 by OpenVMS SDL EV3-3 */ /* Source: 09-MAR-2021 22:28:01 $1$DGA8085:[STARLET_H.SRC]MTH$ROUTINES.SDI;1 */ /********************************************************************************************************************************/ /*** MODULE mth$routines ***/ #ifndef __MTH_ROUTINES_LOADED #define __MTH_ROUTINES_LOADED 1 #pragma __nostandard /* This file uses non-ANSI-Standard features */ #pragma __member_alignment __save #pragma __nomember_alignment #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __save /* Save the previously-defined required ptr size */ #pragma __required_pointer_size __short /* And set ptr size default to 32-bit pointers */ #endif #ifdef __cplusplus extern "C" { #define __unknown_params ... #define __optional_params ... #else #define __unknown_params #define __optional_params ... #endif #ifndef __struct #if !defined(__VAXC) #define __struct struct #else #define __struct variant_struct #endif #endif #ifndef __union #if !defined(__VAXC) #define __union union #else #define __union variant_union #endif #endif /**************************************************************************** */ /* * */ /* 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). */ /* */ #define mth$acos MTH$ACOS #ifdef __NEW_STARLET float mth$acos( float *cosine); #else /* __OLD_STARLET */ float mth$acos(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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). */ /* */ #define mth$dacos MTH$DACOS #ifdef __NEW_STARLET double mth$dacos( double *cosine); #else /* __OLD_STARLET */ double mth$dacos(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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). */ /* */ #define mth$gacos MTH$GACOS #ifdef __NEW_STARLET double mth$gacos( double *cosine); #else /* __OLD_STARLET */ double mth$gacos(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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). */ /* */ #define mth$acosd MTH$ACOSD #ifdef __NEW_STARLET float mth$acosd( float *cosine); #else /* __OLD_STARLET */ float mth$acosd(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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). */ /* */ #define mth$dacosd MTH$DACOSD #ifdef __NEW_STARLET double mth$dacosd( double *cosine); #else /* __OLD_STARLET */ double mth$dacosd(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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). */ /* */ #define mth$gacosd MTH$GACOSD #ifdef __NEW_STARLET double mth$gacosd( double *cosine); #else /* __OLD_STARLET */ double mth$gacosd(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$ASIN */ /* */ /* Arc Sine in Radians */ /* */ /* Given the sine of an angle, the Arc Sine in Radians */ /* routine returns that angle */ /* (in radians). */ /* */ #define mth$asin MTH$ASIN #ifdef __NEW_STARLET float mth$asin( float *sine); #else /* __OLD_STARLET */ float mth$asin(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$DASIN */ /* */ /* Arc Sine in Radians */ /* */ /* Given the sine of an angle, the Arc Sine in Radians */ /* routine returns that angle */ /* (in radians). */ /* */ #define mth$dasin MTH$DASIN #ifdef __NEW_STARLET double mth$dasin( double *sine); #else /* __OLD_STARLET */ double mth$dasin(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$GASIN */ /* */ /* Arc Sine in Radians */ /* */ /* Given the sine of an angle, the Arc Sine in Radians */ /* routine returns that angle */ /* (in radians). */ /* */ #define mth$gasin MTH$GASIN #ifdef __NEW_STARLET double mth$gasin( double *sine); #else /* __OLD_STARLET */ double mth$gasin(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$ASIND */ /* */ /* Arc Sine in Degrees */ /* */ /* Given the sine of an angle, the Arc Sine in Degrees */ /* routine returns that angle */ /* (in degrees). */ /* */ #define mth$asind MTH$ASIND #ifdef __NEW_STARLET float mth$asind( float *sine); #else /* __OLD_STARLET */ float mth$asind(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$DASIND */ /* */ /* Arc Sine in Degrees */ /* */ /* Given the sine of an angle, the Arc Sine in Degrees */ /* routine returns that angle */ /* (in degrees). */ /* */ #define mth$dasind MTH$DASIND #ifdef __NEW_STARLET double mth$dasind( double *sine); #else /* __OLD_STARLET */ double mth$dasind(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$GASIND */ /* */ /* Arc Sine in Degrees */ /* */ /* Given the sine of an angle, the Arc Sine in Degrees */ /* routine returns that angle */ /* (in degrees). */ /* */ #define mth$gasind MTH$GASIND #ifdef __NEW_STARLET double mth$gasind( double *sine); #else /* __OLD_STARLET */ double mth$gasind(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$ATAN */ /* */ /* Arc Tangent in Radians */ /* */ /* Given the tangent of an angle, the Arc Tangent in Radians */ /* routine returns that angle (in radians). */ /* */ #define mth$atan MTH$ATAN #ifdef __NEW_STARLET float mth$atan( float *tangent); #else /* __OLD_STARLET */ float mth$atan(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$DATAN */ /* */ /* Arc Tangent in Radians */ /* */ /* Given the tangent of an angle, the Arc Tangent in Radians */ /* routine returns that angle (in radians). */ /* */ #define mth$datan MTH$DATAN #ifdef __NEW_STARLET double mth$datan( double *tangent); #else /* __OLD_STARLET */ double mth$datan(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$GATAN */ /* */ /* Arc Tangent in Radians */ /* */ /* Given the tangent of an angle, the Arc Tangent in Radians */ /* routine returns that angle (in radians). */ /* */ #define mth$gatan MTH$GATAN #ifdef __NEW_STARLET double mth$gatan( double *tangent); #else /* __OLD_STARLET */ double mth$gatan(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ #define mth$atan2 MTH$ATAN2 #ifdef __NEW_STARLET float mth$atan2( float *sine, float *cosine); #else /* __OLD_STARLET */ float mth$atan2(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ #define mth$datan2 MTH$DATAN2 #ifdef __NEW_STARLET double mth$datan2( double *sine, double *cosine); #else /* __OLD_STARLET */ double mth$datan2(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ #define mth$gatan2 MTH$GATAN2 #ifdef __NEW_STARLET double mth$gatan2( double *sine, double *cosine); #else /* __OLD_STARLET */ double mth$gatan2(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$ATAND */ /* */ /* Arc Tangent in Degrees */ /* */ /* Given the tangent of an angle, the Arc Tangent in Degrees */ /* routine returns that angle (in degrees). */ /* */ #define mth$atand MTH$ATAND #ifdef __NEW_STARLET float mth$atand( float *tangent); #else /* __OLD_STARLET */ float mth$atand(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$DATAND */ /* */ /* Arc Tangent in Degrees */ /* */ /* Given the tangent of an angle, the Arc Tangent in Degrees */ /* routine returns that angle (in degrees). */ /* */ #define mth$datand MTH$DATAND #ifdef __NEW_STARLET double mth$datand( double *tangent); #else /* __OLD_STARLET */ double mth$datand(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$GATAND */ /* */ /* Arc Tangent in Degrees */ /* */ /* Given the tangent of an angle, the Arc Tangent in Degrees */ /* routine returns that angle (in degrees). */ /* */ #define mth$gatand MTH$GATAND #ifdef __NEW_STARLET double mth$gatand( double *tangent); #else /* __OLD_STARLET */ double mth$gatand(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ #define mth$atanh MTH$ATANH #ifdef __NEW_STARLET float mth$atanh( float *hyperbolic_tangent); #else /* __OLD_STARLET */ float mth$atanh(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ #define mth$datanh MTH$DATANH #ifdef __NEW_STARLET double mth$datanh( double *hyperbolic_tangent); #else /* __OLD_STARLET */ double mth$datanh(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ #define mth$gatanh MTH$GATANH #ifdef __NEW_STARLET double mth$gatanh( double *hyperbolic_tangent); #else /* __OLD_STARLET */ double mth$gatanh(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ #define mth$atand2 MTH$ATAND2 #ifdef __NEW_STARLET float mth$atand2( float *sine, float *cosine); #else /* __OLD_STARLET */ float mth$atand2(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ #define mth$datand2 MTH$DATAND2 #ifdef __NEW_STARLET double mth$datand2( double *sine, double *cosine); #else /* __OLD_STARLET */ double mth$datand2(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ #define mth$gatand2 MTH$GATAND2 #ifdef __NEW_STARLET double mth$gatand2( double *sine, double *cosine); #else /* __OLD_STARLET */ double mth$gatand2(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$CABS */ /* */ /* Complex Absolute Value */ /* */ /* The Complex Absolute Value routine */ /* returns the absolute value of a complex number (r,i). */ /* */ #define mth$cabs MTH$CABS #ifdef __NEW_STARLET float mth$cabs( float complex_number [2]); #else /* __OLD_STARLET */ float mth$cabs(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$CDABS */ /* */ /* Complex Absolute Value */ /* */ /* The Complex Absolute Value routine */ /* returns the absolute value of a complex number (r,i). */ /* */ #define mth$cdabs MTH$CDABS #ifdef __NEW_STARLET double mth$cdabs( double complex_number [2]); #else /* __OLD_STARLET */ double mth$cdabs(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$CGABS */ /* */ /* Complex Absolute Value */ /* */ /* The Complex Absolute Value routine */ /* returns the absolute value of a complex number (r,i). */ /* */ #define mth$cgabs MTH$CGABS #ifdef __NEW_STARLET double mth$cgabs( double complex_number [2]); #else /* __OLD_STARLET */ double mth$cgabs(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ /* 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. */ /* */ /* 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. */ /* */ /* 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. */ /* */ /* 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. */ /* */ #define mth$dcmplx MTH$DCMPLX #ifdef __NEW_STARLET int mth$dcmplx( double complx [2], double *real_part, double *imaginary_part); #else /* __OLD_STARLET */ int mth$dcmplx(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ #define mth$gcmplx MTH$GCMPLX #ifdef __NEW_STARLET int mth$gcmplx( double complx [2], double *real_part, double *imaginary_part); #else /* __OLD_STARLET */ int mth$gcmplx(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ /* 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). */ /* */ #define mth$dconjg MTH$DCONJG #ifdef __NEW_STARLET int mth$dconjg( double complex_conjugate [2], double complex_number [2]); #else /* __OLD_STARLET */ int mth$dconjg(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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). */ /* */ #define mth$gconjg MTH$GCONJG #ifdef __NEW_STARLET int mth$gconjg( double complex_conjugate [2], double complex_number [2]); #else /* __OLD_STARLET */ int mth$gconjg(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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). */ /* */ #define mth$cos MTH$COS #ifdef __NEW_STARLET float mth$cos( float *angle_in_radians); #else /* __OLD_STARLET */ float mth$cos(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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). */ /* */ #define mth$dcos MTH$DCOS #ifdef __NEW_STARLET double mth$dcos( double *angle_in_radians); #else /* __OLD_STARLET */ double mth$dcos(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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). */ /* */ #define mth$gcos MTH$GCOS #ifdef __NEW_STARLET double mth$gcos( double *angle_in_radians); #else /* __OLD_STARLET */ double mth$gcos(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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). */ /* */ #define mth$cosd MTH$COSD #ifdef __NEW_STARLET float mth$cosd( float *angle_in_degrees); #else /* __OLD_STARLET */ float mth$cosd(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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). */ /* */ #define mth$dcosd MTH$DCOSD #ifdef __NEW_STARLET double mth$dcosd( double *angle_in_degrees); #else /* __OLD_STARLET */ double mth$dcosd(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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). */ /* */ #define mth$gcosd MTH$GCOSD #ifdef __NEW_STARLET double mth$gcosd( double *angle_in_degrees); #else /* __OLD_STARLET */ double mth$gcosd(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$COSH */ /* */ /* Hyperbolic Cosine */ /* */ /* The Hyperbolic Cosine */ /* routine returns the hyperbolic cosine of */ /* the input value. */ /* */ #define mth$cosh MTH$COSH #ifdef __NEW_STARLET float mth$cosh( float *floating_point_input_value); #else /* __OLD_STARLET */ float mth$cosh(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$DCOSH */ /* */ /* Hyperbolic Cosine */ /* */ /* The Hyperbolic Cosine */ /* routine returns the hyperbolic cosine of */ /* the input value. */ /* */ #define mth$dcosh MTH$DCOSH #ifdef __NEW_STARLET double mth$dcosh( double *floating_point_input_value); #else /* __OLD_STARLET */ double mth$dcosh(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$GCOSH */ /* */ /* Hyperbolic Cosine */ /* */ /* The Hyperbolic Cosine */ /* routine returns the hyperbolic cosine of */ /* the input value. */ /* */ #define mth$gcosh MTH$GCOSH #ifdef __NEW_STARLET double mth$gcosh( double *floating_point_input_value); #else /* __OLD_STARLET */ double mth$gcosh(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$CSIN */ /* */ /* Sine of Complex Number (F-floating Value) */ /* */ /* The Sine of Complex Number (F-floating */ /* Value) */ /* routine returns the sine of a complex number (r,i) as an */ /* F-floating value. */ /* */ /* 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). */ /* */ /* 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. */ /* */ #define mth$cvt_d_g MTH$CVT_D_G #ifdef __NEW_STARLET double mth$cvt_d_g( double *floating_point_input_val); #else /* __OLD_STARLET */ double mth$cvt_d_g(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ #define mth$cvt_g_d MTH$CVT_G_D #ifdef __NEW_STARLET double mth$cvt_g_d( double *floating_point_input_val); #else /* __OLD_STARLET */ double mth$cvt_g_d(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ #define mth$cvt_da_ga MTH$CVT_DA_GA #ifdef __NEW_STARLET int mth$cvt_da_ga( double floating_point_input_array [], double floating_point_dest_array [], __optional_params); #else /* __OLD_STARLET */ int mth$cvt_da_ga(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ #define mth$cvt_ga_da MTH$CVT_GA_DA #ifdef __NEW_STARLET int mth$cvt_ga_da( double floating_point_input_array [], double floating_point_dest_array [], __optional_params); #else /* __OLD_STARLET */ int mth$cvt_ga_da(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$CDCOS */ /* */ /* Cosine of a Complex Number */ /* */ /* The Cosine of a Complex Number */ /* routine returns the cosine of a complex number. */ /* */ #define mth$cdcos MTH$CDCOS #ifdef __NEW_STARLET int mth$cdcos( double complex_cosine [2], double complex_number [2]); #else /* __OLD_STARLET */ int mth$cdcos(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$CGCOS */ /* */ /* Cosine of a Complex Number */ /* */ /* The Cosine of a Complex Number */ /* routine returns the cosine of a complex number. */ /* */ #define mth$cgcos MTH$CGCOS #ifdef __NEW_STARLET int mth$cgcos( double complex_cosine [2], double complex_number [2]); #else /* __OLD_STARLET */ int mth$cgcos(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$CDEXP */ /* */ /* Complex Exponential */ /* */ /* The Complex Exponential */ /* routine returns the complex exponential of a */ /* complex number. */ /* */ #define mth$cdexp MTH$CDEXP #ifdef __NEW_STARLET int mth$cdexp( double complex_exponent [2], double complex_number [2]); #else /* __OLD_STARLET */ int mth$cdexp(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$CGEXP */ /* */ /* Complex Exponential */ /* */ /* The Complex Exponential */ /* routine returns the complex exponential of a */ /* complex number. */ /* */ #define mth$cgexp MTH$CGEXP #ifdef __NEW_STARLET int mth$cgexp( double complex_exponent [2], double complex_number [2]); #else /* __OLD_STARLET */ int mth$cgexp(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$CDLOG */ /* */ /* Complex Natural Logarithm */ /* */ /* The Complex Natural Logarithm */ /* routine returns the complex natural logarithm of a complex number. */ /* */ #define mth$cdlog MTH$CDLOG #ifdef __NEW_STARLET int mth$cdlog( double complex_natural_log [2], double complex_number [2]); #else /* __OLD_STARLET */ int mth$cdlog(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$CGLOG */ /* */ /* Complex Natural Logarithm */ /* */ /* The Complex Natural Logarithm */ /* routine returns the complex natural logarithm of a complex number. */ /* */ #define mth$cglog MTH$CGLOG #ifdef __NEW_STARLET int mth$cglog( double complex_natural_log [2], double complex_number [2]); #else /* __OLD_STARLET */ int mth$cglog(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$CDSIN */ /* */ /* Sine of Complex Number */ /* */ /* The Sine of Complex Number */ /* routine returns the sine of a complex number (r,i). */ /* */ #define mth$cdsin MTH$CDSIN #ifdef __NEW_STARLET int mth$cdsin( double complex_sine [2], double complex_number [2]); #else /* __OLD_STARLET */ int mth$cdsin(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$CGSIN */ /* */ /* Sine of Complex Number */ /* */ /* The Sine of Complex Number */ /* routine returns the sine of a complex number (r,i). */ /* */ #define mth$cgsin MTH$CGSIN #ifdef __NEW_STARLET int mth$cgsin( double complex_sine [2], double complex_number [2]); #else /* __OLD_STARLET */ int mth$cgsin(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$CDSQRT */ /* */ /* Complex Square Root */ /* */ /* The Complex Square Root routine */ /* returns the complex square root of a complex number (r,i). */ /* */ #define mth$cdsqrt MTH$CDSQRT #ifdef __NEW_STARLET int mth$cdsqrt( double complex_square_root [2], double complex_number [2]); #else /* __OLD_STARLET */ int mth$cdsqrt(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$CGSQRT */ /* */ /* Complex Square Root */ /* */ /* The Complex Square Root routine */ /* returns the complex square root of a complex number (r,i). */ /* */ #define mth$cgsqrt MTH$CGSQRT #ifdef __NEW_STARLET int mth$cgsqrt( double complex_square_root [2], double complex_number [2]); #else /* __OLD_STARLET */ int mth$cgsqrt(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$EXP */ /* */ /* Exponential */ /* */ /* The Exponential */ /* routine returns the exponential of the input value. */ /* */ #define mth$exp MTH$EXP #ifdef __NEW_STARLET float mth$exp( float *floating_point_input_value); #else /* __OLD_STARLET */ float mth$exp(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$DEXP */ /* */ /* Exponential */ /* */ /* The Exponential */ /* routine returns the exponential of the input value. */ /* */ #define mth$dexp MTH$DEXP #ifdef __NEW_STARLET double mth$dexp( double *floating_point_input_value); #else /* __OLD_STARLET */ double mth$dexp(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$GEXP */ /* */ /* Exponential */ /* */ /* The Exponential */ /* routine returns the exponential of the input value. */ /* */ #define mth$gexp MTH$GEXP #ifdef __NEW_STARLET double mth$gexp( double *floating_point_input_value); #else /* __OLD_STARLET */ double mth$gexp(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ #define mth$hacos MTH$HACOS #ifdef __NEW_STARLET int mth$hacos( int h_radians [4], int cosine [4]); #else /* __OLD_STARLET */ int mth$hacos(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ #define mth$hacosd MTH$HACOSD #ifdef __NEW_STARLET int mth$hacosd( int h_degrees [4], int cosine [4]); #else /* __OLD_STARLET */ int mth$hacosd(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ #define mth$hasin MTH$HASIN #ifdef __NEW_STARLET int mth$hasin( int h_radians [4], int sine [4]); #else /* __OLD_STARLET */ int mth$hasin(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ #define mth$hasind MTH$HASIND #ifdef __NEW_STARLET int mth$hasind( int h_degrees [4], int sine [4]); #else /* __OLD_STARLET */ int mth$hasind(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ #define mth$hatan MTH$HATAN #ifdef __NEW_STARLET int mth$hatan( int h_radians [4], int tangent [4]); #else /* __OLD_STARLET */ int mth$hatan(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ #define mth$hatan2 MTH$HATAN2 #ifdef __NEW_STARLET int mth$hatan2( int h_radians [4], int sine [4], int cosine [4]); #else /* __OLD_STARLET */ int mth$hatan2(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ #define mth$hatand MTH$HATAND #ifdef __NEW_STARLET int mth$hatand( int h_degrees [4], int tangent [4]); #else /* __OLD_STARLET */ int mth$hatand(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$HATANH */ /* */ /* Hyperbolic Arc Tangent (H-floating Value) */ /* */ /* Given the hyperbolic tangent of an angle, the Hyperbolic Arc */ /* Tangent (H-floating Value) */ /* routine returns */ /* the hyperbolic arc tangent (as an H-floating value) of that angle. */ /* */ #define mth$hatanh MTH$HATANH #ifdef __NEW_STARLET int mth$hatanh( int h_atanh [4], int hyperbolic_tangent [4]); #else /* __OLD_STARLET */ int mth$hatanh(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ #define mth$hcos MTH$HCOS #ifdef __NEW_STARLET int mth$hcos( int h_cosine [4], int angle_in_radians [4]); #else /* __OLD_STARLET */ int mth$hcos(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ #define mth$hcosd MTH$HCOSD #ifdef __NEW_STARLET int mth$hcosd( int h_cosine [4], int angle_in_degrees [4]); #else /* __OLD_STARLET */ int mth$hcosd(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$HCOSH */ /* */ /* Hyperbolic Cosine (H-floating Value) */ /* */ /* The Hyperbolic Cosine */ /* routine returns the hyperbolic cosine of */ /* the input value as an H-floating value. */ /* */ #define mth$hcosh MTH$HCOSH #ifdef __NEW_STARLET int mth$hcosh( int h_cosh [4], int floating_point_input_value [4]); #else /* __OLD_STARLET */ int mth$hcosh(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$HEXP */ /* */ /* Exponential (H-floating Value) */ /* */ /* The Exponential */ /* routine returns the exponential of the input value as an H-floating */ /* value. */ /* */ #define mth$hexp MTH$HEXP #ifdef __NEW_STARLET int mth$hexp( int h_exp [4], int floating_point_input_value [4]); #else /* __OLD_STARLET */ int mth$hexp(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ #define mth$hlog10 MTH$HLOG10 #ifdef __NEW_STARLET int mth$hlog10( int h_log10 [4], int floating_point_input_value [4]); #else /* __OLD_STARLET */ int mth$hlog10(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ #define mth$hlog MTH$HLOG #ifdef __NEW_STARLET int mth$hlog( int h_natlog [4], int floating_point_input_value [4]); #else /* __OLD_STARLET */ int mth$hlog(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ #define mth$hlog2 MTH$HLOG2 #ifdef __NEW_STARLET int mth$hlog2( int h_log2 [4], int floating_point_input_value [4]); #else /* __OLD_STARLET */ int mth$hlog2(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ #define mth$hsin MTH$HSIN #ifdef __NEW_STARLET int mth$hsin( int h_sine [4], int angle_in_radians [4]); #else /* __OLD_STARLET */ int mth$hsin(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ #define mth$hsind MTH$HSIND #ifdef __NEW_STARLET int mth$hsind( int h_sine [4], int angle_in_degrees [4]); #else /* __OLD_STARLET */ int mth$hsind(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ #define mth$hsinh MTH$HSINH #ifdef __NEW_STARLET int mth$hsinh( int h_sinh [4], int floating_point_input_value [4]); #else /* __OLD_STARLET */ int mth$hsinh(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ #define mth$hsqrt MTH$HSQRT #ifdef __NEW_STARLET int mth$hsqrt( int h_sqrt [4], int floating_point_input_value [4]); #else /* __OLD_STARLET */ int mth$hsqrt(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ #define mth$htan MTH$HTAN #ifdef __NEW_STARLET int mth$htan( int h_tan [4], int angle_in_radians [4]); #else /* __OLD_STARLET */ int mth$htan(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ #define mth$htand MTH$HTAND #ifdef __NEW_STARLET int mth$htand( int h_tan [4], int angle_in_degrees [4]); #else /* __OLD_STARLET */ int mth$htand(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ #define mth$htanh MTH$HTANH #ifdef __NEW_STARLET int mth$htanh( int h_tanh [4], int floating_point_input_value [4]); #else /* __OLD_STARLET */ int mth$htanh(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ #define mth$hatand2 MTH$HATAND2 #ifdef __NEW_STARLET int mth$hatand2( int h_degrees [4], int sine [4], int cosine [4]); #else /* __OLD_STARLET */ int mth$hatand2(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$AIMAG */ /* */ /* Imaginary Part of a Complex Number */ /* */ /* The Imaginary Part of a Complex Number */ /* routine returns the imaginary part of a complex number. */ /* */ #define mth$aimag MTH$AIMAG #ifdef __NEW_STARLET float mth$aimag( float complex_number [2]); #else /* __OLD_STARLET */ float mth$aimag(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$DIMAG */ /* */ /* Imaginary Part of a Complex Number */ /* */ /* The Imaginary Part of a Complex Number */ /* routine returns the imaginary part of a complex number. */ /* */ #define mth$dimag MTH$DIMAG #ifdef __NEW_STARLET double mth$dimag( double complex_number [2]); #else /* __OLD_STARLET */ double mth$dimag(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$GIMAG */ /* */ /* Imaginary Part of a Complex Number */ /* */ /* The Imaginary Part of a Complex Number */ /* routine returns the imaginary part of a complex number. */ /* */ #define mth$gimag MTH$GIMAG #ifdef __NEW_STARLET double mth$gimag( double complex_number [2]); #else /* __OLD_STARLET */ double mth$gimag(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$ALOG */ /* */ /* Natural Logarithm */ /* */ /* The Natural Logarithm */ /* routine returns the natural (base e) logarithm of */ /* the input argument. */ /* */ #define mth$alog MTH$ALOG #ifdef __NEW_STARLET float mth$alog( float *floating_point_input_value); #else /* __OLD_STARLET */ float mth$alog(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$DLOG */ /* */ /* Natural Logarithm */ /* */ /* The Natural Logarithm */ /* routine returns the natural (base e) logarithm of */ /* the input argument. */ /* */ #define mth$dlog MTH$DLOG #ifdef __NEW_STARLET double mth$dlog( double *floating_point_input_value); #else /* __OLD_STARLET */ double mth$dlog(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$GLOG */ /* */ /* Natural Logarithm */ /* */ /* The Natural Logarithm */ /* routine returns the natural (base e) logarithm of */ /* the input argument. */ /* */ #define mth$glog MTH$GLOG #ifdef __NEW_STARLET double mth$glog( double *floating_point_input_value); #else /* __OLD_STARLET */ double mth$glog(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$ALOG10 */ /* */ /* Common Logarithm */ /* */ /* The Common Logarithm */ /* routine returns the common (base 10) logarithm of */ /* the input argument. */ /* */ #define mth$alog10 MTH$ALOG10 #ifdef __NEW_STARLET float mth$alog10( float *floating_point_input_value); #else /* __OLD_STARLET */ float mth$alog10(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$DLOG10 */ /* */ /* Common Logarithm */ /* */ /* The Common Logarithm */ /* routine returns the common (base 10) logarithm of */ /* the input argument. */ /* */ #define mth$dlog10 MTH$DLOG10 #ifdef __NEW_STARLET double mth$dlog10( double *floating_point_input_value); #else /* __OLD_STARLET */ double mth$dlog10(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$GLOG10 */ /* */ /* Common Logarithm */ /* */ /* The Common Logarithm */ /* routine returns the common (base 10) logarithm of */ /* the input argument. */ /* */ #define mth$glog10 MTH$GLOG10 #ifdef __NEW_STARLET double mth$glog10( double *floating_point_input_value); #else /* __OLD_STARLET */ double mth$glog10(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ #define mth$alog2 MTH$ALOG2 #ifdef __NEW_STARLET float mth$alog2( float *floating_point_input_value); #else /* __OLD_STARLET */ float mth$alog2(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ #define mth$dlog2 MTH$DLOG2 #ifdef __NEW_STARLET double mth$dlog2( double *floating_point_input_value); #else /* __OLD_STARLET */ double mth$dlog2(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ #define mth$glog2 MTH$GLOG2 #ifdef __NEW_STARLET double mth$glog2( double *floating_point_input_value); #else /* __OLD_STARLET */ double mth$glog2(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$RANDOM */ /* */ /* Random-Number Generator, Uniformly Distributed */ /* */ /* The Random-Number Generator, Uniformly Distributed */ /* routine is a general random-number generator. */ /* */ #define mth$random MTH$RANDOM #ifdef __NEW_STARLET float mth$random( unsigned int *seed); #else /* __OLD_STARLET */ float mth$random(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$REAL */ /* */ /* Real Part of a Complex Number */ /* */ /* The Real Part of a Complex Number */ /* routine returns the real part of a complex number. */ /* */ #define mth$real MTH$REAL #ifdef __NEW_STARLET float mth$real( float complex_number [2]); #else /* __OLD_STARLET */ float mth$real(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$DREAL */ /* */ /* Real Part of a Complex Number */ /* */ /* The Real Part of a Complex Number */ /* routine returns the real part of a complex number. */ /* */ #define mth$dreal MTH$DREAL #ifdef __NEW_STARLET double mth$dreal( double complex_number [2]); #else /* __OLD_STARLET */ double mth$dreal(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$GREAL */ /* */ /* Real Part of a Complex Number */ /* */ /* The Real Part of a Complex Number */ /* routine returns the real part of a complex number. */ /* */ #define mth$greal MTH$GREAL #ifdef __NEW_STARLET double mth$greal( double complex_number [2]); #else /* __OLD_STARLET */ double mth$greal(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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). */ /* */ #define mth$sin MTH$SIN #ifdef __NEW_STARLET float mth$sin( float *angle_in_radians); #else /* __OLD_STARLET */ float mth$sin(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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). */ /* */ #define mth$dsin MTH$DSIN #ifdef __NEW_STARLET double mth$dsin( double *angle_in_radians); #else /* __OLD_STARLET */ double mth$dsin(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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). */ /* */ #define mth$gsin MTH$GSIN #ifdef __NEW_STARLET double mth$gsin( double *angle_in_radians); #else /* __OLD_STARLET */ double mth$gsin(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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). */ /* */ #define mth$sind MTH$SIND #ifdef __NEW_STARLET float mth$sind( float *angle_in_degrees); #else /* __OLD_STARLET */ float mth$sind(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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). */ /* */ #define mth$dsind MTH$DSIND #ifdef __NEW_STARLET double mth$dsind( double *angle_in_degrees); #else /* __OLD_STARLET */ double mth$dsind(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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). */ /* */ #define mth$gsind MTH$GSIND #ifdef __NEW_STARLET double mth$gsind( double *angle_in_degrees); #else /* __OLD_STARLET */ double mth$gsind(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$SINH */ /* */ /* Hyperbolic Sine */ /* */ /* The Hyperbolic Sine */ /* routine returns the hyperbolic sine of the input */ /* value specified by floating-point-input-value. */ /* */ #define mth$sinh MTH$SINH #ifdef __NEW_STARLET float mth$sinh( float *floating_point_input_value); #else /* __OLD_STARLET */ float mth$sinh(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$DSINH */ /* */ /* Hyperbolic Sine */ /* */ /* The Hyperbolic Sine */ /* routine returns the hyperbolic sine of the input */ /* value specified by floating-point-input-value. */ /* */ #define mth$dsinh MTH$DSINH #ifdef __NEW_STARLET double mth$dsinh( double *floating_point_input_value); #else /* __OLD_STARLET */ double mth$dsinh(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$GSINH */ /* */ /* Hyperbolic Sine */ /* */ /* The Hyperbolic Sine */ /* routine returns the hyperbolic sine of the input */ /* value specified by floating-point-input-value. */ /* */ #define mth$gsinh MTH$GSINH #ifdef __NEW_STARLET double mth$gsinh( double *floating_point_input_value); #else /* __OLD_STARLET */ double mth$gsinh(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$SINCOS */ /* */ /* Sine and Cosine of Angle Expressed in Radians */ /* */ /* The Sine and Cosine of Angle Expressed in Radians */ /* routine returns the sine */ /* and the cosine of a given angle (in radians). */ /* */ #define mth$sincos MTH$SINCOS #ifdef __NEW_STARLET int mth$sincos( float *angle_in_radians, float *sine, float *cosine); #else /* __OLD_STARLET */ int mth$sincos(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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). */ /* */ #define mth$dsincos MTH$DSINCOS #ifdef __NEW_STARLET int mth$dsincos( double *angle_in_radians, double *sine, double *cosine); #else /* __OLD_STARLET */ int mth$dsincos(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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). */ /* */ #define mth$gsincos MTH$GSINCOS #ifdef __NEW_STARLET int mth$gsincos( double *angle_in_radians, double *sine, double *cosine); #else /* __OLD_STARLET */ int mth$gsincos(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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). */ /* */ #define mth$hsincos MTH$HSINCOS #ifdef __NEW_STARLET int mth$hsincos( int angle_in_radians [4], int sine [4], int cosine [4]); #else /* __OLD_STARLET */ int mth$hsincos(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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). */ /* */ #define mth$sincosd MTH$SINCOSD #ifdef __NEW_STARLET int mth$sincosd( float *angle_in_degrees, float *sine, float *cosine); #else /* __OLD_STARLET */ int mth$sincosd(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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). */ /* */ #define mth$dsincosd MTH$DSINCOSD #ifdef __NEW_STARLET int mth$dsincosd( double *angle_in_degrees, double *sine, double *cosine); #else /* __OLD_STARLET */ int mth$dsincosd(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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). */ /* */ #define mth$gsincosd MTH$GSINCOSD #ifdef __NEW_STARLET int mth$gsincosd( double *angle_in_degrees, double *sine, double *cosine); #else /* __OLD_STARLET */ int mth$gsincosd(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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). */ /* */ #define mth$hsincosd MTH$HSINCOSD #ifdef __NEW_STARLET int mth$hsincosd( int angle_in_degrees [4], int sine [4], int cosine [4]); #else /* __OLD_STARLET */ int mth$hsincosd(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$SQRT */ /* */ /* Square Root */ /* */ /* The Square Root */ /* routine returns the square root of the input value */ /* floating-point-input-value. */ /* */ #define mth$sqrt MTH$SQRT #ifdef __NEW_STARLET float mth$sqrt( float *floating_point_input_value); #else /* __OLD_STARLET */ float mth$sqrt(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$DSQRT */ /* */ /* Square Root */ /* */ /* The Square Root */ /* routine returns the square root of the input value */ /* floating-point-input-value. */ /* */ #define mth$dsqrt MTH$DSQRT #ifdef __NEW_STARLET double mth$dsqrt( double *floating_point_input_value); #else /* __OLD_STARLET */ double mth$dsqrt(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$GSQRT */ /* */ /* Square Root */ /* */ /* The Square Root */ /* routine returns the square root of the input value */ /* floating-point-input-value. */ /* */ #define mth$gsqrt MTH$GSQRT #ifdef __NEW_STARLET double mth$gsqrt( double *floating_point_input_value); #else /* __OLD_STARLET */ double mth$gsqrt(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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). */ /* */ #define mth$tan MTH$TAN #ifdef __NEW_STARLET float mth$tan( float *angle_in_radians); #else /* __OLD_STARLET */ float mth$tan(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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). */ /* */ #define mth$dtan MTH$DTAN #ifdef __NEW_STARLET double mth$dtan( double *angle_in_radians); #else /* __OLD_STARLET */ double mth$dtan(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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). */ /* */ #define mth$gtan MTH$GTAN #ifdef __NEW_STARLET double mth$gtan( double *angle_in_radians); #else /* __OLD_STARLET */ double mth$gtan(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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). */ /* */ #define mth$tand MTH$TAND #ifdef __NEW_STARLET float mth$tand( float *angle_in_degrees); #else /* __OLD_STARLET */ float mth$tand(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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). */ /* */ #define mth$dtand MTH$DTAND #ifdef __NEW_STARLET double mth$dtand( double *angle_in_degrees); #else /* __OLD_STARLET */ double mth$dtand(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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). */ /* */ #define mth$gtand MTH$GTAND #ifdef __NEW_STARLET double mth$gtand( double *angle_in_degrees); #else /* __OLD_STARLET */ double mth$gtand(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$TANH */ /* */ /* Compute the Hyperbolic Tangent */ /* */ /* The Compute the Hyperbolic Tangent */ /* routine returns the hyperbolic tangent */ /* of the input value. */ /* */ #define mth$tanh MTH$TANH #ifdef __NEW_STARLET float mth$tanh( float *floating_point_input_value); #else /* __OLD_STARLET */ float mth$tanh(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$DTANH */ /* */ /* Compute the Hyperbolic Tangent */ /* */ /* The Compute the Hyperbolic Tangent */ /* routine returns the hyperbolic tangent */ /* of the input value. */ /* */ #define mth$dtanh MTH$DTANH #ifdef __NEW_STARLET double mth$dtanh( double *floating_point_input_value); #else /* __OLD_STARLET */ double mth$dtanh(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$GTANH */ /* */ /* Compute the Hyperbolic Tangent */ /* */ /* The Compute the Hyperbolic Tangent */ /* routine returns the hyperbolic tangent */ /* of the input value. */ /* */ #define mth$gtanh MTH$GTANH #ifdef __NEW_STARLET double mth$gtanh( double *floating_point_input_value); #else /* __OLD_STARLET */ double mth$gtanh(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ #define mth$umax MTH$UMAX #ifdef __NEW_STARLET unsigned int mth$umax( unsigned int *argument); #else /* __OLD_STARLET */ unsigned int mth$umax(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* 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. */ /* */ #define mth$umin MTH$UMIN #ifdef __NEW_STARLET unsigned int mth$umin( unsigned int *argument); #else /* __OLD_STARLET */ unsigned int mth$umin(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$ABS */ /* */ /* F_floating Absolute Value Routine */ /* */ #define mth$abs MTH$ABS #ifdef __NEW_STARLET float mth$abs( float *f_floating); #else /* __OLD_STARLET */ float mth$abs(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$DABS */ /* */ /* D_floating Absolute Value Routine */ /* */ #define mth$dabs MTH$DABS #ifdef __NEW_STARLET double mth$dabs( double *d_floating); #else /* __OLD_STARLET */ double mth$dabs(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$GABS */ /* */ /* G_floating Absolute Value Routine */ /* */ #define mth$gabs MTH$GABS #ifdef __NEW_STARLET double mth$gabs( double *g_floating); #else /* __OLD_STARLET */ double mth$gabs(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$HABS */ /* */ /* H_floating Absolute Value Routine */ /* */ #define mth$habs MTH$HABS #ifdef __NEW_STARLET int mth$habs( int h_abs_val [4], int h_floating [4]); #else /* __OLD_STARLET */ int mth$habs(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$IIABS */ /* */ /* Word Absolute Value Routine */ /* */ #define mth$iiabs MTH$IIABS #ifdef __NEW_STARLET short int mth$iiabs( short int *word); #else /* __OLD_STARLET */ short int mth$iiabs(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$JIABS */ /* */ /* Longword Absolute Value Routine */ /* */ #define mth$jiabs MTH$JIABS #ifdef __NEW_STARLET int mth$jiabs( int *longword); #else /* __OLD_STARLET */ int mth$jiabs(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$IIAND */ /* */ /* Bitwise AND of Two Word Parameters Routine */ /* */ #define mth$iiand MTH$IIAND #ifdef __NEW_STARLET unsigned short int mth$iiand( unsigned short int *word1, unsigned short int *word2); #else /* __OLD_STARLET */ unsigned short int mth$iiand(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$JIAND */ /* */ /* Bitwise AND of Two Longword Parameters Routine */ /* */ #define mth$jiand MTH$JIAND #ifdef __NEW_STARLET unsigned int mth$jiand( unsigned int *longword1, unsigned int *longword2); #else /* __OLD_STARLET */ unsigned int mth$jiand(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$DBLE */ /* */ /* Convert F_floating to D_floating (Exact) Routine */ /* */ #define mth$dble MTH$DBLE #ifdef __NEW_STARLET double mth$dble( float *f_floating); #else /* __OLD_STARLET */ double mth$dble(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$GDBLE */ /* */ /* Convert F_floating to G_floating (Exact) Routine */ /* */ #define mth$gdble MTH$GDBLE #ifdef __NEW_STARLET double mth$gdble( float *f_floating); #else /* __OLD_STARLET */ double mth$gdble(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$DIM */ /* */ /* Positive Difference of Two F_floating Parameters Routine */ /* */ #define mth$dim MTH$DIM #ifdef __NEW_STARLET float mth$dim( float *f_floating1, float *f_floating2); #else /* __OLD_STARLET */ float mth$dim(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$DDIM */ /* */ /* Positive Difference of Two D_floating Parameters Routine */ /* */ #define mth$ddim MTH$DDIM #ifdef __NEW_STARLET double mth$ddim( double *d_floating1, double *d_floating2); #else /* __OLD_STARLET */ double mth$ddim(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$GDIM */ /* */ /* Positive Difference of Two D_floating Parameters Routine */ /* */ #define mth$gdim MTH$GDIM #ifdef __NEW_STARLET double mth$gdim( double *g_floating1, double *g_floating2); #else /* __OLD_STARLET */ double mth$gdim(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$HDIM */ /* */ /* Positive Difference of Two D_floating Parameters Routine */ /* */ #define mth$hdim MTH$HDIM #ifdef __NEW_STARLET int mth$hdim( int h_floating [4], int h_floating1 [4], int h_floating2 [4]); #else /* __OLD_STARLET */ int mth$hdim(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$IIDIM */ /* */ /* Positive Difference of Two Word Parameters Routine */ /* */ #define mth$iidim MTH$IIDIM #ifdef __NEW_STARLET short int mth$iidim( short int *word1, short int *word2); #else /* __OLD_STARLET */ short int mth$iidim(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$JIDIM */ /* */ /* Positive Difference of Two Longword Parameters Routine */ /* */ #define mth$jidim MTH$JIDIM #ifdef __NEW_STARLET int mth$jidim( int *longword1, int *longword2); #else /* __OLD_STARLET */ int mth$jidim(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$IIEOR */ /* */ /* Bitwise Exclusive OR of Two Word Parameters Routine */ /* */ #define mth$iieor MTH$IIEOR #ifdef __NEW_STARLET unsigned short int mth$iieor( unsigned short int *word1, unsigned short int *word2); #else /* __OLD_STARLET */ unsigned short int mth$iieor(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$JIEOR */ /* */ /* Bitwise Exclusive OR of Two Longword Parameters Routine */ /* */ #define mth$jieor MTH$JIEOR #ifdef __NEW_STARLET unsigned int mth$jieor( unsigned int *longword1, unsigned int *longword2); #else /* __OLD_STARLET */ unsigned int mth$jieor(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$IIFIX */ /* */ /* Convert F_floating to Word (Truncated) Routine */ /* */ #define mth$iifix MTH$IIFIX #ifdef __NEW_STARLET short int mth$iifix( float *f_floating); #else /* __OLD_STARLET */ short int mth$iifix(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$JIFIX */ /* */ /* Convert F_floating to Longword (Truncated) Routine */ /* */ #define mth$jifix MTH$JIFIX #ifdef __NEW_STARLET int mth$jifix( float *f_floating); #else /* __OLD_STARLET */ int mth$jifix(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$FLOATI */ /* */ /* Convert Word to F_floating (Exact) Routine */ /* */ #define mth$floati MTH$FLOATI #ifdef __NEW_STARLET float mth$floati( short int *word); #else /* __OLD_STARLET */ float mth$floati(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$DFLOTI */ /* */ /* Convert Word to D_floating (Exact) Routine */ /* */ #define mth$dfloti MTH$DFLOTI #ifdef __NEW_STARLET double mth$dfloti( short int *word); #else /* __OLD_STARLET */ double mth$dfloti(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$GFLOTI */ /* */ /* Convert Word to G_floating (Exact) Routine */ /* */ #define mth$gfloti MTH$GFLOTI #ifdef __NEW_STARLET double mth$gfloti( short int *word); #else /* __OLD_STARLET */ double mth$gfloti(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$FLOATJ */ /* */ /* Convert Longword to F_floating (Exact) Routine */ /* */ #define mth$floatj MTH$FLOATJ #ifdef __NEW_STARLET float mth$floatj( int *longword); #else /* __OLD_STARLET */ float mth$floatj(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$DFLOTJ */ /* */ /* Convert Longword to D_floating (Exact) Routine */ /* */ #define mth$dflotj MTH$DFLOTJ #ifdef __NEW_STARLET double mth$dflotj( int *longword); #else /* __OLD_STARLET */ double mth$dflotj(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$GFLOTJ */ /* */ /* Convert Longword to G_floating (Exact) Routine */ /* */ #define mth$gflotj MTH$GFLOTJ #ifdef __NEW_STARLET double mth$gflotj( int *longword); #else /* __OLD_STARLET */ double mth$gflotj(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$FLOOR */ /* */ /* Convert F_floating to Greatest F_floating Integer Routine */ /* */ #define mth$floor MTH$FLOOR #ifdef __NEW_STARLET float mth$floor( float *f_floating); #else /* __OLD_STARLET */ float mth$floor(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$DFLOOR */ /* */ /* Convert D_floating to Greatest D_floating Integer Routine */ /* */ #define mth$dfloor MTH$DFLOOR #ifdef __NEW_STARLET double mth$dfloor( double *d_floating); #else /* __OLD_STARLET */ double mth$dfloor(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$GFLOOR */ /* */ /* Convert G_floating to Greatest G_floating Integer Routine */ /* */ #define mth$gfloor MTH$GFLOOR #ifdef __NEW_STARLET double mth$gfloor( double *g_floating); #else /* __OLD_STARLET */ double mth$gfloor(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$HFLOOR */ /* */ /* Convert H_floating to Greatest H_floating Integer Routine */ /* */ #define mth$hfloor MTH$HFLOOR #ifdef __NEW_STARLET int mth$hfloor( int max_h_float [4], int h_floating [4]); #else /* __OLD_STARLET */ int mth$hfloor(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$AINT */ /* */ /* Convert F_floating to Truncated F_floating Routine */ /* */ #define mth$aint MTH$AINT #ifdef __NEW_STARLET float mth$aint( float *f_floating); #else /* __OLD_STARLET */ float mth$aint(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$DINT */ /* */ /* Convert D_floating to Truncated D_floating Routine */ /* */ #define mth$dint MTH$DINT #ifdef __NEW_STARLET double mth$dint( double *d_floating); #else /* __OLD_STARLET */ double mth$dint(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$IIDINT */ /* */ /* Convert D_floating to Word (Truncated) Routine */ /* */ #define mth$iidint MTH$IIDINT #ifdef __NEW_STARLET short int mth$iidint( double *d_floating); #else /* __OLD_STARLET */ short int mth$iidint(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$JIDINT */ /* */ /* Convert D_floating to Longword (Truncated) Routine */ /* */ #define mth$jidint MTH$JIDINT #ifdef __NEW_STARLET int mth$jidint( double *d_floating); #else /* __OLD_STARLET */ int mth$jidint(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$GINT */ /* */ /* Convert G_floating to G_floating (Truncated) Routine */ /* */ #define mth$gint MTH$GINT #ifdef __NEW_STARLET double mth$gint( double *g_floating); #else /* __OLD_STARLET */ double mth$gint(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$IIGINT */ /* */ /* Convert G_floating to Word (Truncated) Routine */ /* */ #define mth$iigint MTH$IIGINT #ifdef __NEW_STARLET short int mth$iigint( double *g_floating); #else /* __OLD_STARLET */ short int mth$iigint(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$JIGINT */ /* */ /* Convert G_floating to Longword (Truncated) Routine */ /* */ #define mth$jigint MTH$JIGINT #ifdef __NEW_STARLET int mth$jigint( double *g_floating); #else /* __OLD_STARLET */ int mth$jigint(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$HINT */ /* */ /* Convert H_floating to H_floating (Truncated) Routine */ /* */ #define mth$hint MTH$HINT #ifdef __NEW_STARLET int mth$hint( int trunc_h_flt [4], int h_floating [4]); #else /* __OLD_STARLET */ int mth$hint(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$IIHINT */ /* */ /* Convert H_floating to Truncated Word Routine */ /* */ #define mth$iihint MTH$IIHINT #ifdef __NEW_STARLET short int mth$iihint( int h_floating [4]); #else /* __OLD_STARLET */ short int mth$iihint(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$JIHINT */ /* */ /* Convert H_floating to Truncated Longword Routine */ /* */ #define mth$jihint MTH$JIHINT #ifdef __NEW_STARLET int mth$jihint( int h_floating [4]); #else /* __OLD_STARLET */ int mth$jihint(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$IINT */ /* */ /* Convert F_floating to Word (Truncated) Routine */ /* */ #define mth$iint MTH$IINT #ifdef __NEW_STARLET short int mth$iint( float *f_floating); #else /* __OLD_STARLET */ short int mth$iint(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$JINT */ /* */ /* Convert F_floating to Longword (Truncated) Routine */ /* */ #define mth$jint MTH$JINT #ifdef __NEW_STARLET int mth$jint( float *f_floating); #else /* __OLD_STARLET */ int mth$jint(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$IIOR */ /* */ /* Bitwise Inclusive OR of Two Word Parameters Routine */ /* */ #define mth$iior MTH$IIOR #ifdef __NEW_STARLET unsigned short int mth$iior( unsigned short int *word1, unsigned short int *word2); #else /* __OLD_STARLET */ unsigned short int mth$iior(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$JIOR */ /* */ /* Bitwise Inclusive OR of Two Longword Parameters Routine */ /* */ #define mth$jior MTH$JIOR #ifdef __NEW_STARLET unsigned int mth$jior( unsigned int *longword1, unsigned int *longword2); #else /* __OLD_STARLET */ unsigned int mth$jior(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$AIMAX0 */ /* */ /* F_floating Maximum of N WordParameters Routine */ /* */ #define mth$aimax0 MTH$AIMAX0 #ifdef __NEW_STARLET float mth$aimax0( short int *word); #else /* __OLD_STARLET */ float mth$aimax0(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$AJMAX0 */ /* */ /* F_floating Maximum of N Longword Parameters Routine */ /* */ #define mth$ajmax0 MTH$AJMAX0 #ifdef __NEW_STARLET float mth$ajmax0( int *longword); #else /* __OLD_STARLET */ float mth$ajmax0(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$IMAX0 */ /* */ /* Word Maximum of N Word Parameters Routine */ /* */ #define mth$imax0 MTH$IMAX0 #ifdef __NEW_STARLET short int mth$imax0( short int *word); #else /* __OLD_STARLET */ short int mth$imax0(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$JMAX0 */ /* */ /* Longword Maximum of N Longword Parameters Routine */ /* */ #define mth$jmax0 MTH$JMAX0 #ifdef __NEW_STARLET int mth$jmax0( int *longword); #else /* __OLD_STARLET */ int mth$jmax0(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$AMAX1 */ /* */ /* F_floating Maximum of N F_floating Parameters Routine */ /* */ #define mth$amax1 MTH$AMAX1 #ifdef __NEW_STARLET float mth$amax1( float *f_floating); #else /* __OLD_STARLET */ float mth$amax1(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$DMAX1 */ /* */ /* D_floating Maximum of N D_floating Parameters Routine */ /* */ #define mth$dmax1 MTH$DMAX1 #ifdef __NEW_STARLET double mth$dmax1( double *d_floating); #else /* __OLD_STARLET */ double mth$dmax1(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$GMAX1 */ /* */ /* G_floating Maximum of N G_floating Parameters Routine */ /* */ #define mth$gmax1 MTH$GMAX1 #ifdef __NEW_STARLET double mth$gmax1( double *g_floating); #else /* __OLD_STARLET */ double mth$gmax1(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$HMAX1 */ /* */ /* H_floating Maximum of N H_floating Parameters Routine */ /* */ #define mth$hmax1 MTH$HMAX1 #ifdef __NEW_STARLET int mth$hmax1( int h_float_max [4], int h_floating [4]); #else /* __OLD_STARLET */ int mth$hmax1(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$IMAX1 */ /* */ /* Word Maximum of N F_floating Parameters Routine */ /* */ #define mth$imax1 MTH$IMAX1 #ifdef __NEW_STARLET short int mth$imax1( float *f_floating); #else /* __OLD_STARLET */ short int mth$imax1(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$JMAX1 */ /* */ /* Longword Maximum of N F_floating Parameters Routine */ /* */ #define mth$jmax1 MTH$JMAX1 #ifdef __NEW_STARLET int mth$jmax1( float *f_floating); #else /* __OLD_STARLET */ int mth$jmax1(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$AIMIN0 */ /* */ /* F_floating Minimum of N Word Parameters Routine */ /* */ #define mth$aimin0 MTH$AIMIN0 #ifdef __NEW_STARLET float mth$aimin0( short int *word); #else /* __OLD_STARLET */ float mth$aimin0(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$AJMIN0 */ /* */ /* F_floating Minimum of N Longword Parameters Routine */ /* */ #define mth$ajmin0 MTH$AJMIN0 #ifdef __NEW_STARLET float mth$ajmin0( int *longword); #else /* __OLD_STARLET */ float mth$ajmin0(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$IMIN0 */ /* */ /* Word Minimum of N Word Parameters Routine */ /* */ #define mth$imin0 MTH$IMIN0 #ifdef __NEW_STARLET short int mth$imin0( short int *word); #else /* __OLD_STARLET */ short int mth$imin0(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$JMIN0 */ /* */ /* Longword Minimum of N Longword Parameters Routine */ /* */ #define mth$jmin0 MTH$JMIN0 #ifdef __NEW_STARLET int mth$jmin0( int *longword); #else /* __OLD_STARLET */ int mth$jmin0(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$AMIN1 */ /* */ /* F_floating Minimum of N F_floating Parameters Routine */ /* */ #define mth$amin1 MTH$AMIN1 #ifdef __NEW_STARLET float mth$amin1( float *f_floating); #else /* __OLD_STARLET */ float mth$amin1(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$DMIN1 */ /* */ /* D_floating Minimum of N D_floating Parameters Routine */ /* */ #define mth$dmin1 MTH$DMIN1 #ifdef __NEW_STARLET double mth$dmin1( double *d_floating); #else /* __OLD_STARLET */ double mth$dmin1(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$GMIN1 */ /* */ /* G_floating Minimum of N G_floating Parameters Routine */ /* */ #define mth$gmin1 MTH$GMIN1 #ifdef __NEW_STARLET double mth$gmin1( double *g_floating); #else /* __OLD_STARLET */ double mth$gmin1(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$HMIN1 */ /* */ /* H_floating Minimum of N H_floating Parameters Routine */ /* */ #define mth$hmin1 MTH$HMIN1 #ifdef __NEW_STARLET int mth$hmin1( int h_float_max [4], int h_floating [4]); #else /* __OLD_STARLET */ int mth$hmin1(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$IMIN1 */ /* */ /* Word Minimum of N F_floating Parameters Routine */ /* */ #define mth$imin1 MTH$IMIN1 #ifdef __NEW_STARLET short int mth$imin1( float *f_floating); #else /* __OLD_STARLET */ short int mth$imin1(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$JMIN1 */ /* */ /* Longword Minimum of N F_floating Parameters Routine */ /* */ #define mth$jmin1 MTH$JMIN1 #ifdef __NEW_STARLET int mth$jmin1( float *f_floating); #else /* __OLD_STARLET */ int mth$jmin1(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$AMOD */ /* */ /* Remainder of Two F_floating Parameters Routine */ /* */ #define mth$amod MTH$AMOD #ifdef __NEW_STARLET float mth$amod( float *dividend, float *divisor); #else /* __OLD_STARLET */ float mth$amod(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$DMOD */ /* */ /* Remainder of Two D_floating Parameters Routine */ /* */ #define mth$dmod MTH$DMOD #ifdef __NEW_STARLET double mth$dmod( double *dividend, double *divisor); #else /* __OLD_STARLET */ double mth$dmod(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$GMOD */ /* */ /* Remainder of Two G_floating Parameters Routine */ /* */ #define mth$gmod MTH$GMOD #ifdef __NEW_STARLET double mth$gmod( double *dividend, double *divisor); #else /* __OLD_STARLET */ double mth$gmod(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$HMOD */ /* */ /* Remainder of Two H_floating Parameters Routine */ /* */ #define mth$hmod MTH$HMOD #ifdef __NEW_STARLET int mth$hmod( int h_mod [4], int dividend [4], int divisor [4]); #else /* __OLD_STARLET */ int mth$hmod(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$IMOD */ /* */ /* Remainder of Two Word Parameters Routine */ /* */ #define mth$imod MTH$IMOD #ifdef __NEW_STARLET short int mth$imod( short int *dividend, short int *divisor); #else /* __OLD_STARLET */ short int mth$imod(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$JMOD */ /* */ /* Remainder of Two Longword Parameters Routine */ /* */ #define mth$jmod MTH$JMOD #ifdef __NEW_STARLET int mth$jmod( int *dividend, int *divisor); #else /* __OLD_STARLET */ int mth$jmod(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$ANINT */ /* */ /* Convert F_floating to Nearest F_floating Integer Routine */ /* */ #define mth$anint MTH$ANINT #ifdef __NEW_STARLET float mth$anint( float *f_floating); #else /* __OLD_STARLET */ float mth$anint(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$DNINT */ /* */ /* Convert D_floating to Nearest D_floating Integer Routine */ /* */ #define mth$dnint MTH$DNINT #ifdef __NEW_STARLET double mth$dnint( double *d_floating); #else /* __OLD_STARLET */ double mth$dnint(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$IIDNNT */ /* */ /* Convert D_floating to Word Integer Routine */ /* */ #define mth$iidnnt MTH$IIDNNT #ifdef __NEW_STARLET short int mth$iidnnt( double *d_floating); #else /* __OLD_STARLET */ short int mth$iidnnt(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$JIDNNT */ /* */ /* Convert D_floating to Nearest Longword Integer Routine */ /* */ #define mth$jidnnt MTH$JIDNNT #ifdef __NEW_STARLET int mth$jidnnt( double *d_floating); #else /* __OLD_STARLET */ int mth$jidnnt(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$GNINT */ /* */ /* Convert G_floating to Nearest G_floating Integer Routine */ /* */ #define mth$gnint MTH$GNINT #ifdef __NEW_STARLET double mth$gnint( double *g_floating); #else /* __OLD_STARLET */ double mth$gnint(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$IIGNNT */ /* */ /* Convert T_floating to Nearest G_floating Integer Routine */ /* */ #define mth$iignnt MTH$IIGNNT #ifdef __NEW_STARLET short int mth$iignnt( double *g_floating); #else /* __OLD_STARLET */ short int mth$iignnt(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$JIGNNT */ /* */ /* Convert G_floating to Nearest Longword Integer Routine */ /* */ #define mth$jignnt MTH$JIGNNT #ifdef __NEW_STARLET int mth$jignnt( double *g_floating); #else /* __OLD_STARLET */ int mth$jignnt(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$HNINT */ /* */ /* Convert H_floating to Nearest H_floating Integer Routine */ /* */ #define mth$hnint MTH$HNINT #ifdef __NEW_STARLET int mth$hnint( int nearst_h_flt [4], int h_floating [4]); #else /* __OLD_STARLET */ int mth$hnint(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$IIHNNT */ /* */ /* Convert H_floating to Nearest Word Integer Routine */ /* */ #define mth$iihnnt MTH$IIHNNT #ifdef __NEW_STARLET short int mth$iihnnt( int h_floating [4]); #else /* __OLD_STARLET */ short int mth$iihnnt(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$JIHNNT */ /* */ /* Convert H_floating to Nearest Longword Integer Routine */ /* */ #define mth$jihnnt MTH$JIHNNT #ifdef __NEW_STARLET int mth$jihnnt( int h_floating [4]); #else /* __OLD_STARLET */ int mth$jihnnt(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$ININT */ /* */ /* Convert F_floating to Nearest Word Integer Routine */ /* */ #define mth$inint MTH$ININT #ifdef __NEW_STARLET short int mth$inint( float *f_floating); #else /* __OLD_STARLET */ short int mth$inint(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$JNINT */ /* */ /* Convert F_floating to Nearest Longword Integer Routine */ /* */ #define mth$jnint MTH$JNINT #ifdef __NEW_STARLET int mth$jnint( float *f_floating); #else /* __OLD_STARLET */ int mth$jnint(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$INOT */ /* */ /* Bitwise Complement of Word Parameter Routine */ /* */ #define mth$inot MTH$INOT #ifdef __NEW_STARLET unsigned short int mth$inot( unsigned short int *word); #else /* __OLD_STARLET */ unsigned short int mth$inot(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$JNOT */ /* */ /* Bitwise Complement of Longword Parameter Routine */ /* */ #define mth$jnot MTH$JNOT #ifdef __NEW_STARLET unsigned int mth$jnot( unsigned int *longword); #else /* __OLD_STARLET */ unsigned int mth$jnot(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$DPROD */ /* */ /* D_floating Product of Two F_floating Parameters Routine */ /* */ #define mth$dprod MTH$DPROD #ifdef __NEW_STARLET double mth$dprod( float *f_floating1, float *f_floating2); #else /* __OLD_STARLET */ double mth$dprod(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$GPROD */ /* */ /* G_floating Product of Two F_floating Parameters Routine */ /* */ #define mth$gprod MTH$GPROD #ifdef __NEW_STARLET double mth$gprod( float *f_floating1, float *f_floating2); #else /* __OLD_STARLET */ double mth$gprod(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$SGN */ /* */ /* F_floating Sign Function */ /* */ #define mth$sgn MTH$SGN #ifdef __NEW_STARLET int mth$sgn( unsigned int *f_or_d_floating); #else /* __OLD_STARLET */ int mth$sgn(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$IISHFT */ /* */ /* Bitwise Shift of Word Routine */ /* */ #define mth$iishft MTH$IISHFT #ifdef __NEW_STARLET unsigned short int mth$iishft( unsigned short int *word, short int *shift_cnt); #else /* __OLD_STARLET */ unsigned short int mth$iishft(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$JISHFT */ /* */ /* Bitwise Shift of Longword Routine */ /* */ #define mth$jishft MTH$JISHFT #ifdef __NEW_STARLET unsigned int mth$jishft( unsigned int *longword, int *shift_cnt); #else /* __OLD_STARLET */ unsigned int mth$jishft(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$SIGN */ /* */ /* F_floating Transfer of Sign of Y to Sign of X Routine */ /* */ #define mth$sign MTH$SIGN #ifdef __NEW_STARLET float mth$sign( float *f_float_x, float *f_float_y); #else /* __OLD_STARLET */ float mth$sign(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$DSIGN */ /* */ /* D_floating Transfer of Sign of Y to Sign of X Routine */ /* */ #define mth$dsign MTH$DSIGN #ifdef __NEW_STARLET double mth$dsign( double *d_float_x, double *d_float_y); #else /* __OLD_STARLET */ double mth$dsign(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$GSIGN */ /* */ /* G_floating Transfer of Sign of X to Sign of X Routine */ /* */ #define mth$gsign MTH$GSIGN #ifdef __NEW_STARLET double mth$gsign( double *g_float_x, double *g_float_y); #else /* __OLD_STARLET */ double mth$gsign(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$HSIGN */ /* */ /* H_floating Transfer of Sign of Y to Sign of X Routine */ /* */ #define mth$hsign MTH$HSIGN #ifdef __NEW_STARLET int mth$hsign( int h_result [4], int h_float_x [4], int h_float_y [4]); #else /* __OLD_STARLET */ int mth$hsign(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$IISIGN */ /* */ /* Word Transfer of Sign of Y to Sign of X Routine */ /* */ #define mth$iisign MTH$IISIGN #ifdef __NEW_STARLET short int mth$iisign( short int *word_x, short int *word_y); #else /* __OLD_STARLET */ short int mth$iisign(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$JISIGN */ /* */ /* Longword Transfer of Sign of Y to Sign of X Routine */ /* */ #define mth$jisign MTH$JISIGN #ifdef __NEW_STARLET int mth$jisign( int *longwrd_x, int *longwrd_y); #else /* __OLD_STARLET */ int mth$jisign(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$SNGL */ /* */ /* Convert D_floating to F_floating (Rounded) Routine */ /* */ #define mth$sngl MTH$SNGL #ifdef __NEW_STARLET float mth$sngl( double *d_floating); #else /* __OLD_STARLET */ float mth$sngl(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* MTH$SNGLG */ /* */ /* Convert G_floating to F_floating (Rounded) Routine */ /* */ #define mth$snglg MTH$SNGLG #ifdef __NEW_STARLET float mth$snglg( double *g_floating); #else /* __OLD_STARLET */ float mth$snglg(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #pragma __member_alignment __restore #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __restore /* Restore the previously-defined required ptr size */ #endif #ifdef __cplusplus } #endif #pragma __standard #endif /* __MTH_ROUTINES_LOADED */