! *** PREDECLARED TYPES %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN RECORD BASIC$H_FLOATING_COMPLEX_AXP BASIC$HFLOAT_AXP REAL_PART BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF ! *************************************************************************** ! * ! COPYRIGHT (c) 1988 BY * ! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * ! ALL RIGHTS RESERVED. * ! * ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ! TRANSFERRED. * ! * ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! CORPORATION. * ! * ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * ! * ! *************************************************************************** ! ! 20-Mar-2007 JML QXCM1000393572 Headers returning complex results ! can't be compiled by BASIC. ! ! Well clearly the routines returning complex results ! by value (requiring 2 registers) need header generation to ! be limited to only those languages KNOWN to be able ! to support it and likely to call them. ! ! ! 14-Dec-2006 JML QXCM1000384200 Headers returning complex results ! can't be compiled by C/C++ ! ! Now I understand why a number of headers have been commented ! out. When I added all the new IEEE forms, even for those ! VAX forms commented out, I didn't realize that C/C++ cannot ! return more than 64bits by value. Five of the existing IEEE ! routines return complex results by value and those require ! 2 registers. This resulted in a .h file for C/C++ that ! would not compile. The fix is to use iflanguage and ! prevent those headers from being generated for C/C++. These ! routines most likely will be called by Fortran anyway. ! ! 23-Feb-2006 JML PTR 75-109-96 Add missing headers for IEEE forms of ! various routines. ! ! As of 23-Feb-2006 SDL has no types to describe IEEE floating ! data. Since the actual type is only material with respect ! to size of the argument (single vs double precision) we use ! F-Floating to represent IEEE S-Floating and D-Floating to ! represent IEEE T-Floating. ! ! In the course of fixing this PTR it was discovered that ! number of header definitions have been commented out for ! years. Attempts to determine why they are commented out ! proved futile. Rather than risk enabling them and possibly ! introducing a collision between the system supplied headers ! and private headers users may have developed to work around ! the lack of them, they shall remain commented out. ! However, their new IEEE forms will be enabled as these ! routines only came into existence recently. ! (see DPML$SHR.OPT checkin of 24-Mar-2004). ! ! OTS$CVT_T_D ! ! Convert Numeric Text to D- or F-Floating Value ! ! The Convert Numeric Text to D- or F-Floating routines ! convert an ASCII text string representation of a ! numeric value to a D_floating or F_floating value. ! EXTERNAL LONG FUNCTION ots$cvt_t_d & ( & STRING BY DESC, & DOUBLE BY REF, & OPTIONAL LONG BY VALUE, & LONG BY VALUE, & LONG BY VALUE, & WORD BY REF & ) ! OTS$CVT_T_F ! ! Convert Numeric Text to D- or F-Floating Value ! ! The Convert Numeric Text to D- or F-Floating routines ! convert an ASCII text string representation of a ! numeric value to a D_floating or F_floating value. ! EXTERNAL LONG FUNCTION ots$cvt_t_f & ( & STRING BY DESC, & SINGLE BY REF, & OPTIONAL LONG BY VALUE, & LONG BY VALUE, & LONG BY VALUE, & WORD BY REF & ) ! OTS$CVT_T_T ! ! Convert Numeric Text to T- or S-Floating Value ! ! The Convert Numeric Text to T- or S-Floating routines ! convert an ASCII text string representation of a ! numeric value to a T_floating or S_floating value. ! EXTERNAL LONG FUNCTION ots$cvt_t_t & ( & STRING BY DESC, & DOUBLE BY REF, & OPTIONAL LONG BY VALUE, & LONG BY VALUE, & LONG BY VALUE, & WORD BY REF & ) ! OTS$CVT_T_S ! ! Convert Numeric Text to T- or S-Floating Value ! ! The Convert Numeric Text to T- or S-Floating routines ! convert an ASCII text string representation of a ! numeric value to a T_floating or S_floating value. ! EXTERNAL LONG FUNCTION ots$cvt_t_s & ( & STRING BY DESC, & SINGLE BY REF, & OPTIONAL LONG BY VALUE, & LONG BY VALUE, & LONG BY VALUE, & WORD BY REF & ) ! OTS$CVT_T_G ! ! Convert Numeric Text to G- or H-Floating Value ! ! The Convert Numeric Text to G- or H-Floating routines ! convert an ASCII text string representation of a ! numeric value to a G_floating or H_floating value. ! EXTERNAL LONG FUNCTION ots$cvt_t_g & ( & STRING BY DESC, & GFLOAT BY REF, & OPTIONAL LONG BY VALUE, & LONG BY VALUE, & LONG BY VALUE, & WORD BY REF & ) ! OTS$CVT_T_H ! ! Convert Numeric Text to G- or H-Floating Value ! ! The Convert Numeric Text to G- or H-Floating routines ! convert an ASCII text string representation of a ! numeric value to a G_floating or H_floating value. ! EXTERNAL LONG FUNCTION ots$cvt_t_h & ( & STRING BY DESC, & BASIC$HFLOAT_AXP BY REF, & OPTIONAL LONG BY VALUE, & LONG BY VALUE, & LONG BY VALUE, & WORD BY REF & ) ! OTS$DIVC ! ! Complex Division ! ! The Complex Division routines ! return a complex result of a division on complex ! numbers. ! ! ENTRY ots$divc ALIAS $ots_divc PARAMETER ( ! F_FLOATING COMPLEX NAMED complex_dividend IN ! TYPENAME f_floating_complex VALUE, ! F_FLOATING COMPLEX NAMED complex_divisor IN ! TYPENAME f_floating_complex VALUE ) ! RETURNS F_FLOATING COMPLEX NAMED RESULT TYPENAME f_floating_complex; ! OTS$DIVCD_R3 ! ! Complex Division ! ! The Complex Division routines ! return a complex result of a division on complex ! numbers. ! ! ENTRY ots$divcd_r3 ALIAS $ots_divcd_r3 PARAMETER ( ! D_FLOATING COMPLEX NAMED complex_dividend IN ! TYPENAME d_floating_complex VALUE, ! D_FLOATING COMPLEX NAMED complex_divisor IN ! TYPENAME d_floating_complex VALUE ) ! RETURNS D_FLOATING COMPLEX NAMED RESULT TYPENAME d_floating_complex; ! OTS$DIVCG_R3 ! ! Complex Division ! ! The Complex Division routines ! return a complex result of a division on complex ! numbers. ! ! ENTRY ots$divcg_r3 ALIAS $ots_divcg_r3 PARAMETER ( ! G_FLOATING COMPLEX NAMED complex_dividend IN ! TYPENAME g_floating_complex VALUE, ! G_FLOATING COMPLEX NAMED complex_divisor IN ! TYPENAME g_floatin_complex VALUE ) ! RETURNS G_FLOATING COMPLEX NAMED RESULT TYPENAME g_floating_complex; ! OTS$DIVCS ! ! Complex Division ! ! The Complex Division routines ! return a complex result of a division on complex ! numbers. ! ! OTS$DIVCT_R3 ! ! Complex Division ! ! The Complex Division routines ! return a complex result of a division on complex ! numbers. ! ! OTS$DIV_PK_LONG ! ! Packed Decimal Division with Long Divisor ! ! The Packed Decimal Division with Long Divisor routine ! divides fixed-point decimal data, which is stored in packed ! decimal form, when precision and scale requirements for the quotient call ! for multiple precision division. The divisor must have a precision of ! thirty or thirty-one digits. ! EXTERNAL LONG FUNCTION ots$div_pk_long & ( & ANY BY REF, & ANY BY REF, & WORD BY VALUE, & ANY BY REF, & WORD BY VALUE, & WORD BY VALUE, & WORD BY VALUE & ) ! OTS$DIV_PK_SHORT ! ! Packed Decimal Division with Short Divisor ! ! The Packed Decimal Division with Short Divisor routine ! divides fixed-point decimal data ! when precision and scale requirements for the quotient call for ! multiple-precision division. ! EXTERNAL LONG FUNCTION ots$div_pk_short & ( & ANY BY REF, & ANY BY REF, & WORD BY VALUE, & ANY BY REF, & WORD BY VALUE, & WORD BY VALUE & ) ! OTS$MOVE3 ! ! Move Data Without Fill ! ! The Move Data Without Fill routine ! moves up to 231-1 bytes, (2,147,483,647 bytes) from a ! specified source address to a specified destination address. ! EXTERNAL SUB ots$move3 & ( & LONG BY VALUE, & BYTE DIM() BY REF, & BYTE DIM() BY REF & ) ! OTS$MOVE5 ! ! Move Data with Fill ! ! The Move Data with Fill routine ! moves up to 231-1 bytes, (2,147,483,647 bytes) from a ! specified source address to a specified destination address, ! with separate source and destination lengths, ! and with fill. Overlap of the source and destination arrays ! does not affect the result. ! EXTERNAL SUB ots$move5 & ( & LONG BY VALUE, & BYTE DIM() BY REF, & BYTE BY VALUE, & LONG BY VALUE, & BYTE DIM() BY REF & ) ! OTS$MULC ! ! Complex Multiplication ! ! The Complex Multiplication routines ! calculate the complex product of two complex ! values. ! ! ENTRY ots$mulc ALIAS $ots_mulc PARAMETER ( ! F_FLOATING COMPLEX NAMED complex_multiplier IN ! TYPENAME f_floating_complex VALUE, ! F_FLOATING COMPLEX NAMED complex_multiplicand IN ! TYPENAME f_floating_complex VALUE ) ! RETURNS F_FLOATING COMPLEX NAMED RESULT TYPENAME f_floating_complex; ! OTS$MULCD_R3 ! ! Complex Multiplication ! ! The Complex Multiplication routines ! calculate the complex product of two complex ! values. ! ! ENTRY ots$mulcd_r3 ALIAS $ots_mulcd_r3 PARAMETER ( ! D_FLOATING COMPLEX NAMED complex_multiplier IN ! TYPENAME d_floating_complex VALUE, ! D_FLOATING COMPLEX NAMED complex_multiplicand IN ! TYPENAME d_floating_complex VALUE ) ! RETURNS D_FLOATING COMPLEX NAMED RESULT TYPENAME d_floating_complex; ! OTS$MULCG_R3 ! ! Complex Multiplication ! ! The Complex Multiplication routines ! calculate the complex product of two complex ! values. ! ! ENTRY ots$mulcg_r3 ALIAS $ots_mulcg_r3 PARAMETER ( ! G_FLOATING COMPLEX NAMED complex_multiplier IN ! TYPENAME g_floating_complex VALUE, ! G_FLOATING COMPLEX NAMED complex_multiplicand IN ! TYPENAME g_floating_complex VALUE ) ! RETURNS G_FLOATING COMPLEX NAMED RESULT TYPENAME g_floating_complex; ! OTS$MULCS ! ! Complex Multiplication ! ! The Complex Multiplication routines ! calculate the complex product of two complex ! values. ! ! OTS$MULCT_R3 ! ! Complex Multiplication ! ! The Complex Multiplication routines ! calculate the complex product of two complex ! values. ! ! OTS$CNVOUT ! ! Convert D_floating, G_floating or H_floating Number to Character String ! ! The Convert Floating to Character String routines convert ! a D_floating, G_floating or H_floating number ! to a character string in ! the FORTRAN E format. ! EXTERNAL LONG FUNCTION ots$cnvout & ( & DOUBLE BY REF, & STRING BY DESC, & LONG BY VALUE & ) ! OTS$CNVOUT_G ! ! Convert D_floating, G_floating or H_floating Number to Character String ! ! The Convert Floating to Character String routines convert ! a D_floating, G_floating or H_floating number ! to a character string in ! the FORTRAN E format. ! EXTERNAL LONG FUNCTION ots$cnvout_g & ( & GFLOAT BY REF, & STRING BY DESC, & LONG BY VALUE & ) ! OTS$CNVOUT_H ! ! Convert D_floating, G_floating or H_floating Number to Character String ! ! The Convert Floating to Character String routines convert ! a D_floating, G_floating or H_floating number ! to a character string in ! the FORTRAN E format. ! EXTERNAL LONG FUNCTION ots$cnvout_h & ( & BASIC$HFLOAT_AXP BY REF, & STRING BY DESC, & LONG BY VALUE & ) ! OTS$CNVOUT_S ! ! Convert IEEE S_floatingto Character String ! ! The Convert Floating to Character String routines convert ! a IEEE S_floating number to a character string in ! the FORTRAN E format. ! EXTERNAL LONG FUNCTION ots$cnvout_s & ( & SINGLE BY REF, & STRING BY DESC, & LONG BY VALUE & ) ! OTS$CNVOUT_T ! ! Convert IEEE T_floating Number to Character String ! ! The Convert Floating to Character String routines convert ! a IEEE T_floating number to a character string in ! the FORTRAN E format. ! EXTERNAL LONG FUNCTION ots$cnvout_t & ( & DOUBLE BY REF, & STRING BY DESC, & LONG BY VALUE & ) ! OTS$POWCC ! ! Raise a Complex Base to a Complex Floating-Point Exponent ! ! The Raise a Complex Base to a Complex Floating-Point Exponent routines ! return the complex floating-point result of raising ! a complex base to a complex exponent. ! ! ENTRY ots$powcc ALIAS $ots_powcc PARAMETER ( ! F_FLOATING COMPLEX NAMED complex_base IN ! TYPENAME f_floating_complex VALUE, ! F_FLOATING COMPLEX NAMED complex_exponent_value IN ! TYPENAME f_floating_complex VALUE ) ! RETURNS F_FLOATING COMPLEX NAMED RESULT TYPENAME f_floating_complex; ! OTS$POWCDCD_R3 ! ! Raise a Complex Base to a Complex Floating-Point Exponent ! ! The Raise a Complex Base to a Complex Floating-Point Exponent routine ! returns the complex result of raising ! a complex base to a complex exponent. ! ! ENTRY ots$powcdcd_r3 ALIAS $ots_powcdcd_r3 PARAMETER ( ! D_FLOATING COMPLEX NAMED complex_base IN ! TYPENAME d_floating_complex VALUE, ! D_FLOATING COMPLEX NAMED complex_exponent_value IN ! TYPENAME d_floating_complex VALUE ) ! RETURNS D_FLOATING COMPLEX NAMED RESULT TYPENAME d_floating_complex; ! OTS$POWCGCG_R3 ! ! Raise a Complex Base to a Complex Floating-Point Exponent ! ! The Raise a Complex Base to a Complex Floating-Point Exponent routine ! returns the complex result of raising ! a complex base to a complex exponent. ! ! ENTRY ots$powcgcg_r3 ALIAS $ots_powcgcg_r3 PARAMETER ( ! G_FLOATING COMPLEX NAMED complex_base IN ! TYPENAME g_floating_complex VALUE, ! G_FLOATING COMPLEX NAMED complex_exponent_value IN ! TYPENAME g_floating_complex VALUE ) ! RETURNS G_FLOATING COMPLEX NAMED RESULT TYPENAME g_floating_complex; ! OTS$POWCSCS ! ! Raise a Complex Base to a Complex Floating-Point Exponent ! ! The Raise a Complex Base to a Complex Floating-Point Exponent routine ! returns the complex result of raising ! a complex base to a complex exponent. ! ! OTS$POWCTCT_R3 ! ! Raise a Complex Base to a Complex Floating-Point Exponent ! ! The Raise a Complex Base to a Complex Floating-Point Exponent routine ! returns the complex result of raising ! a complex base to a complex exponent. ! ! OTS$POWCJ ! ! Raise a Complex Base to a Signed Longword Integer Exponent ! ! The Raise a Complex Base to a Signed Longword Integer Exponent ! routine returns the complex result of raising a complex base to an ! integer exponent. ! ! ENTRY ots$powcj ALIAS $ots_powcj PARAMETER ( ! F_FLOATING COMPLEX NAMED complex_base IN ! TYPENAME f_floating_complex VALUE, ! LONGWORD NAMED longword_integer_exponent IN ! TYPENAME longword_signed VALUE ) ! RETURNS F_FLOATING COMPLEX NAMED RESULT TYPENAME f_floating_complex; ! OTS$POWCDJ_R3 ! ! Raise a Complex Base to a Signed Longword Integer Exponent ! ! The Raise a Complex Base to a Signed Longword Integer Exponent ! routine returns the complex result of raising a complex base to an ! integer exponent. ! ! ENTRY ots$powcdj_r3 ALIAS $ots_powcdj_r3 PARAMETER ( ! D_FLOATING COMPLEX NAMED complex_base IN ! TYPENAME D_floating_complex VALUE, ! LONGWORD NAMED longword_integer_exponent IN ! TYPENAME longword_signed VALUE ) ! RETURNS D_FLOATING COMPLEX NAMED RESULT TYPENAME d_floating_complex; ! OTS$POWCGJ_R3 ! ! Raise a Complex Base to a Signed Longword Integer Exponent ! ! The Raise a Complex Base to a Signed Longword Integer Exponent ! routine returns the complex result of raising a complex base to an ! integer exponent. ! ! ENTRY ots$powcgj_r3 ALIAS $ots_powcgj_r3 PARAMETER ( ! G_FLOATING COMPLEX NAMED complex_base IN ! TYPENAME g_floating_complex VALUE, ! LONGWORD NAMED longword_integer_exponent IN ! TYPENAME longword_signed VALUE ) ! RETURNS G_FLOATING COMPLEX NAMED RESULT TYPENAME g_floating_complex; ! OTS$POWCSJ ! ! Raise a Complex Base to a Signed Longword Integer Exponent ! ! The Raise a Complex Base to a Signed Longword Integer Exponent ! routine returns the complex result of raising a complex base to an ! integer exponent. ! ! OTS$POWCTJ_R3 ! ! Raise a Complex Base to a Signed Longword Integer Exponent ! ! The Raise a Complex Base to a Signed Longword Integer Exponent ! routines return the complex result of raising a complex base to an ! integer exponent. ! ! OTS$POWDD ! ! Raise a D_floating Base to D_floating Exponent ! ! The Raise a D_floating Base to a D_floating Exponent routine ! returns the D_floating result of raising a D_floating base to a D_floating ! exponent. ! ! ENTRY ots$powdd ALIAS $ots_powdd PARAMETER ( ! D_FLOATING NAMED D_floating_point_base IN ! TYPENAME d_floating VALUE, ! D_FLOATING NAMED D_floating_point_exponent IN ! TYPENAME d_floating VALUE ) ! RETURNS D_FLOATING NAMED RESULT TYPENAME d_floating; ! OTS$POWDJ ! ! Raise a D_floating Base to a Longword Exponent ! ! The Raise a D_floating Base to a Longword Exponent routine ! returns the D_floating result of raising a D_floating base to a longword exponent. ! ! ENTRY ots$powdj ALIAS $ots_powdj PARAMETER ( ! D_FLOATING NAMED D_floating_point_base IN ! TYPENAME d_floating VALUE, ! LONGWORD NAMED longword_integer_exponent IN ! TYPENAME longword_signed VALUE ) ! RETURNS D_FLOATING NAMED RESULT TYPENAME d_floating; ! OTS$POWDR ! ! Raise a D_floating Base to an F_floating Exponent ! ! The Raise a D_floating Base to an F_floating Exponent routines ! return the D_floating result of raising a D_floating base to an ! F_floating exponent. ! ! ENTRY ots$powdr ALIAS $ots_powdr PARAMETER ( ! D_FLOATING NAMED D_floating_point_base IN ! TYPENAME d_floating VALUE, ! F_FLOATING NAMED F_floating_point_exponent IN ! TYPENAME f_floating VALUE ) ! RETURNS D_FLOATING NAMED RESULT TYPENAME d_floating; ! OTS$POWGG ! ! Raise a G_floating Base to a G_floating Exponent ! ! The Raise a G_floating Base to a G_floating Exponent routine ! returns the G_floating result of raising a G_floating base to a G_floating exponent. ! ! ENTRY ots$powgg ALIAS $ots_powgg PARAMETER ( ! G_FLOATING NAMED G_floating_point_base IN ! TYPENAME g_floating VALUE, ! G_FLOATING NAMED G_floating_point_exponent IN ! TYPENAME g_floating VALUE ) ! RETURNS G_FLOATING NAMED RESULT TYPENAME g_floating; ! OTS$POWTT ! ! Raise an IEEE T_floating Base to an IEEE T_floating Exponent ! ! The Raise an IEEE T_floating Base to an IEEE T_floating Exponent routine ! returns the IEEE T_floating result of raising an IEEE T_floating base ! to an IEEE T_floating exponent. ! ! EXTERNAL DOUBLE FUNCTION ots$powtt & ( & DOUBLE BY VALUE, & DOUBLE BY VALUE & ) ! OTS$POWGJ ! ! Raise a G_floating Base to a Longword Exponent ! ! The Raise a G_floating Base to a Longword Exponent routine ! returns the G_floating result of raising a G_floating base to a longword exponent. ! ! ENTRY ots$powgj ALIAS $ots_powgj PARAMETER ( ! G_FLOATING NAMED G_floating_point_base IN ! TYPENAME g_floating VALUE, ! LONGWORD NAMED longword_integer_exponent IN ! TYPENAME longword_signed VALUE ) ! RETURNS G_FLOATING NAMED RESULT TYPENAME g_floating; ! OTS$POWTJ ! ! Raise an IEEE T_floating Base to a Longword Exponent ! ! The Raise and IEEE T_floating Base to a Longword Exponent routine ! returns the IEEE T_floating result of raising an IEEE T_floating ! base to a longword exponent. ! EXTERNAL DOUBLE FUNCTION ots$powtj & ( & DOUBLE BY VALUE, & LONG BY VALUE & ) ! OTS$POWHH_R3 ! ! Raise an H_floating Base to an H_floating Exponent ! ! The Raise an H_floating Base to an H_floating Exponent ! routine returns the H_floating result of raising an H_floating base ! to an H_floating exponent. ! ! ENTRY ots$powhh_r3 ALIAS $ots_powhh_r3 PARAMETER ( ! H_FLOATING NAMED H_floating_point_base IN ! TYPENAME h_floating VALUE, ! H_FLOATING NAMED H_floating_point_exponent IN ! TYPENAME h_floating VALUE ) ! RETURNS H_FLOATING NAMED RESULT TYPENAME h_floating; ! OTS$POWHJ_R3 ! ! Raise an H_floating Base to an Longword Exponent ! ! The Raise an H_floating Base to a Longword Exponent ! routine returns the H_floating result of raising an H_floating ! base to a longword exponent. ! ! ENTRY ots$powhj_r3 ALIAS $ots_powhj_r3 PARAMETER ( ! H_FLOATING NAMED H_floating_point_base IN ! TYPENAME h_floating VALUE, ! LONGWORD NAMED longword_integer_exponent IN ! TYPENAME longword_signed VALUE ) ! RETURNS H_FLOATING NAMED RESULT TYPENAME h_floating; ! OTS$POWII ! ! Raise a Word Base to a Word Exponent ! ! The Raise a Word Base to a Word Exponent routine ! returns the word result of raising a word base to a word exponent. ! EXTERNAL WORD FUNCTION ots$powii & ( & WORD BY VALUE, & WORD BY VALUE & ) ! OTS$POWJJ ! ! Raise a Longword Base to a Longword Exponent ! ! The Raise a Longword Base to a Longword Exponent routine ! returns the longword result of raising a signed longword ! base to a signed longword exponent. ! EXTERNAL LONG FUNCTION ots$powjj & ( & LONG BY VALUE, & LONG BY VALUE & ) ! OTS$POWLULU ! ! Raise an Unsigned Longword Base to an Unsigned Longword Exponent ! ! The Raise an Unsigned Longword Base to an Unsigned Longword ! Exponent routine returns the unsigned longword result of ! raising an unsigned longword integer base to ! an unsigned longword integer exponent. ! EXTERNAL LONG FUNCTION ots$powlulu & ( & LONG BY VALUE, & LONG BY VALUE & ) ! OTS$POWRD ! ! Raise an F_floating Base to D_floating Exponent ! ! The Raise an F_floating Base to a D_floating Exponent ! routine returns the F_floating result of raising an ! F_floating base to a D_floating exponent. ! ! ENTRY ots$powrd ALIAS $ots_powrd PARAMETER ( ! F_FLOATING NAMED F_floating_point_base IN ! TYPENAME f_floating VALUE, ! D_FLOATING NAMED D_floating_point_exponent IN ! TYPENAME d_floating VALUE ) ! RETURNS D_FLOATING NAMED RESULT TYPENAME d_floating; ! OTS$POWRJ ! ! Raise an F_floating Base to a Longword Exponent ! ! The Raise an F_floating Base to a Longword Exponent ! routine returns the F_floating result of raising an ! F_floating base to a longword exponent. ! EXTERNAL SINGLE FUNCTION ots$powrj & ( & SINGLE BY VALUE, & LONG BY VALUE & ) ! OTS$POWSJ ! ! Raise an IEEE S_floating Base to a Longword Exponent ! ! The Raise an IEEE S_floating Base to a Longword Exponent routine ! returns the IEEE S_floating result of raising an IEEE S_floating base ! to a longword exponent. ! EXTERNAL SINGLE FUNCTION ots$powsj & ( & SINGLE BY VALUE, & LONG BY VALUE & ) ! OTS$POWRR ! ! Raise an F_floating Base to F_floating Exponent ! ! The Raise an F_floating Base to an F_floating Exponent ! routine returns the F_floating result of raising an F_floating ! base to an F_floating exponent. ! EXTERNAL SINGLE FUNCTION ots$powrr & ( & SINGLE BY VALUE, & SINGLE BY VALUE & ) ! OTS$POWSS ! ! Raise an IEEE S_floating Base to IEEE S_floating Exponent ! ! The Raise an IEEE S_floating Base to IEEE S_floating Exponent ! routines retursn the IEEE S_floating result of raising ! an IEEES_floating base to an IEEE S_floating exponent. ! EXTERNAL SINGLE FUNCTION ots$powss & ( & SINGLE BY VALUE, & SINGLE BY VALUE & ) ! OTS$POWRLU ! ! Raise a Floating-Point Base to an Unsigned Longword Integer Exponent ! ! The Raise a Floating-Point Base to an Unsigned Longword Integer ! Exponent routines returns the floating-point result of raising ! a floating-point base to an unsigned longword integer exponent. ! EXTERNAL SINGLE FUNCTION ots$powrlu & ( & SINGLE BY VALUE, & LONG BY VALUE & ) ! OTS$POWDLU ! ! Raise a D-Floating Base to an Unsigned Longword Integer Exponent ! ! The Raise a D-Floating Base to an Unsigned Longword Integer ! Exponent routines returns the D-Floating result of raising ! a D-Floating base to an unsigned longword integer exponent. ! ! ENTRY ots$powdlu ALIAS $ots_powdlu PARAMETER ( ! D_FLOATING NAMED floating_point_base IN ! TYPENAME d_floating VALUE, ! LONGWORD UNSIGNED NAMED unsigned_lword_int_exponent IN ! TYPENAME longword_unsigned VALUE ) ! RETURNS D_FLOATING NAMED RESULT TYPENAME d_floating; ! OTS$POWGLU ! ! Raise a G_floating Base to an Unsigned Longword Integer Exponent ! ! The Raise a G-Floating Base to an Unsigned Longword Integer ! Exponent routines returns the G-Floating result of raising ! a G-Floating base to an unsigned longword integer exponent. ! ! ENTRY ots$powglu ALIAS $ots_powglu PARAMETER ( ! G_FLOATING NAMED floating_point_base IN ! TYPENAME g_floating VALUE, ! LONGWORD UNSIGNED NAMED unsigned_lword_int_exponent IN ! TYPENAME longword_unsigned VALUE ) ! RETURNS G_FLOATING NAMED RESULT TYPENAME g_floating; ! OTS$POWSLU ! ! Raise an IEEE S-Floating Base to an Unsigned Longword Integer Exponent ! ! The Raise an IEEE S-Floating Base to an Unsigned routines returns the ! IEEE S-flloating result of raising an IEEE S-Floating base to an ! unsigned longword integer exponent. ! EXTERNAL SINGLE FUNCTION ots$powslu & ( & SINGLE BY VALUE, & LONG BY VALUE & ) ! OTS$POWTLU ! ! Raise an IEEE T-Floating Base to an Unsigned Longword Integer Exponent ! ! The Raise and IEEE T-Floating Base to an Unsigned Longword Integer ! Exponent routines returns the IEEE T-Floating result of raising ! an IEEE T-Floating base to an unsigned longword integer exponent. ! EXTERNAL DOUBLE FUNCTION ots$powtlu & ( & DOUBLE BY VALUE, & LONG BY VALUE & ) ! OTS$POWHLU_R3 ! ! Raise an H-Floating Base to an Unsigned Longword Integer Exponent ! ! The Raise an H-Floating Base to an Unsigned Longword Integer ! Exponent routine returns the H-Floating result of raising ! an H-Floating base to an unsigned longword integer exponent. ! ! ENTRY ots$powhlu_r3 ALIAS $ots_powhlu_r3 PARAMETER ( ! H_FLOATING NAMED floating_point_base IN ! TYPENAME h_floating VALUE, ! LONGWORD UNSIGNED NAMED unsigned_lword_int_exponent IN ! TYPENAME longword_unsigned VALUE ) ! RETURNS H_FLOATING NAMED RESULT TYPENAME h_floating; ! OTS$SCOPY_DXDX ! ! Copy a Source String Passed by Descriptor to a Destination String ! ! The Copy a Source String Passed by Descriptor to a Destination String ! routine ! copies a source string to a destination string. Both strings are ! passed by descriptor. ! EXTERNAL WORD FUNCTION ots$scopy_dxdx & ( & STRING BY DESC, & STRING BY DESC & ) ! OTS$SCOPY_R_DX ! ! Copy a Source String Passed by Reference to a Destination String ! ! The Copy a Source String Passed by Reference to a Destination String ! routine copies a source string passed by reference to a destination ! string. ! EXTERNAL WORD FUNCTION ots$scopy_r_dx & ( & WORD BY VALUE, & STRING BY REF, & STRING BY DESC & ) ! OTS$SFREE1_DD ! ! Strings, Free One Dynamic ! ! The Free One Dynamic String routine ! returns one dynamic string area to free storage. ! EXTERNAL SUB ots$sfree1_dd & ( & BASIC$QUADWORD BY REF & ) ! OTS$SFREEN_DD ! ! Strings, Free n Dynamic ! ! The Free n Dynamic Strings routine ! takes as input a vector of one or more dynamic string areas and ! returns them to free storage. ! EXTERNAL SUB ots$sfreen_dd & ( & LONG BY VALUE, & BASIC$QUADWORD BY REF & ) ! OTS$SGET1_DD ! ! Strings, Get One Dynamic ! ! The Get One Dynamic String routine ! allocates a specified number of bytes of dynamic virtual ! memory to a specified string descriptor. ! EXTERNAL SUB ots$sget1_dd & ( & WORD BY VALUE, & BASIC$QUADWORD BY REF & ) ! OTS$CVT_L_TB ! ! Convert an Unsigned Integer to Binary Text ! ! The Convert an Unsigned Integer to Binary Text routine ! converts an unsigned integer value of arbitrary length to ! binary representation in an ASCII text string. By default, a longword is ! converted. ! EXTERNAL LONG FUNCTION ots$cvt_l_tb & ( & ANY BY REF, & STRING BY DESC, & OPTIONAL LONG BY VALUE, & LONG BY VALUE & ) ! OTS$CVT_L_TI ! ! Convert Signed Integer to Decimal Text ! ! The Convert Signed Integer to Decimal Text routine ! converts a signed integer to a decimal ASCII text string. This ! routine supports FORTRAN Iw and Iw.m output and BASIC output conversion. ! EXTERNAL LONG FUNCTION ots$cvt_l_ti & ( & ANY BY REF, & STRING BY DESC, & OPTIONAL LONG BY VALUE, & LONG BY VALUE, & LONG BY VALUE & ) ! OTS$CVT_L_TL ! ! Convert Integer to Logical Text ! ! The Convert Integer to Logical Text routine ! converts an integer to an ASCII text string representation ! using FORTRAN L (logical) format. ! EXTERNAL LONG FUNCTION ots$cvt_l_tl & ( & LONG BY REF, & STRING BY DESC & ) ! OTS$CVT_L_TO ! ! Convert Unsigned Integer to Octal Text ! ! The Convert Unsigned Integer to Octal Text routine ! converts an unsigned integer to an octal ASCII text string. ! OTS$CVT_L_TO supports FORTRAN Ow and Ow.m output conversion formats. ! EXTERNAL LONG FUNCTION ots$cvt_l_to & ( & ANY BY REF, & STRING BY DESC, & OPTIONAL LONG BY VALUE, & LONG BY VALUE & ) ! OTS$CVT_L_TU ! ! Convert Unsigned Integer to Decimal Text ! ! The Convert Unsigned Integer to Decimal Text routine ! converts a byte, word or longword value to unsigned decimal ! representation in an ASCII text string. By default, a longword is ! converted. ! EXTERNAL LONG FUNCTION ots$cvt_l_tu & ( & ANY BY REF, & STRING BY DESC, & OPTIONAL LONG BY VALUE, & LONG BY VALUE & ) ! OTS$CVT_L_TZ ! ! Convert Integer to Hexadecimal Text ! ! The Convert Integer to Hexadecimal Text routine ! converts an unsigned integer to a hexadecimal ASCII text ! string. OTS$CVT_L_TZ supports FORTRAN Zw and Zw.m output conversion ! formats. ! EXTERNAL LONG FUNCTION ots$cvt_l_tz & ( & ANY BY REF, & STRING BY DESC, & OPTIONAL LONG BY VALUE, & LONG BY VALUE & ) ! OTS$CVT_TB_L ! ! Convert Binary Text to Unsigned Integer ! ! The Convert Binary Text to Unsigned Integer routine ! converts an ASCII text string representation of an unsigned ! binary value to an unsigned integer value of arbitrary length. By default, ! the result is a longword. Valid input characters are the blank and the ! digits 0 and 1. No sign is permitted. ! EXTERNAL LONG FUNCTION ots$cvt_tb_l & ( & STRING BY DESC, & ANY BY REF, & OPTIONAL LONG BY VALUE, & LONG BY VALUE & ) ! OTS$CVT_TI_L ! ! Convert Signed Integer Text to Integer ! ! The Convert Signed Integer Text to Integer routine ! converts an ASCII text string representation of a decimal ! number to a signed byte, word, or longword integer value. ! The result is a longword by ! default, but the calling program can specify a byte or a word value ! instead. ! EXTERNAL LONG FUNCTION ots$cvt_ti_l & ( & STRING BY DESC, & ANY BY REF, & OPTIONAL LONG BY VALUE, & LONG BY VALUE & ) ! OTS$CVT_TL_L ! ! Convert Logical Text to Integer ! ! The Convert Logical Text to Integer routine ! converts an ASCII text string representation of a FORTRAN-77 L ! format to a byte, word, or longword integer value. The result is a longword by ! default, but the calling program can specify a byte or a word value ! instead. ! EXTERNAL LONG FUNCTION ots$cvt_tl_l & ( & STRING BY DESC, & ANY BY REF, & OPTIONAL LONG BY VALUE & ) ! OTS$CVT_TO_L ! ! Convert Octal Text to Signed Integer ! ! The Convert Octal Text to Signed Integer routine ! converts an ASCII text string representation of an ! octal value to an signed integer of an arbitrary length. The result is a ! longword by default, but the calling program can specify a byte, word, ! or longword. ! EXTERNAL LONG FUNCTION ots$cvt_to_l & ( & STRING BY DESC, & ANY BY REF, & OPTIONAL LONG BY VALUE, & LONG BY VALUE & ) ! OTS$CVT_TU_L ! ! Convert Unsigned Decimal Text to Integer ! ! The Convert Unsigned Decimal Text to Integer routine ! converts an ASCII text string representation of an unsigned ! decimal value to an unsigned byte, word, or longword value. By default, the ! result is a longword. Valid input characters are the space and the digits 0 ! through 9. No sign is permitted. ! EXTERNAL LONG FUNCTION ots$cvt_tu_l & ( & STRING BY DESC, & ANY BY REF, & OPTIONAL LONG BY VALUE, & LONG BY VALUE & ) ! OTS$CVT_TZ_L ! ! Convert Hexadecimal Text to Unsigned Integer ! ! The Convert Hexadecimal Text to Unsigned Integer routine ! converts an ASCII text string representation of an unsigned ! hexadecimal value to an unsigned integer of an arbitrary length. ! The result is a longword by default, but the calling program can specify ! a byte, word, or longword ! value. ! EXTERNAL LONG FUNCTION ots$cvt_tz_l & ( & STRING BY DESC, & ANY BY REF, & OPTIONAL LONG BY VALUE, & LONG BY VALUE & )