fitab.gml

开放源码的编译器open watcom 1.6.0版的源代码

\        \            \C&arrow.LOG(C)
\        \            \Z&arrow.LOG(Z) &dagger\
\        \ALOG        \R&arrow.ALOG(R)
\        \DLOG        \D&arrow.DLOG(D)
\        \CLOG        \C&arrow.CLOG(C)
\        \CDLOG &dagger     \Z&arrow.CDLOG(Z)
.box off
.np
The value of
.id a
must be > 0.
The argument of CLOG and CDLOG must not be (0,0).
The result of CLOG and CDLOG is such that -&pi. < imaginary part of
the result <= &pi..
The imaginary part of the result is &pi. only when the real part of the
argument is < 0 and the imaginary part of the argument = 0.
.im finote8
.*
.cp 15
.section Common Logarithm
.*
.ix 'generic function' LOG10
.ix 'intrinsic function' ALOG10
.ix 'intrinsic function' DLOG10
.ix ALOG10
.ix DLOG10
.box on &c0 &c1 &c2 &c3
\Definition\Name\Usage
.box
\log  (a) \LOG10 generic \R&arrow.LOG10(R)
\   10    \              \D&arrow.LOG10(D)
\         \ALOG10        \R&arrow.ALOG10(R)
\         \DLOG10        \D&arrow.DLOG10(D)
.box off
.*
.cp 20
.section Sine
.*
.ix 'generic function' SIN
.ix 'intrinsic function' SIN
.ix 'intrinsic function' DSIN
.ix 'intrinsic function' CSIN
.ix 'intrinsic function' CDSIN
.ix SIN
.ix DSIN
.ix CSIN
.ix CDSIN
.box on &c0 &c1 &c2 &c3
\Definition\Name\Usage
.box
\sin(a) \SIN generic \R&arrow.SIN(R)
\       \            \D&arrow.SIN(D)
\       \            \C&arrow.SIN(C)
\       \            \Z&arrow.SIN(Z) &dagger\
\       \SIN         \R&arrow.SIN(R)
\       \DSIN        \D&arrow.DSIN(D)
\       \CSIN        \C&arrow.CSIN(C)
\       \CDSIN &dagger     \Z&arrow.CDSIN(Z)
.box off
.im finote7
.im finote8
.*
.cp 20
.section Cosine
.*
.ix 'generic function' COS
.ix 'intrinsic function' COS
.ix 'intrinsic function' DCOS
.ix 'intrinsic function' CCOS
.ix 'intrinsic function' CDCOS
.ix COS
.ix DCOS
.ix CCOS
.ix CDCOS
.box on &c0 &c1 &c2 &c3
\Definition\Name\Usage
.box
\cos(a) \COS generic \R&arrow.COS(R)
\       \            \D&arrow.COS(D)
\       \            \C&arrow.COS(C)
\       \            \Z&arrow.COS(Z) &dagger\
\       \COS         \R&arrow.COS(R)
\       \DCOS        \D&arrow.DCOS(D)
\       \CCOS        \C&arrow.CCOS(C)
\       \CDCOS &dagger     \Z&arrow.CDCOS(Z)
.box off
.im finote7
.im finote8
.*
.cp 15
.section Tangent
.*
.ix 'generic function' TAN
.ix 'intrinsic function' TAN
.ix 'intrinsic function' DTAN
.ix TAN
.ix DTAN
.box on &c0 &c1 &c2 &c3
\Definition\Name\Usage
.box
\tan(a)     \TAN generic     \R&arrow.TAN(R)
\           \                \D&arrow.TAN(D)
\           \TAN             \R&arrow.TAN(R)
\           \DTAN            \D&arrow.DTAN(D)
.box off
.im finote7
.*
.cp 15
.section Cotangent
.*
.ix 'generic function' COTAN
.ix 'intrinsic function' COTAN
.ix 'intrinsic function' DCOTAN
.ix COTAN
.ix DCOTAN
.bxt on &c0 &c3 &c1 &c2
\Definition\Name\Usage
.bxt
\cotan(a)   \COTAN generic &dagger \R&arrow.COTAN(R)
\           \                \D&arrow.COTAN(D)
\           \COTAN &dagger         \R&arrow.COTAN(R)
\           \DCOTAN &dagger        \D&arrow.DCOTAN(D)
.bxt off
.im finote7
.*
.cp 15
.section Arcsine
.*
.ix 'generic function' ASIN
.ix 'intrinsic function' ASIN
.ix 'intrinsic function' DASIN
.ix ASIN
.ix DASIN
.box on &c0 &c1 &c2 &c3
\Definition\Name\Usage
.box
\arcsin(a)  \ASIN generic    \R&arrow.ASIN(R)
\           \                \D&arrow.ASIN(D)
\           \ASIN            \R&arrow.ASIN(R)
\           \DASIN           \D&arrow.DASIN(D)
.box off
.np
The absolute value of the argument of ASIN and DASIN must be <= 1.
The result is such that -&pi./2 <= result <= &pi./2.
.*
.cp 15
.section Arccosine
.*
.ix 'generic function' ACOS
.ix 'intrinsic function' ACOS
.ix 'intrinsic function' DACOS
.ix ACOS
.ix DACOS
.box on &c0 &c1 &c2 &c3
\Definition\Name\Usage
.box
\arccos(a)  \ACOS generic    \R&arrow.ACOS(R)
\           \                \D&arrow.ACOS(D)
\           \ACOS            \R&arrow.ACOS(R)
\           \DACOS           \D&arrow.DACOS(D)
.box off
.np
The absolute value of the argument of ACOS and DACOS must be <= 1.
The result is such that 0 <= result <= &pi..
.*
.cp 15
.section Arctangent
.*
.ix 'generic function' ATAN
.ix 'generic function' ATAN2
.ix 'intrinsic function' ATAN
.ix 'intrinsic function' DATAN
.ix 'intrinsic function' ATAN2
.ix 'intrinsic function' DATAN2
.ix ATAN
.ix DATAN
.ix ATAN2
.ix DATAN2
.box on &c0 &c1 &c2 &c3
\Definition\Name\Usage
.box
\arctan(a)     \ATAN generic  \R&arrow.ATAN(R)
\              \              \D&arrow.ATAN(D)
\              \ATAN          \R&arrow.ATAN(R)
\              \DATAN         \D&arrow.DATAN(D)
\arctan(a1/a2) \ATAN2 generic \R&arrow.ATAN2(R,R)
\              \              \D&arrow.ATAN2(D,D)
\              \ATAN2         \R&arrow.ATAN2(R,R)
\              \DATAN2        \D&arrow.DATAN2(D,D)
.box off
.np
The result of ATAN and DATAN is such that -&pi./2 <= result <= &pi./2.
If the value of the first argument of ATAN2 and DATAN2 is positive
then the result is positive.
If the value of the first argument is 0, the result is 0 if the second
argument is positive and &pi. if the second argument is negative.
If the value of the first argument is negative, the result is negative.
If the value of the second argument is 0, the absolute value of the
result is &pi./2.
The arguments must not both be 0.
The result of ATAN2 and DATAN2 is such that -&pi. < result <= &pi..
.*
.cp 15
.section Hyperbolic Sine
.*
.ix 'generic function' SINH
.ix 'intrinsic function' SINH
.ix 'intrinsic function' DSINH
.ix SINH
.ix DSINH
.box on &c0 &c1 &c2 &c3
\Definition\Name\Usage
.box
\sinh(a)    \SINH generic    \R&arrow.SINH(R)
\           \                \D&arrow.SINH(D)
\           \SINH            \R&arrow.SINH(R)
\           \DSINH           \D&arrow.DSINH(D)
.box off
.*
.cp 15
.section Hyperbolic Cosine
.*
.ix 'generic function' COSH
.ix 'intrinsic function' COSH
.ix 'intrinsic function' DCOSH
.ix COSH
.ix DCOSH
.box on &c0 &c1 &c2 &c3
\Definition\Name\Usage
.box
\cosh(a)    \COSH generic    \R&arrow.COSH(R)
\           \                \D&arrow.COSH(D)
\           \COSH            \R&arrow.COSH(R)
\           \DCOSH           \D&arrow.DCOSH(D)
.box off
.*
.cp 15
.section Hyperbolic Tangent
.*
.ix 'generic function' TANH
.ix 'intrinsic function' TANH
.ix 'intrinsic function' DTANH
.ix TANH
.ix DTANH
.box on &c0 &c1 &c2 &c3
\Definition\Name\Usage
.box
\tanh(a)    \TANH generic    \R&arrow.TANH(R)
\           \                \D&arrow.TANH(D)
\           \TANH            \R&arrow.TANH(R)
\           \DTANH           \D&arrow.DTANH(D)
.box off
.*
.cp 15
.section Gamma Function
.*
.ix 'generic function' GAMMA
.ix 'intrinsic function' GAMMA
.ix 'intrinsic function' DGAMMA
.ix GAMMA
.ix DGAMMA
.bxt on &c0 &c3 &c1 &c2
\Definition\Name\Usage
.bxt
\gamma(a)   \GAMMA generic   \R&arrow.GAMMA(R)
\           \                \D&arrow.GAMMA(D)
\           \GAMMA           \R&arrow.GAMMA(R)
\           \DGAMMA          \D&arrow.DGAMMA(D)
.bxt off
.*
.cp 15
.section Natural Log of Gamma Function
.*
.ix 'generic function' GAMMA
.ix 'intrinsic function' ALGAMA
.ix 'intrinsic function' DLGAMA
.ix GAMMA
.ix ALGAMA
.ix DLGAMA
.bxt on &c0 &c3 &c1 &c2
\Definition\Name\Usage
.bxt
\log (gamma(a))     \LGAMMA generic  \R&arrow.LGAMMA(R)
\    e              \                \D&arrow.LGAMMA(D)
\                   \ALGAMA          \R&arrow.ALGAMA(R)
\                   \DLGAMA          \D&arrow.DLGAMA(D)
.bxt off
.*
.cp 15
.section Error Function
.*
.ix 'generic function' ERF
.ix 'intrinsic function' ERF
.ix 'intrinsic function' DERF
.ix ERF
.ix DERF
.bxt on &c0 &c3 &c1 &c2
\Definition\Name\Usage
.bxt
\erf(a)     \ERF generic     \R&arrow.ERF(R)
\           \                \D&arrow.ERF(D)
\           \ERF             \R&arrow.ERF(R)
\           \DERF            \D&arrow.DERF(D)
.bxt off
.*
.cp 15
.section Complement of Error Function
.*
.ix 'generic function' ERFC
.ix 'intrinsic function' ERFC
.ix 'intrinsic function' DERFC
.ix ERFC
.ix DERFC
.bxt on &c0 &c3 &c1 &c2
\Definition\Name\Usage
.bxt
\1-erf(a)   \ERFC generic    \R&arrow.ERFC(R)
\           \                \D&arrow.ERFC(D)
\           \ERFC            \R&arrow.ERFC(R)
\           \DERFC           \D&arrow.DERFC(D)
.bxt off
.*
.cp 9
.section Lexically Greater Than or Equal
.*
.ix 'intrinsic function' LGE
.ix LGE
.box on &c0 &c1 &c2 &c3
\Definition\Name\Usage
.box
\a1>=a2     \LGE     \L&arrow.LGE(CH,CH)
.box off
.im finote9
.*
.cp 9
.section Lexically Greater Than
.*
.ix 'intrinsic function' LGT
.ix LGT
.box on &c0 &c1 &c2 &c3
\Definition\Name\Usage
.box
\a1>a2      \LGT     \L&arrow.LGT(CH,CH)
.box off
.im finote9
.*
.cp 9
.section Lexically Less Than or Equal
.*
.ix 'intrinsic function' LLE
.ix LLE
.box on &c0 &c1 &c2 &c3
\Definition\Name\Usage
.box
\a1<=a2     \LLE     \L&arrow.LLE(CH,CH)
.box off
.im finote9
.*
.cp 9
.section Lexically Less Than
.*
.ix 'intrinsic function' LLT
.ix LLT
.box on &c0 &c1 &c2 &c3
\Definition\Name\Usage
.box
\a1<a2      \LLT     \L&arrow.LLT(CH,CH)
.box off
.im finote9
.*
.cp 17
.section Binary Pattern Processing Functions: Boolean Operations
.*
.ix 'intrinsic function' IAND
.ix IAND
.ix 'intrinsic function' IOR
.ix IOR
.ix 'intrinsic function' IEOR
.ix IEOR
.ix 'intrinsic function' NOT
.ix NOT
.bxt on &c0 &c3 &c1 &c2
\Definition\Name\Usage
.bxt
\Boolean AND        \IAND            \I&arrow.IAND(I,I)
.bxt
\Boolean inclusive OR       \IOR     \I&arrow.IOR(I,I)
.bxt
\Boolean exclusive OR       \IEOR    \I&arrow.IEOR(I,I)
.bxt
\Boolean complement \NOT             \I&arrow.NOT(I)
.bxt off
.*
.cp 15
.section Binary Pattern Processing Functions: Shift Operations
.*
.ix 'intrinsic function' ISHL
.ix 'intrinsic function' ISHFT
.ix ISHL
.ix ISHFT
.ix 'intrinsic function' ISHA
.ix ISHA
.ix 'intrinsic function' ISHC
.ix ISHC
.bxt on &c0 &c3 &c1 &c2
\Definition\Name\Usage
.bxt
\Logical shift      \ISHL            \I&arrow.ISHL(I,I)
\                   \ISHFT           \I&arrow.ISHFT(I,I)
.bxt
\Arithmetic shift   \ISHA            \I&arrow.ISHA(I,I)
.bxt
\Circular shift     \ISHC            \I&arrow.ISHC(I,I)
.bxt off
.im finote10
.*
.cp 15
.section Binary Pattern Processing Functions: Bit Testing
.*
.ix 'intrinsic function' BTEST
.ix BTEST
.bxt on &c0 &c3 &c1 &c2
\Definition\Name\Usage
.bxt
\Test bit           \BTEST           \L&arrow.BTEST(I,I)
\a2'th bit of a1 is tested.\
\If it is 1, .TRUE. is  \
\returned.              \
\If it is 0, .FALSE. is \
\returned.
.bxt off
.*
.cp 10
.section Binary Pattern Processing Functions: Set Bit
.*
.ix 'intrinsic function'   IBSET
.ix IBSET
.bxt on &c0 &c3 &c1 &c2
\Definition\Name\Usage
.bxt
\Set bit            \IBSET           \I&arrow.IBSET(I,I)
\Return a1 with a2'th  \
\bit set               \
.bxt off
.*
.cp 10
.section Binary Pattern Processing Functions: Clear Bit
.*
.ix 'intrinsic function' IBCLR
.ix IBCLR
.bxt on &c0 &c3 &c1 &c2
\Definition\Name\Usage
.bxt
\Clear bit          \IBCLR           \I&arrow.IBCLR(I,I)
\Return a1 with a2'th \
\bit cleared          \
.bxt off
.*
.cp 10
.section Binary Pattern Processing Functions: Change Bit
.*
.ix 'intrinsic function' IBCHNG
.ix IBCHNG
.bxt on &c0 &c3 &c1 &c2
\Definition\Name\Usage
.bxt
\Change bit         \IBCHNG          \I&arrow.IBCHNG(I,I)
\Return a1 with a2'th \
\bit complemented     \
.bxt off
.*
.cp 10
.section Allocated Array
.*
.ix 'intrinsic function' ALLOCATED
.ix ALLOCATED
.bxt on &c0 &c3 &c1 &c2
\Definition\Name\Usage
.bxt
\Is array A allocated?      \ALLOCATED       \L&arrow.ALLOCATED(A)
.bxt off
.*
.cp 10
.section Memory Location
.*
.ix 'intrinsic function' LOC
.ix LOC
.bxt on &c0 &c3 &c1 &c2
\Definition\Name\Usage
.bxt
\location of A where      \LOC  \I&arrow.LOC(A)
\A is any variable, array \
\or array element         \
.bxt off
.*
.cp 10
.section Size of Variable or Structure
.*
.ix 'intrinsic function' ISIZEOF
.ix ISIZEOF
.bxt on &c0 &c3 &c1 &c2
\Definition\Name\Usage
.bxt
\size of A in bytes where \ISIZEOF  \I&arrow.ISIZEOF(A)
\A is any constant,       \
\variable, array, or      \
\structure                \
.bxt off
.np
The size reported for a constant or simple variable is based on its
type.
The size of a CHARACTER constant is the number of characters in the
constant.
The size reported for an array is the size of the storage area
required for the array.
The size reported for a structure is the size of the storage area
required for the structure.
An assumed-size CHARACTER variable, assumed-size array, or allocatable
array has size 0.
.*
.cp 15
.section Volatile Reference
.*
.ix 'intrinsic function' VOLATILE
.ix VOLATILE
.bxt on &c0 &c3 &c1 &c2
\Definition\Name\Usage
.bxt
\A is a volatile          \VOLATILE  \A&arrow.VOLATILE(A)
\reference                \
.bxt off
.np
A volatile reference to a symbol indicates that the value of the symbol
may be modified in ways that are unknown to the subprogram.
For example, a symbol in common being referenced in a subprogram may be
modified by another subprogram that is processing an asynchronous interrupt.
Therefore, any subprogram that is referencing the symbol to determine its
value should reference this symbol using the
.id VOLATILE
intrinsic function so that the value currently being evaluated agrees with
the value last stored.