📄 intdoc.texi
字号:
* Loc Intrinsic:: Address of entity in core.@end ifset@ifset familyF77* Log Intrinsic:: Natural logarithm.* Log10 Intrinsic:: Common logarithm.@end ifset@ifset familyF90* Logical Intrinsic:: (Reserved for future use.)@end ifset@ifset familyF2U* Long Intrinsic:: Conversion to @code{INTEGER(KIND=1)} (archaic).@end ifset@ifset familyF2C* LShift Intrinsic:: Left-shift bits.@end ifset@ifset familyF2U* LStat Intrinsic (subroutine):: Get file information.* LStat Intrinsic (function):: Get file information.* LTime Intrinsic:: Convert time to local time info.@end ifset@ifset familyF90* MatMul Intrinsic:: (Reserved for future use.)@end ifset@ifset familyF77* Max Intrinsic:: Maximum value.* Max0 Intrinsic:: Maximum value (archaic).* Max1 Intrinsic:: Maximum value (archaic).@end ifset@ifset familyF90* MaxExponent Intrinsic:: (Reserved for future use.)* MaxLoc Intrinsic:: (Reserved for future use.)* MaxVal Intrinsic:: (Reserved for future use.)@end ifset@ifset familyF2U* MClock Intrinsic:: Get number of clock ticks for process.* MClock8 Intrinsic:: Get number of clock ticks for process.@end ifset@ifset familyF90* Merge Intrinsic:: (Reserved for future use.)@end ifset@ifset familyF77* Min Intrinsic:: Minimum value.* Min0 Intrinsic:: Minimum value (archaic).* Min1 Intrinsic:: Minimum value (archaic).@end ifset@ifset familyF90* MinExponent Intrinsic:: (Reserved for future use.)* MinLoc Intrinsic:: (Reserved for future use.)* MinVal Intrinsic:: (Reserved for future use.)@end ifset@ifset familyF77* Mod Intrinsic:: Remainder.@end ifset@ifset familyF90* Modulo Intrinsic:: (Reserved for future use.)@end ifset@ifset familyMIL* MvBits Intrinsic:: Moving a bit field.@end ifset@ifset familyF90* Nearest Intrinsic:: (Reserved for future use.)@end ifset@ifset familyF77* NInt Intrinsic:: Convert to @code{INTEGER} value rounded to nearest whole number.@end ifset@ifset familyMIL* Not Intrinsic:: Boolean NOT.@end ifset@ifset familyF2C* Or Intrinsic:: Boolean OR.@end ifset@ifset familyF90* Pack Intrinsic:: (Reserved for future use.)@end ifset@ifset familyF2U* PError Intrinsic:: Print error message for last error.@end ifset@ifset familyF90* Precision Intrinsic:: (Reserved for future use.)* Present Intrinsic:: (Reserved for future use.)* Product Intrinsic:: (Reserved for future use.)@end ifset@ifset familyVXT* QAbs Intrinsic:: (Reserved for future use.)* QACos Intrinsic:: (Reserved for future use.)* QACosD Intrinsic:: (Reserved for future use.)* QASin Intrinsic:: (Reserved for future use.)* QASinD Intrinsic:: (Reserved for future use.)* QATan Intrinsic:: (Reserved for future use.)* QATan2 Intrinsic:: (Reserved for future use.)* QATan2D Intrinsic:: (Reserved for future use.)* QATanD Intrinsic:: (Reserved for future use.)* QCos Intrinsic:: (Reserved for future use.)* QCosD Intrinsic:: (Reserved for future use.)* QCosH Intrinsic:: (Reserved for future use.)* QDiM Intrinsic:: (Reserved for future use.)* QExp Intrinsic:: (Reserved for future use.)* QExt Intrinsic:: (Reserved for future use.)* QExtD Intrinsic:: (Reserved for future use.)* QFloat Intrinsic:: (Reserved for future use.)* QInt Intrinsic:: (Reserved for future use.)* QLog Intrinsic:: (Reserved for future use.)* QLog10 Intrinsic:: (Reserved for future use.)* QMax1 Intrinsic:: (Reserved for future use.)* QMin1 Intrinsic:: (Reserved for future use.)* QMod Intrinsic:: (Reserved for future use.)* QNInt Intrinsic:: (Reserved for future use.)* QSin Intrinsic:: (Reserved for future use.)* QSinD Intrinsic:: (Reserved for future use.)* QSinH Intrinsic:: (Reserved for future use.)* QSqRt Intrinsic:: (Reserved for future use.)* QTan Intrinsic:: (Reserved for future use.)* QTanD Intrinsic:: (Reserved for future use.)* QTanH Intrinsic:: (Reserved for future use.)@end ifset@ifset familyF90* Radix Intrinsic:: (Reserved for future use.)@end ifset@ifset familyF2U* Rand Intrinsic:: Random number.@end ifset@ifset familyF90* Random_Number Intrinsic:: (Reserved for future use.)* Random_Seed Intrinsic:: (Reserved for future use.)* Range Intrinsic:: (Reserved for future use.)@end ifset@ifset familyF77* Real Intrinsic:: Convert value to type @code{REAL(KIND=1)}.@end ifset@ifset familyGNU* RealPart Intrinsic:: Extract real part of complex.@end ifset@ifset familyF2U* Rename Intrinsic (subroutine):: Rename file.@end ifset@ifset familyBADU77* Rename Intrinsic (function):: Rename file.@end ifset@ifset familyF90* Repeat Intrinsic:: (Reserved for future use.)* Reshape Intrinsic:: (Reserved for future use.)* RRSpacing Intrinsic:: (Reserved for future use.)@end ifset@ifset familyF2C* RShift Intrinsic:: Right-shift bits.@end ifset@ifset familyF90* Scale Intrinsic:: (Reserved for future use.)* Scan Intrinsic:: (Reserved for future use.)@end ifset@ifset familyVXT* Secnds Intrinsic:: Get local time offset since midnight.@end ifset@ifset familyF2U* Second Intrinsic (function):: Get CPU time for process in seconds.* Second Intrinsic (subroutine):: Get CPU time for process in seconds.@end ifset@ifset familyF90* Selected_Int_Kind Intrinsic:: (Reserved for future use.)* Selected_Real_Kind Intrinsic:: (Reserved for future use.)* Set_Exponent Intrinsic:: (Reserved for future use.)* Shape Intrinsic:: (Reserved for future use.)@end ifset@ifset familyF2U* Short Intrinsic:: Convert to @code{INTEGER(KIND=6)} value truncated to whole number.@end ifset@ifset familyF77* Sign Intrinsic:: Apply sign to magnitude.@end ifset@ifset familyF2U* Signal Intrinsic (subroutine):: Muck with signal handling.@end ifset@ifset familyBADU77* Signal Intrinsic (function):: Muck with signal handling.@end ifset@ifset familyF77* Sin Intrinsic:: Sine.@end ifset@ifset familyVXT* SinD Intrinsic:: (Reserved for future use.)@end ifset@ifset familyF77* SinH Intrinsic:: Hyperbolic sine.@end ifset@ifset familyF2U* Sleep Intrinsic:: Sleep for a specified time.@end ifset@ifset familyF77* Sngl Intrinsic:: Convert (archaic).@end ifset@ifset familyVXT* SnglQ Intrinsic:: (Reserved for future use.)@end ifset@ifset familyF90* Spacing Intrinsic:: (Reserved for future use.)* Spread Intrinsic:: (Reserved for future use.)@end ifset@ifset familyF77* SqRt Intrinsic:: Square root.@end ifset@ifset familyF2U* SRand Intrinsic:: Random seed.* Stat Intrinsic (subroutine):: Get file information.* Stat Intrinsic (function):: Get file information.@end ifset@ifset familyF90* Sum Intrinsic:: (Reserved for future use.)@end ifset@ifset familyF2U* SymLnk Intrinsic (subroutine):: Make symbolic link in file system.@end ifset@ifset familyBADU77* SymLnk Intrinsic (function):: Make symbolic link in file system.@end ifset@ifset familyF2U* System Intrinsic (subroutine):: Invoke shell (system) command.@end ifset@ifset familyBADU77* System Intrinsic (function):: Invoke shell (system) command.@end ifset@ifset familyF90* System_Clock Intrinsic:: Get current system clock value.@end ifset@ifset familyF77* Tan Intrinsic:: Tangent.@end ifset@ifset familyVXT* TanD Intrinsic:: (Reserved for future use.)@end ifset@ifset familyF77* TanH Intrinsic:: Hyperbolic tangent.@end ifset@ifset familyF2U* Time Intrinsic (UNIX):: Get current time as time value.@end ifset@ifset familyVXT* Time Intrinsic (VXT):: Get the time as a character value.@end ifset@ifset familyF2U* Time8 Intrinsic:: Get current time as time value.@end ifset@ifset familyF90* Tiny Intrinsic:: (Reserved for future use.)* Transfer Intrinsic:: (Reserved for future use.)* Transpose Intrinsic:: (Reserved for future use.)* Trim Intrinsic:: (Reserved for future use.)@end ifset@ifset familyF2U* TtyNam Intrinsic (subroutine):: Get name of terminal device for unit.* TtyNam Intrinsic (function):: Get name of terminal device for unit.@end ifset@ifset familyF90* UBound Intrinsic:: (Reserved for future use.)@end ifset@ifset familyF2U* UMask Intrinsic (subroutine):: Set file creation permissions mask.@end ifset@ifset familyBADU77* UMask Intrinsic (function):: Set file creation permissions mask.@end ifset@ifset familyF2U* Unlink Intrinsic (subroutine):: Unlink file.@end ifset@ifset familyBADU77* Unlink Intrinsic (function):: Unlink file.@end ifset@ifset familyF90* Unpack Intrinsic:: (Reserved for future use.)* Verify Intrinsic:: (Reserved for future use.)@end ifset@ifset familyF2C* XOr Intrinsic:: Boolean XOR.* ZAbs Intrinsic:: Absolute value (archaic).* ZCos Intrinsic:: Cosine (archaic).* ZExp Intrinsic:: Exponential (archaic).@end ifset@ifset familyVXT* ZExt Intrinsic:: (Reserved for future use.)@end ifset@ifset familyF2C* ZLog Intrinsic:: Natural logarithm (archaic).* ZSin Intrinsic:: Sine (archaic).* ZSqRt Intrinsic:: Square root (archaic).@end ifset@end menu@ifset familyF2U@node Abort Intrinsic@subsubsection Abort Intrinsic@cindex Abort intrinsic@cindex intrinsics, Abort@noindent@exampleCALL Abort()@end example@noindentIntrinsic groups: @code{unix}.@noindentDescription:Prints a message and potentially causes a core dump via @code{abort(3)}.@end ifset@ifset familyF77@node Abs Intrinsic@subsubsection Abs Intrinsic@cindex Abs intrinsic@cindex intrinsics, Abs@noindent@exampleAbs(@var{A})@end example@noindentAbs: @code{INTEGER} or @code{REAL} function.The exact type depends on that of argument @var{A}---if @var{A} is@code{COMPLEX}, this function's type is @code{REAL}with the same @samp{KIND=} value as the type of @var{A}.Otherwise, this function's type is the same as that of @var{A}.@noindent@var{A}: @code{INTEGER}, @code{REAL}, or @code{COMPLEX}; scalar; INTENT(IN).@noindentIntrinsic groups: (standard FORTRAN 77).@noindentDescription:Returns the absolute value of @var{A}.If @var{A} is type @code{COMPLEX}, the absolutevalue is computed as:@exampleSQRT(REALPART(@var{A})**2, IMAGPART(@var{A})**2)@end example@noindentOtherwise, it is computed by negating the @var{A} ifit is negative, or returning @var{A}.@xref{Sign Intrinsic}, for how to explicitlycompute the positive or negative form of the absolutevalue of an expression.@end ifset@ifset familyF2U@node Access Intrinsic@subsubsection Access Intrinsic@cindex Access intrinsic@cindex intrinsics, Access@noindent@exampleAccess(@var{Name}, @var{Mode})@end example@noindentAccess: @code{INTEGER(KIND=1)} function.@noindent@var{Name}: @code{CHARACTER}; scalar; INTENT(IN).@noindent@var{Mode}: @code{CHARACTER}; scalar; INTENT(IN).@noindentIntrinsic groups: @code{unix}.@noindentDescription:Checks file @var{Name} for accessibility in the mode specified by @var{Mode} andreturns 0 if the file is accessible in that mode, otherwise an errorcode if the file is inaccessible or @var{Mode} is invalid.See @code{access(2)}.A null character (@samp{CHAR(0)}) marks the end ofthe name in @var{Name}---otherwise,trailing blanks in @var{Name} are ignored.@var{Mode} may be a concatenation of any of the following characters:@table @samp@item rRead permission@item wWrite permission@item xExecute permission@item @kbd{SPC}Existence@end table@end ifset@ifset familyASC@node AChar Intrinsic@subsubsection AChar Intrinsic@cindex AChar intrinsic@cindex intrinsics, AChar@noindent@exampleAChar(@var{I})@end example@noindentAChar: @code{CHARACTER*1} function.@noindent@var{I}: @code{INTEGER}; scalar; INTENT(IN).@noindentIntrinsic groups: @code{f2c}, @code{f90}.@noindentDescription:Returns the ASCII character corresponding to thecode specified by @var{I}.@xref{IAChar Intrinsic}, for the inverse of this function.@xref{Char Intrinsic}, for the function correspondingto the system's native character set.@end ifset@ifset familyF77@node ACos Intrinsic@subsubsection ACos Intrinsic@cindex ACos intrinsic@cindex intrinsics, ACos@noindent@exampleACos(@var{X})@end example@noindentACos: @code{REAL} function, the @samp{KIND=} value of the type being that of argument @var{X}.@noindent@var{X}: @code{REAL}; scalar; INTENT(IN).@noindentIntrinsic groups: (standard FORTRAN 77).@noindentDescription:Returns the arc-cosine (inverse cosine) of @var{X}in radians.@xref{Cos Intrinsic}, for the inverse of this function.@end ifset@ifset familyVXT@node ACosD Intrinsic@subsubsection ACosD Intrinsic@cindex ACosD intrinsic@cindex intrinsics, ACosDThis intrinsic is not yet implemented.The name is, however, reserved as an intrinsic.Use @samp{EXTERNAL ACosD} to use this name for anexternal procedure.@end ifset@ifset familyF90@node AdjustL Intrinsic@subsubsection AdjustL Intrinsic@cindex AdjustL intrinsic@cindex intrinsics, AdjustLThis intrinsic is not yet implemented.The name is, however, reserved as an intrinsic.Use @samp{EXTERNAL AdjustL} to use this name for anexternal procedure.@node AdjustR Intrinsic@subsubsection AdjustR Intrinsic@cindex AdjustR intrinsic@cindex intrinsics, AdjustRThis intrinsic is not yet implemented.The name is, however, reserved as an intrinsic.Use @samp{EXTERNAL AdjustR} to use this name for anexternal procedure.@end ifset@ifset familyF77@node AImag Intrinsic@subsubsection AImag Intrinsic@cindex AImag intrinsic@cindex intrinsics, AImag@noindent@exampleAImag(@var{Z})@end example@noindentAImag: @code{REAL} function.This intrinsic is valid when argument @var{Z} is@code{COMPLEX(KIND=1)}.When @var{Z} is any other @code{COMPLEX} type,this intrinsic is valid only when used as the argument to@code{REAL()}, as explained below.@noindent@var{Z}: @code{COMPLEX}; scalar; INTENT(IN).@noindentIntrinsic groups: (standard FORTRAN 77).@noindentDescription:Returns the (possibly converted) imaginary part of @var{Z}.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -