+++ /dev/null
-This is g77.info, produced by makeinfo version 4.5 from g77.texi.
-
-INFO-DIR-SECTION Programming
-START-INFO-DIR-ENTRY
-* g77: (g77). The GNU Fortran compiler.
-END-INFO-DIR-ENTRY
- This file documents the use and the internals of the GNU Fortran
-(`g77') compiler. It corresponds to the GCC-3.2.3 version of `g77'.
-
- Published by the Free Software Foundation 59 Temple Place - Suite 330
-Boston, MA 02111-1307 USA
-
- Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002 Free Software
-Foundation, Inc.
-
- Permission is granted to copy, distribute and/or modify this document
-under the terms of the GNU Free Documentation License, Version 1.1 or
-any later version published by the Free Software Foundation; with the
-Invariant Sections being "GNU General Public License" and "Funding Free
-Software", the Front-Cover texts being (a) (see below), and with the
-Back-Cover Texts being (b) (see below). A copy of the license is
-included in the section entitled "GNU Free Documentation License".
-
- (a) The FSF's Front-Cover Text is:
-
- A GNU Manual
-
- (b) The FSF's Back-Cover Text is:
-
- You have freedom to copy and modify this GNU Manual, like GNU
-software. Copies published by the Free Software Foundation raise
-funds for GNU development.
-
- Contributed by James Craig Burley (<craig@jcb-sc.com>). Inspired by
-a first pass at translating `g77-0.5.16/f/DOC' that was contributed to
-Craig by David Ronis (<ronis@onsager.chem.mcgill.ca>).
-
-\1f
-File: g77.info, Node: HostNm Intrinsic (function), Next: Huge Intrinsic, Prev: HostNm Intrinsic (subroutine), Up: Table of Intrinsic Functions
-
-HostNm Intrinsic (function)
-...........................
-
- HostNm(NAME)
-
-HostNm: `INTEGER(KIND=1)' function.
-
-NAME: `CHARACTER'; scalar; INTENT(OUT).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Fills NAME with the system's host name returned by `gethostname(2)',
-returning 0 on success or a non-zero error code (`ENOSYS' if the system
-does not provide `gethostname(2)').
-
- On some systems (specifically SCO) it might be necessary to link the
-"socket" library if you call this routine. Typically this means adding
-`-lg2c -lsocket -lm' to the `g77' command line when linking the program.
-
- For information on other intrinsics with the same name: *Note HostNm
-Intrinsic (subroutine)::.
-
-\1f
-File: g77.info, Node: Huge Intrinsic, Next: IAbs Intrinsic, Prev: HostNm Intrinsic (function), Up: Table of Intrinsic Functions
-
-Huge Intrinsic
-..............
-
- This intrinsic is not yet implemented. The name is, however,
-reserved as an intrinsic. Use `EXTERNAL Huge' to use this name for an
-external procedure.
-
-\1f
-File: g77.info, Node: IAbs Intrinsic, Next: IAChar Intrinsic, Prev: Huge Intrinsic, Up: Table of Intrinsic Functions
-
-IAbs Intrinsic
-..............
-
- IAbs(A)
-
-IAbs: `INTEGER(KIND=1)' function.
-
-A: `INTEGER(KIND=1)'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Archaic form of `ABS()' that is specific to one type for A. *Note
-Abs Intrinsic::.
-
-\1f
-File: g77.info, Node: IAChar Intrinsic, Next: IAnd Intrinsic, Prev: IAbs Intrinsic, Up: Table of Intrinsic Functions
-
-IAChar Intrinsic
-................
-
- IAChar(C)
-
-IAChar: `INTEGER(KIND=1)' function.
-
-C: `CHARACTER'; scalar; INTENT(IN).
-
-Intrinsic groups: `f2c', `f90'.
-
-Description:
-
- Returns the code for the ASCII character in the first character
-position of C.
-
- *Note AChar Intrinsic::, for the inverse of this function.
-
- *Note IChar Intrinsic::, for the function corresponding to the
-system's native character set.
-
-\1f
-File: g77.info, Node: IAnd Intrinsic, Next: IArgC Intrinsic, Prev: IAChar Intrinsic, Up: Table of Intrinsic Functions
-
-IAnd Intrinsic
-..............
-
- IAnd(I, J)
-
-IAnd: `INTEGER' function, the exact type being the result of
-cross-promoting the types of all the arguments.
-
-I: `INTEGER'; scalar; INTENT(IN).
-
-J: `INTEGER'; scalar; INTENT(IN).
-
-Intrinsic groups: `mil', `f90', `vxt'.
-
-Description:
-
- Returns value resulting from boolean AND of pair of bits in each of
-I and J.
-
-\1f
-File: g77.info, Node: IArgC Intrinsic, Next: IBClr Intrinsic, Prev: IAnd Intrinsic, Up: Table of Intrinsic Functions
-
-IArgC Intrinsic
-...............
-
- IArgC()
-
-IArgC: `INTEGER(KIND=1)' function.
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Returns the number of command-line arguments.
-
- This count does not include the specification of the program name
-itself.
-
-\1f
-File: g77.info, Node: IBClr Intrinsic, Next: IBits Intrinsic, Prev: IArgC Intrinsic, Up: Table of Intrinsic Functions
-
-IBClr Intrinsic
-...............
-
- IBClr(I, POS)
-
-IBClr: `INTEGER' function, the `KIND=' value of the type being that of
-argument I.
-
-I: `INTEGER'; scalar; INTENT(IN).
-
-POS: `INTEGER'; scalar; INTENT(IN).
-
-Intrinsic groups: `mil', `f90', `vxt'.
-
-Description:
-
- Returns the value of I with bit POS cleared (set to zero). *Note
-BTest Intrinsic::, for information on bit positions.
-
-\1f
-File: g77.info, Node: IBits Intrinsic, Next: IBSet Intrinsic, Prev: IBClr Intrinsic, Up: Table of Intrinsic Functions
-
-IBits Intrinsic
-...............
-
- IBits(I, POS, LEN)
-
-IBits: `INTEGER' function, the `KIND=' value of the type being that of
-argument I.
-
-I: `INTEGER'; scalar; INTENT(IN).
-
-POS: `INTEGER'; scalar; INTENT(IN).
-
-LEN: `INTEGER'; scalar; INTENT(IN).
-
-Intrinsic groups: `mil', `f90', `vxt'.
-
-Description:
-
- Extracts a subfield of length LEN from I, starting from bit position
-POS and extending left for LEN bits. The result is right-justified and
-the remaining bits are zeroed. The value of `POS+LEN' must be less
-than or equal to the value `BIT_SIZE(I)'. *Note Bit_Size Intrinsic::.
-
-\1f
-File: g77.info, Node: IBSet Intrinsic, Next: IChar Intrinsic, Prev: IBits Intrinsic, Up: Table of Intrinsic Functions
-
-IBSet Intrinsic
-...............
-
- IBSet(I, POS)
-
-IBSet: `INTEGER' function, the `KIND=' value of the type being that of
-argument I.
-
-I: `INTEGER'; scalar; INTENT(IN).
-
-POS: `INTEGER'; scalar; INTENT(IN).
-
-Intrinsic groups: `mil', `f90', `vxt'.
-
-Description:
-
- Returns the value of I with bit POS set (to one). *Note BTest
-Intrinsic::, for information on bit positions.
-
-\1f
-File: g77.info, Node: IChar Intrinsic, Next: IDate Intrinsic (UNIX), Prev: IBSet Intrinsic, Up: Table of Intrinsic Functions
-
-IChar Intrinsic
-...............
-
- IChar(C)
-
-IChar: `INTEGER(KIND=1)' function.
-
-C: `CHARACTER'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Returns the code for the character in the first character position
-of C.
-
- Because the system's native character set is used, the
-correspondence between character and their codes is not necessarily the
-same between GNU Fortran implementations.
-
- Note that no intrinsic exists to convert a printable character
-string to a numerical value. For example, there is no intrinsic that,
-given the `CHARACTER' value `'154'', returns an `INTEGER' or `REAL'
-value with the value `154'.
-
- Instead, you can use internal-file I/O to do this kind of conversion.
-For example:
-
- INTEGER VALUE
- CHARACTER*10 STRING
- STRING = '154'
- READ (STRING, '(I10)'), VALUE
- PRINT *, VALUE
- END
-
- The above program, when run, prints:
-
- 154
-
- *Note Char Intrinsic::, for the inverse of the `ICHAR' function.
-
- *Note IAChar Intrinsic::, for the function corresponding to the
-ASCII character set.
-
-\1f
-File: g77.info, Node: IDate Intrinsic (UNIX), Next: IDiM Intrinsic, Prev: IChar Intrinsic, Up: Table of Intrinsic Functions
-
-IDate Intrinsic (UNIX)
-......................
-
- CALL IDate(TARRAY)
-
-TARRAY: `INTEGER(KIND=1)'; DIMENSION(3); INTENT(OUT).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Fills TARRAY with the numerical values at the current local time of
-day, month (in the range 1-12), and year in elements 1, 2, and 3,
-respectively. The year has four significant digits.
-
- Programs making use of this intrinsic might not be Year 10000 (Y10K)
-compliant. For example, the date might appear, to such programs, to
-wrap around (change from a larger value to a smaller one) as of the
-Year 10000.
-
- For information on other intrinsics with the same name: *Note IDate
-Intrinsic (VXT)::.
-
-\1f
-File: g77.info, Node: IDiM Intrinsic, Next: IDInt Intrinsic, Prev: IDate Intrinsic (UNIX), Up: Table of Intrinsic Functions
-
-IDiM Intrinsic
-..............
-
- IDiM(X, Y)
-
-IDiM: `INTEGER(KIND=1)' function.
-
-X: `INTEGER(KIND=1)'; scalar; INTENT(IN).
-
-Y: `INTEGER(KIND=1)'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Archaic form of `DIM()' that is specific to one type for X and Y.
-*Note DiM Intrinsic::.
-
-\1f
-File: g77.info, Node: IDInt Intrinsic, Next: IDNInt Intrinsic, Prev: IDiM Intrinsic, Up: Table of Intrinsic Functions
-
-IDInt Intrinsic
-...............
-
- IDInt(A)
-
-IDInt: `INTEGER(KIND=1)' function.
-
-A: `REAL(KIND=2)'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Archaic form of `INT()' that is specific to one type for A. *Note
-Int Intrinsic::.
-
-\1f
-File: g77.info, Node: IDNInt Intrinsic, Next: IEOr Intrinsic, Prev: IDInt Intrinsic, Up: Table of Intrinsic Functions
-
-IDNInt Intrinsic
-................
-
- IDNInt(A)
-
-IDNInt: `INTEGER(KIND=1)' function.
-
-A: `REAL(KIND=2)'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Archaic form of `NINT()' that is specific to one type for A. *Note
-NInt Intrinsic::.
-
-\1f
-File: g77.info, Node: IEOr Intrinsic, Next: IErrNo Intrinsic, Prev: IDNInt Intrinsic, Up: Table of Intrinsic Functions
-
-IEOr Intrinsic
-..............
-
- IEOr(I, J)
-
-IEOr: `INTEGER' function, the exact type being the result of
-cross-promoting the types of all the arguments.
-
-I: `INTEGER'; scalar; INTENT(IN).
-
-J: `INTEGER'; scalar; INTENT(IN).
-
-Intrinsic groups: `mil', `f90', `vxt'.
-
-Description:
-
- Returns value resulting from boolean exclusive-OR of pair of bits in
-each of I and J.
-
-\1f
-File: g77.info, Node: IErrNo Intrinsic, Next: IFix Intrinsic, Prev: IEOr Intrinsic, Up: Table of Intrinsic Functions
-
-IErrNo Intrinsic
-................
-
- IErrNo()
-
-IErrNo: `INTEGER(KIND=1)' function.
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Returns the last system error number (corresponding to the C
-`errno').
-
-\1f
-File: g77.info, Node: IFix Intrinsic, Next: Imag Intrinsic, Prev: IErrNo Intrinsic, Up: Table of Intrinsic Functions
-
-IFix Intrinsic
-..............
-
- IFix(A)
-
-IFix: `INTEGER(KIND=1)' function.
-
-A: `REAL(KIND=1)'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Archaic form of `INT()' that is specific to one type for A. *Note
-Int Intrinsic::.
-
-\1f
-File: g77.info, Node: Imag Intrinsic, Next: ImagPart Intrinsic, Prev: IFix Intrinsic, Up: Table of Intrinsic Functions
-
-Imag Intrinsic
-..............
-
- Imag(Z)
-
-Imag: `REAL' function, the `KIND=' value of the type being that of
-argument Z.
-
-Z: `COMPLEX'; scalar; INTENT(IN).
-
-Intrinsic groups: `f2c'.
-
-Description:
-
- The imaginary part of Z is returned, without conversion.
-
- _Note:_ The way to do this in standard Fortran 90 is `AIMAG(Z)'.
-However, when, for example, Z is `DOUBLE COMPLEX', `AIMAG(Z)' means
-something different for some compilers that are not true Fortran 90
-compilers but offer some extensions standardized by Fortran 90 (such as
-the `DOUBLE COMPLEX' type, also known as `COMPLEX(KIND=2)').
-
- The advantage of `IMAG()' is that, while not necessarily more or
-less portable than `AIMAG()', it is more likely to cause a compiler
-that doesn't support it to produce a diagnostic than generate incorrect
-code.
-
- *Note REAL() and AIMAG() of Complex::, for more information.
-
-\1f
-File: g77.info, Node: ImagPart Intrinsic, Next: Index Intrinsic, Prev: Imag Intrinsic, Up: Table of Intrinsic Functions
-
-ImagPart Intrinsic
-..................
-
- ImagPart(Z)
-
-ImagPart: `REAL' function, the `KIND=' value of the type being that of
-argument Z.
-
-Z: `COMPLEX'; scalar; INTENT(IN).
-
-Intrinsic groups: `gnu'.
-
-Description:
-
- The imaginary part of Z is returned, without conversion.
-
- _Note:_ The way to do this in standard Fortran 90 is `AIMAG(Z)'.
-However, when, for example, Z is `DOUBLE COMPLEX', `AIMAG(Z)' means
-something different for some compilers that are not true Fortran 90
-compilers but offer some extensions standardized by Fortran 90 (such as
-the `DOUBLE COMPLEX' type, also known as `COMPLEX(KIND=2)').
-
- The advantage of `IMAGPART()' is that, while not necessarily more or
-less portable than `AIMAG()', it is more likely to cause a compiler
-that doesn't support it to produce a diagnostic than generate incorrect
-code.
-
- *Note REAL() and AIMAG() of Complex::, for more information.
-
-\1f
-File: g77.info, Node: Index Intrinsic, Next: Int Intrinsic, Prev: ImagPart Intrinsic, Up: Table of Intrinsic Functions
-
-Index Intrinsic
-...............
-
- Index(STRING, SUBSTRING)
-
-Index: `INTEGER(KIND=1)' function.
-
-STRING: `CHARACTER'; scalar; INTENT(IN).
-
-SUBSTRING: `CHARACTER'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Returns the position of the start of the first occurrence of string
-SUBSTRING as a substring in STRING, counting from one. If SUBSTRING
-doesn't occur in STRING, zero is returned.
-
-\1f
-File: g77.info, Node: Int Intrinsic, Next: Int2 Intrinsic, Prev: Index Intrinsic, Up: Table of Intrinsic Functions
-
-Int Intrinsic
-.............
-
- Int(A)
-
-Int: `INTEGER(KIND=1)' function.
-
-A: `INTEGER', `REAL', or `COMPLEX'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Returns A with the fractional portion of its magnitude truncated and
-its sign preserved, converted to type `INTEGER(KIND=1)'.
-
- If A is type `COMPLEX', its real part is truncated and converted,
-and its imaginary part is disregarded.
-
- *Note NInt Intrinsic::, for how to convert, rounded to nearest whole
-number.
-
- *Note AInt Intrinsic::, for how to truncate to whole number without
-converting.
-
-\1f
-File: g77.info, Node: Int2 Intrinsic, Next: Int8 Intrinsic, Prev: Int Intrinsic, Up: Table of Intrinsic Functions
-
-Int2 Intrinsic
-..............
-
- Int2(A)
-
-Int2: `INTEGER(KIND=6)' function.
-
-A: `INTEGER', `REAL', or `COMPLEX'; scalar; INTENT(IN).
-
-Intrinsic groups: `gnu'.
-
-Description:
-
- Returns A with the fractional portion of its magnitude truncated and
-its sign preserved, converted to type `INTEGER(KIND=6)'.
-
- If A is type `COMPLEX', its real part is truncated and converted,
-and its imaginary part is disgregarded.
-
- *Note Int Intrinsic::.
-
- The precise meaning of this intrinsic might change in a future
-version of the GNU Fortran language, as more is learned about how it is
-used.
-
-\1f
-File: g77.info, Node: Int8 Intrinsic, Next: IOr Intrinsic, Prev: Int2 Intrinsic, Up: Table of Intrinsic Functions
-
-Int8 Intrinsic
-..............
-
- Int8(A)
-
-Int8: `INTEGER(KIND=2)' function.
-
-A: `INTEGER', `REAL', or `COMPLEX'; scalar; INTENT(IN).
-
-Intrinsic groups: `gnu'.
-
-Description:
-
- Returns A with the fractional portion of its magnitude truncated and
-its sign preserved, converted to type `INTEGER(KIND=2)'.
-
- If A is type `COMPLEX', its real part is truncated and converted,
-and its imaginary part is disgregarded.
-
- *Note Int Intrinsic::.
-
- The precise meaning of this intrinsic might change in a future
-version of the GNU Fortran language, as more is learned about how it is
-used.
-
-\1f
-File: g77.info, Node: IOr Intrinsic, Next: IRand Intrinsic, Prev: Int8 Intrinsic, Up: Table of Intrinsic Functions
-
-IOr Intrinsic
-.............
-
- IOr(I, J)
-
-IOr: `INTEGER' function, the exact type being the result of
-cross-promoting the types of all the arguments.
-
-I: `INTEGER'; scalar; INTENT(IN).
-
-J: `INTEGER'; scalar; INTENT(IN).
-
-Intrinsic groups: `mil', `f90', `vxt'.
-
-Description:
-
- Returns value resulting from boolean OR of pair of bits in each of I
-and J.
-
-\1f
-File: g77.info, Node: IRand Intrinsic, Next: IsaTty Intrinsic, Prev: IOr Intrinsic, Up: Table of Intrinsic Functions
-
-IRand Intrinsic
-...............
-
- IRand(FLAG)
-
-IRand: `INTEGER(KIND=1)' function.
-
-FLAG: `INTEGER'; OPTIONAL; scalar; INTENT(IN).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Returns a uniform quasi-random number up to a system-dependent limit.
-If FLAG is 0, the next number in sequence is returned; if FLAG is 1,
-the generator is restarted by calling the UNIX function `srand(0)'; if
-FLAG has any other value, it is used as a new seed with `srand()'.
-
- *Note SRand Intrinsic::.
-
- _Note:_ As typically implemented (by the routine of the same name in
-the C library), this random number generator is a very poor one, though
-the BSD and GNU libraries provide a much better implementation than the
-`traditional' one. On a different system you almost certainly want to
-use something better.
-
-\1f
-File: g77.info, Node: IsaTty Intrinsic, Next: IShft Intrinsic, Prev: IRand Intrinsic, Up: Table of Intrinsic Functions
-
-IsaTty Intrinsic
-................
-
- IsaTty(UNIT)
-
-IsaTty: `LOGICAL(KIND=1)' function.
-
-UNIT: `INTEGER'; scalar; INTENT(IN).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Returns `.TRUE.' if and only if the Fortran I/O unit specified by
-UNIT is connected to a terminal device. See `isatty(3)'.
-
-\1f
-File: g77.info, Node: IShft Intrinsic, Next: IShftC Intrinsic, Prev: IsaTty Intrinsic, Up: Table of Intrinsic Functions
-
-IShft Intrinsic
-...............
-
- IShft(I, SHIFT)
-
-IShft: `INTEGER' function, the `KIND=' value of the type being that of
-argument I.
-
-I: `INTEGER'; scalar; INTENT(IN).
-
-SHIFT: `INTEGER'; scalar; INTENT(IN).
-
-Intrinsic groups: `mil', `f90', `vxt'.
-
-Description:
-
- All bits representing I are shifted SHIFT places. `SHIFT.GT.0'
-indicates a left shift, `SHIFT.EQ.0' indicates no shift and
-`SHIFT.LT.0' indicates a right shift. If the absolute value of the
-shift count is greater than `BIT_SIZE(I)', the result is undefined.
-Bits shifted out from the left end or the right end are lost. Zeros
-are shifted in from the opposite end.
-
- *Note IShftC Intrinsic::, for the circular-shift equivalent.
-
-\1f
-File: g77.info, Node: IShftC Intrinsic, Next: ISign Intrinsic, Prev: IShft Intrinsic, Up: Table of Intrinsic Functions
-
-IShftC Intrinsic
-................
-
- IShftC(I, SHIFT, SIZE)
-
-IShftC: `INTEGER' function, the `KIND=' value of the type being that of
-argument I.
-
-I: `INTEGER'; scalar; INTENT(IN).
-
-SHIFT: `INTEGER'; scalar; INTENT(IN).
-
-SIZE: `INTEGER'; scalar; INTENT(IN).
-
-Intrinsic groups: `mil', `f90', `vxt'.
-
-Description:
-
- The rightmost SIZE bits of the argument I are shifted circularly
-SHIFT places, i.e. the bits shifted out of one end are shifted into the
-opposite end. No bits are lost. The unshifted bits of the result are
-the same as the unshifted bits of I. The absolute value of the
-argument SHIFT must be less than or equal to SIZE. The value of SIZE
-must be greater than or equal to one and less than or equal to
-`BIT_SIZE(I)'.
-
- *Note IShft Intrinsic::, for the logical shift equivalent.
-
-\1f
-File: g77.info, Node: ISign Intrinsic, Next: ITime Intrinsic, Prev: IShftC Intrinsic, Up: Table of Intrinsic Functions
-
-ISign Intrinsic
-...............
-
- ISign(A, B)
-
-ISign: `INTEGER(KIND=1)' function.
-
-A: `INTEGER(KIND=1)'; scalar; INTENT(IN).
-
-B: `INTEGER(KIND=1)'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Archaic form of `SIGN()' that is specific to one type for A and B.
-*Note Sign Intrinsic::.
-
-\1f
-File: g77.info, Node: ITime Intrinsic, Next: Kill Intrinsic (subroutine), Prev: ISign Intrinsic, Up: Table of Intrinsic Functions
-
-ITime Intrinsic
-...............
-
- CALL ITime(TARRAY)
-
-TARRAY: `INTEGER(KIND=1)'; DIMENSION(3); INTENT(OUT).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Returns the current local time hour, minutes, and seconds in elements
-1, 2, and 3 of TARRAY, respectively.
-
-\1f
-File: g77.info, Node: Kill Intrinsic (subroutine), Next: Kind Intrinsic, Prev: ITime Intrinsic, Up: Table of Intrinsic Functions
-
-Kill Intrinsic (subroutine)
-...........................
-
- CALL Kill(PID, SIGNAL, STATUS)
-
-PID: `INTEGER'; scalar; INTENT(IN).
-
-SIGNAL: `INTEGER'; scalar; INTENT(IN).
-
-STATUS: `INTEGER(KIND=1)'; OPTIONAL; scalar; INTENT(OUT).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Sends the signal specified by SIGNAL to the process PID. If the
-STATUS argument is supplied, it contains 0 on success or a non-zero
-error code upon return. See `kill(2)'.
-
- Some non-GNU implementations of Fortran provide this intrinsic as
-only a function, not as a subroutine, or do not support the (optional)
-STATUS argument.
-
- For information on other intrinsics with the same name: *Note Kill
-Intrinsic (function)::.
-
-\1f
-File: g77.info, Node: Kind Intrinsic, Next: LBound Intrinsic, Prev: Kill Intrinsic (subroutine), Up: Table of Intrinsic Functions
-
-Kind Intrinsic
-..............
-
- This intrinsic is not yet implemented. The name is, however,
-reserved as an intrinsic. Use `EXTERNAL Kind' to use this name for an
-external procedure.
-
-\1f
-File: g77.info, Node: LBound Intrinsic, Next: Len Intrinsic, Prev: Kind Intrinsic, Up: Table of Intrinsic Functions
-
-LBound Intrinsic
-................
-
- This intrinsic is not yet implemented. The name is, however,
-reserved as an intrinsic. Use `EXTERNAL LBound' to use this name for an
-external procedure.
-
-\1f
-File: g77.info, Node: Len Intrinsic, Next: Len_Trim Intrinsic, Prev: LBound Intrinsic, Up: Table of Intrinsic Functions
-
-Len Intrinsic
-.............
-
- Len(STRING)
-
-Len: `INTEGER(KIND=1)' function.
-
-STRING: `CHARACTER'; scalar.
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Returns the length of STRING.
-
- If STRING is an array, the length of an element of STRING is
-returned.
-
- Note that STRING need not be defined when this intrinsic is invoked,
-since only the length, not the content, of STRING is needed.
-
- *Note Bit_Size Intrinsic::, for the function that determines the
-size of its argument in bits.
-
-\1f
-File: g77.info, Node: Len_Trim Intrinsic, Next: LGe Intrinsic, Prev: Len Intrinsic, Up: Table of Intrinsic Functions
-
-Len_Trim Intrinsic
-..................
-
- Len_Trim(STRING)
-
-Len_Trim: `INTEGER(KIND=1)' function.
-
-STRING: `CHARACTER'; scalar; INTENT(IN).
-
-Intrinsic groups: `f90'.
-
-Description:
-
- Returns the index of the last non-blank character in STRING.
-`LNBLNK' and `LEN_TRIM' are equivalent.
-
-\1f
-File: g77.info, Node: LGe Intrinsic, Next: LGt Intrinsic, Prev: Len_Trim Intrinsic, Up: Table of Intrinsic Functions
-
-LGe Intrinsic
-.............
-
- LGe(STRING_A, STRING_B)
-
-LGe: `LOGICAL(KIND=1)' function.
-
-STRING_A: `CHARACTER'; scalar; INTENT(IN).
-
-STRING_B: `CHARACTER'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Returns `.TRUE.' if `STRING_A.GE.STRING_B', `.FALSE.' otherwise.
-STRING_A and STRING_B are interpreted as containing ASCII character
-codes. If either value contains a character not in the ASCII character
-set, the result is processor dependent.
-
- If the STRING_A and STRING_B are not the same length, the shorter is
-compared as if spaces were appended to it to form a value that has the
-same length as the longer.
-
- The lexical comparison intrinsics `LGe', `LGt', `LLe', and `LLt'
-differ from the corresponding intrinsic operators `.GE.', `.GT.',
-`.LE.', `.LT.'. Because the ASCII collating sequence is assumed, the
-following expressions always return `.TRUE.':
-
- LGE ('0', ' ')
- LGE ('A', '0')
- LGE ('a', 'A')
-
- The following related expressions do _not_ always return `.TRUE.',
-as they are not necessarily evaluated assuming the arguments use ASCII
-encoding:
-
- '0' .GE. ' '
- 'A' .GE. '0'
- 'a' .GE. 'A'
-
- The same difference exists between `LGt' and `.GT.'; between `LLe'
-and `.LE.'; and between `LLt' and `.LT.'.
-
-\1f
-File: g77.info, Node: LGt Intrinsic, Next: Link Intrinsic (subroutine), Prev: LGe Intrinsic, Up: Table of Intrinsic Functions
-
-LGt Intrinsic
-.............
-
- LGt(STRING_A, STRING_B)
-
-LGt: `LOGICAL(KIND=1)' function.
-
-STRING_A: `CHARACTER'; scalar; INTENT(IN).
-
-STRING_B: `CHARACTER'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Returns `.TRUE.' if `STRING_A.GT.STRING_B', `.FALSE.' otherwise.
-STRING_A and STRING_B are interpreted as containing ASCII character
-codes. If either value contains a character not in the ASCII character
-set, the result is processor dependent.
-
- If the STRING_A and STRING_B are not the same length, the shorter is
-compared as if spaces were appended to it to form a value that has the
-same length as the longer.
-
- *Note LGe Intrinsic::, for information on the distinction between
-the `LGT' intrinsic and the `.GT.' operator.
-
-\1f
-File: g77.info, Node: Link Intrinsic (subroutine), Next: LLe Intrinsic, Prev: LGt Intrinsic, Up: Table of Intrinsic Functions
-
-Link Intrinsic (subroutine)
-...........................
-
- CALL Link(PATH1, PATH2, STATUS)
-
-PATH1: `CHARACTER'; scalar; INTENT(IN).
-
-PATH2: `CHARACTER'; scalar; INTENT(IN).
-
-STATUS: `INTEGER(KIND=1)'; OPTIONAL; scalar; INTENT(OUT).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Makes a (hard) link from file PATH1 to PATH2. A null character
-(`CHAR(0)') marks the end of the names in PATH1 and PATH2--otherwise,
-trailing blanks in PATH1 and PATH2 are ignored. If the STATUS argument
-is supplied, it contains 0 on success or a non-zero error code upon
-return. See `link(2)'.
-
- Some non-GNU implementations of Fortran provide this intrinsic as
-only a function, not as a subroutine, or do not support the (optional)
-STATUS argument.
-
- For information on other intrinsics with the same name: *Note Link
-Intrinsic (function)::.
-
-\1f
-File: g77.info, Node: LLe Intrinsic, Next: LLt Intrinsic, Prev: Link Intrinsic (subroutine), Up: Table of Intrinsic Functions
-
-LLe Intrinsic
-.............
-
- LLe(STRING_A, STRING_B)
-
-LLe: `LOGICAL(KIND=1)' function.
-
-STRING_A: `CHARACTER'; scalar; INTENT(IN).
-
-STRING_B: `CHARACTER'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Returns `.TRUE.' if `STRING_A.LE.STRING_B', `.FALSE.' otherwise.
-STRING_A and STRING_B are interpreted as containing ASCII character
-codes. If either value contains a character not in the ASCII character
-set, the result is processor dependent.
-
- If the STRING_A and STRING_B are not the same length, the shorter is
-compared as if spaces were appended to it to form a value that has the
-same length as the longer.
-
- *Note LGe Intrinsic::, for information on the distinction between
-the `LLE' intrinsic and the `.LE.' operator.
-
-\1f
-File: g77.info, Node: LLt Intrinsic, Next: LnBlnk Intrinsic, Prev: LLe Intrinsic, Up: Table of Intrinsic Functions
-
-LLt Intrinsic
-.............
-
- LLt(STRING_A, STRING_B)
-
-LLt: `LOGICAL(KIND=1)' function.
-
-STRING_A: `CHARACTER'; scalar; INTENT(IN).
-
-STRING_B: `CHARACTER'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Returns `.TRUE.' if `STRING_A.LT.STRING_B', `.FALSE.' otherwise.
-STRING_A and STRING_B are interpreted as containing ASCII character
-codes. If either value contains a character not in the ASCII character
-set, the result is processor dependent.
-
- If the STRING_A and STRING_B are not the same length, the shorter is
-compared as if spaces were appended to it to form a value that has the
-same length as the longer.
-
- *Note LGe Intrinsic::, for information on the distinction between
-the `LLT' intrinsic and the `.LT.' operator.
-
-\1f
-File: g77.info, Node: LnBlnk Intrinsic, Next: Loc Intrinsic, Prev: LLt Intrinsic, Up: Table of Intrinsic Functions
-
-LnBlnk Intrinsic
-................
-
- LnBlnk(STRING)
-
-LnBlnk: `INTEGER(KIND=1)' function.
-
-STRING: `CHARACTER'; scalar; INTENT(IN).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Returns the index of the last non-blank character in STRING.
-`LNBLNK' and `LEN_TRIM' are equivalent.
-
-\1f
-File: g77.info, Node: Loc Intrinsic, Next: Log Intrinsic, Prev: LnBlnk Intrinsic, Up: Table of Intrinsic Functions
-
-Loc Intrinsic
-.............
-
- Loc(ENTITY)
-
-Loc: `INTEGER(KIND=7)' function.
-
-ENTITY: Any type; cannot be a constant or expression.
-
-Intrinsic groups: `unix'.
-
-Description:
-
- The `LOC()' intrinsic works the same way as the `%LOC()' construct.
-*Note The `%LOC()' Construct: %LOC(), for more information.
-
-\1f
-File: g77.info, Node: Log Intrinsic, Next: Log10 Intrinsic, Prev: Loc Intrinsic, Up: Table of Intrinsic Functions
-
-Log Intrinsic
-.............
-
- Log(X)
-
-Log: `REAL' or `COMPLEX' function, the exact type being that of
-argument X.
-
-X: `REAL' or `COMPLEX'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Returns the natural logarithm of X, which must be greater than zero
-or, if type `COMPLEX', must not be zero.
-
- *Note Exp Intrinsic::, for the inverse of this function.
-
- *Note Log10 Intrinsic::, for the `common' (base-10) logarithm
-function.
-
-\1f
-File: g77.info, Node: Log10 Intrinsic, Next: Logical Intrinsic, Prev: Log Intrinsic, Up: Table of Intrinsic Functions
-
-Log10 Intrinsic
-...............
-
- Log10(X)
-
-Log10: `REAL' function, the `KIND=' value of the type being that of
-argument X.
-
-X: `REAL'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Returns the common logarithm (base 10) of X, which must be greater
-than zero.
-
- The inverse of this function is `10. ** LOG10(X)'.
-
- *Note Log Intrinsic::, for the natural logarithm function.
-
-\1f
-File: g77.info, Node: Logical Intrinsic, Next: Long Intrinsic, Prev: Log10 Intrinsic, Up: Table of Intrinsic Functions
-
-Logical Intrinsic
-.................
-
- This intrinsic is not yet implemented. The name is, however,
-reserved as an intrinsic. Use `EXTERNAL Logical' to use this name for
-an external procedure.
-
-\1f
-File: g77.info, Node: Long Intrinsic, Next: LShift Intrinsic, Prev: Logical Intrinsic, Up: Table of Intrinsic Functions
-
-Long Intrinsic
-..............
-
- Long(A)
-
-Long: `INTEGER(KIND=1)' function.
-
-A: `INTEGER(KIND=6)'; scalar; INTENT(IN).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Archaic form of `INT()' that is specific to one type for A. *Note
-Int Intrinsic::.
-
- The precise meaning of this intrinsic might change in a future
-version of the GNU Fortran language, as more is learned about how it is
-used.
-
-\1f
-File: g77.info, Node: LShift Intrinsic, Next: LStat Intrinsic (subroutine), Prev: Long Intrinsic, Up: Table of Intrinsic Functions
-
-LShift Intrinsic
-................
-
- LShift(I, SHIFT)
-
-LShift: `INTEGER' function, the `KIND=' value of the type being that of
-argument I.
-
-I: `INTEGER'; scalar; INTENT(IN).
-
-SHIFT: `INTEGER'; scalar; INTENT(IN).
-
-Intrinsic groups: `f2c'.
-
-Description:
-
- Returns I shifted to the left SHIFT bits.
-
- Although similar to the expression `I*(2**SHIFT)', there are
-important differences. For example, the sign of the result is not
-necessarily the same as the sign of I.
-
- Currently this intrinsic is defined assuming the underlying
-representation of I is as a two's-complement integer. It is unclear at
-this point whether that definition will apply when a different
-representation is involved.
-
- *Note LShift Intrinsic::, for the inverse of this function.
-
- *Note IShft Intrinsic::, for information on a more widely available
-left-shifting intrinsic that is also more precisely defined.
-
-\1f
-File: g77.info, Node: LStat Intrinsic (subroutine), Next: LStat Intrinsic (function), Prev: LShift Intrinsic, Up: Table of Intrinsic Functions
-
-LStat Intrinsic (subroutine)
-............................
-
- CALL LStat(FILE, SARRAY, STATUS)
-
-FILE: `CHARACTER'; scalar; INTENT(IN).
-
-SARRAY: `INTEGER(KIND=1)'; DIMENSION(13); INTENT(OUT).
-
-STATUS: `INTEGER(KIND=1)'; OPTIONAL; scalar; INTENT(OUT).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Obtains data about the given file FILE and places them in the array
-SARRAY. A null character (`CHAR(0)') marks the end of the name in
-FILE--otherwise, trailing blanks in FILE are ignored. If FILE is a
-symbolic link it returns data on the link itself, so the routine is
-available only on systems that support symbolic links. The values in
-this array are extracted from the `stat' structure as returned by
-`fstat(2)' q.v., as follows:
-
- 1. Device ID
-
- 2. Inode number
-
- 3. File mode
-
- 4. Number of links
-
- 5. Owner's uid
-
- 6. Owner's gid
-
- 7. ID of device containing directory entry for file (0 if not
- available)
-
- 8. File size (bytes)
-
- 9. Last access time
-
- 10. Last modification time
-
- 11. Last file status change time
-
- 12. Preferred I/O block size (-1 if not available)
-
- 13. Number of blocks allocated (-1 if not available)
-
- Not all these elements are relevant on all systems. If an element
-is not relevant, it is returned as 0.
-
- If the STATUS argument is supplied, it contains 0 on success or a
-non-zero error code upon return (`ENOSYS' if the system does not
-provide `lstat(2)').
-
- Some non-GNU implementations of Fortran provide this intrinsic as
-only a function, not as a subroutine, or do not support the (optional)
-STATUS argument.
-
- For information on other intrinsics with the same name: *Note LStat
-Intrinsic (function)::.
-
-\1f
-File: g77.info, Node: LStat Intrinsic (function), Next: LTime Intrinsic, Prev: LStat Intrinsic (subroutine), Up: Table of Intrinsic Functions
-
-LStat Intrinsic (function)
-..........................
-
- LStat(FILE, SARRAY)
-
-LStat: `INTEGER(KIND=1)' function.
-
-FILE: `CHARACTER'; scalar; INTENT(IN).
-
-SARRAY: `INTEGER(KIND=1)'; DIMENSION(13); INTENT(OUT).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Obtains data about the given file FILE and places them in the array
-SARRAY. A null character (`CHAR(0)') marks the end of the name in
-FILE--otherwise, trailing blanks in FILE are ignored. If FILE is a
-symbolic link it returns data on the link itself, so the routine is
-available only on systems that support symbolic links. The values in
-this array are extracted from the `stat' structure as returned by
-`fstat(2)' q.v., as follows:
-
- 1. Device ID
-
- 2. Inode number
-
- 3. File mode
-
- 4. Number of links
-
- 5. Owner's uid
-
- 6. Owner's gid
-
- 7. ID of device containing directory entry for file (0 if not
- available)
-
- 8. File size (bytes)
-
- 9. Last access time
-
- 10. Last modification time
-
- 11. Last file status change time
-
- 12. Preferred I/O block size (-1 if not available)
-
- 13. Number of blocks allocated (-1 if not available)
-
- Not all these elements are relevant on all systems. If an element
-is not relevant, it is returned as 0.
-
- Returns 0 on success or a non-zero error code (`ENOSYS' if the
-system does not provide `lstat(2)').
-
- For information on other intrinsics with the same name: *Note LStat
-Intrinsic (subroutine)::.
-
-\1f
-File: g77.info, Node: LTime Intrinsic, Next: MatMul Intrinsic, Prev: LStat Intrinsic (function), Up: Table of Intrinsic Functions
-
-LTime Intrinsic
-...............
-
- CALL LTime(STIME, TARRAY)
-
-STIME: `INTEGER(KIND=1)'; scalar; INTENT(IN).
-
-TARRAY: `INTEGER(KIND=1)'; DIMENSION(9); INTENT(OUT).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Given a system time value STIME, fills TARRAY with values extracted
-from it appropriate to the GMT time zone using `localtime(3)'.
-
- The array elements are as follows:
-
- 1. Seconds after the minute, range 0-59 or 0-61 to allow for leap
- seconds
-
- 2. Minutes after the hour, range 0-59
-
- 3. Hours past midnight, range 0-23
-
- 4. Day of month, range 0-31
-
- 5. Number of months since January, range 0-12
-
- 6. Years since 1900
-
- 7. Number of days since Sunday, range 0-6
-
- 8. Days since January 1
-
- 9. Daylight savings indicator: positive if daylight savings is in
- effect, zero if not, and negative if the information isn't
- available.
-
-\1f
-File: g77.info, Node: MatMul Intrinsic, Next: Max Intrinsic, Prev: LTime Intrinsic, Up: Table of Intrinsic Functions
-
-MatMul Intrinsic
-................
-
- This intrinsic is not yet implemented. The name is, however,
-reserved as an intrinsic. Use `EXTERNAL MatMul' to use this name for an
-external procedure.
-
-\1f
-File: g77.info, Node: Max Intrinsic, Next: Max0 Intrinsic, Prev: MatMul Intrinsic, Up: Table of Intrinsic Functions
-
-Max Intrinsic
-.............
-
- Max(A-1, A-2, ..., A-n)
-
-Max: `INTEGER' or `REAL' function, the exact type being the result of
-cross-promoting the types of all the arguments.
-
-A: `INTEGER' or `REAL'; at least two such arguments must be provided;
-scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Returns the argument with the largest value.
-
- *Note Min Intrinsic::, for the opposite function.
-
-\1f
-File: g77.info, Node: Max0 Intrinsic, Next: Max1 Intrinsic, Prev: Max Intrinsic, Up: Table of Intrinsic Functions
-
-Max0 Intrinsic
-..............
-
- Max0(A-1, A-2, ..., A-n)
-
-Max0: `INTEGER(KIND=1)' function.
-
-A: `INTEGER(KIND=1)'; at least two such arguments must be provided;
-scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Archaic form of `MAX()' that is specific to one type for A. *Note
-Max Intrinsic::.
-
-\1f
-File: g77.info, Node: Max1 Intrinsic, Next: MaxExponent Intrinsic, Prev: Max0 Intrinsic, Up: Table of Intrinsic Functions
-
-Max1 Intrinsic
-..............
-
- Max1(A-1, A-2, ..., A-n)
-
-Max1: `INTEGER(KIND=1)' function.
-
-A: `REAL(KIND=1)'; at least two such arguments must be provided;
-scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Archaic form of `MAX()' that is specific to one type for A and a
-different return type. *Note Max Intrinsic::.
-
-\1f
-File: g77.info, Node: MaxExponent Intrinsic, Next: MaxLoc Intrinsic, Prev: Max1 Intrinsic, Up: Table of Intrinsic Functions
-
-MaxExponent Intrinsic
-.....................
-
- This intrinsic is not yet implemented. The name is, however,
-reserved as an intrinsic. Use `EXTERNAL MaxExponent' to use this name
-for an external procedure.
-
-\1f
-File: g77.info, Node: MaxLoc Intrinsic, Next: MaxVal Intrinsic, Prev: MaxExponent Intrinsic, Up: Table of Intrinsic Functions
-
-MaxLoc Intrinsic
-................
-
- This intrinsic is not yet implemented. The name is, however,
-reserved as an intrinsic. Use `EXTERNAL MaxLoc' to use this name for an
-external procedure.
-
-\1f
-File: g77.info, Node: MaxVal Intrinsic, Next: MClock Intrinsic, Prev: MaxLoc Intrinsic, Up: Table of Intrinsic Functions
-
-MaxVal Intrinsic
-................
-
- This intrinsic is not yet implemented. The name is, however,
-reserved as an intrinsic. Use `EXTERNAL MaxVal' to use this name for an
-external procedure.
-
-\1f
-File: g77.info, Node: MClock Intrinsic, Next: MClock8 Intrinsic, Prev: MaxVal Intrinsic, Up: Table of Intrinsic Functions
-
-MClock Intrinsic
-................
-
- MClock()
-
-MClock: `INTEGER(KIND=1)' function.
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Returns the number of clock ticks since the start of the process.
-Supported on systems with `clock(3)' (q.v.).
-
- This intrinsic is not fully portable, such as to systems with 32-bit
-`INTEGER' types but supporting times wider than 32 bits. Therefore,
-the values returned by this intrinsic might be, or become, negative, or
-numerically less than previous values, during a single run of the
-compiled program.
-
- *Note MClock8 Intrinsic::, for information on a similar intrinsic
-that might be portable to more GNU Fortran implementations, though to
-fewer Fortran compilers.
-
- If the system does not support `clock(3)', -1 is returned.
-
-\1f
-File: g77.info, Node: MClock8 Intrinsic, Next: Merge Intrinsic, Prev: MClock Intrinsic, Up: Table of Intrinsic Functions
-
-MClock8 Intrinsic
-.................
-
- MClock8()
-
-MClock8: `INTEGER(KIND=2)' function.
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Returns the number of clock ticks since the start of the process.
-Supported on systems with `clock(3)' (q.v.).
-
- _Warning:_ this intrinsic does not increase the range of the timing
-values over that returned by `clock(3)'. On a system with a 32-bit
-`clock(3)', `MCLOCK8' will return a 32-bit value, even though converted
-to an `INTEGER(KIND=2)' value. That means overflows of the 32-bit
-value can still occur. Therefore, the values returned by this intrinsic
-might be, or become, negative, or numerically less than previous values,
-during a single run of the compiled program.
-
- No Fortran implementations other than GNU Fortran are known to
-support this intrinsic at the time of this writing. *Note MClock
-Intrinsic::, for information on a similar intrinsic that might be
-portable to more Fortran compilers, though to fewer GNU Fortran
-implementations.
-
- If the system does not support `clock(3)', -1 is returned.
-
-\1f
-File: g77.info, Node: Merge Intrinsic, Next: Min Intrinsic, Prev: MClock8 Intrinsic, Up: Table of Intrinsic Functions
-
-Merge Intrinsic
-...............
-
- This intrinsic is not yet implemented. The name is, however,
-reserved as an intrinsic. Use `EXTERNAL Merge' to use this name for an
-external procedure.
-
-\1f
-File: g77.info, Node: Min Intrinsic, Next: Min0 Intrinsic, Prev: Merge Intrinsic, Up: Table of Intrinsic Functions
-
-Min Intrinsic
-.............
-
- Min(A-1, A-2, ..., A-n)
-
-Min: `INTEGER' or `REAL' function, the exact type being the result of
-cross-promoting the types of all the arguments.
-
-A: `INTEGER' or `REAL'; at least two such arguments must be provided;
-scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Returns the argument with the smallest value.
-
- *Note Max Intrinsic::, for the opposite function.
-
-\1f
-File: g77.info, Node: Min0 Intrinsic, Next: Min1 Intrinsic, Prev: Min Intrinsic, Up: Table of Intrinsic Functions
-
-Min0 Intrinsic
-..............
-
- Min0(A-1, A-2, ..., A-n)
-
-Min0: `INTEGER(KIND=1)' function.
-
-A: `INTEGER(KIND=1)'; at least two such arguments must be provided;
-scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Archaic form of `MIN()' that is specific to one type for A. *Note
-Min Intrinsic::.
-
-\1f
-File: g77.info, Node: Min1 Intrinsic, Next: MinExponent Intrinsic, Prev: Min0 Intrinsic, Up: Table of Intrinsic Functions
-
-Min1 Intrinsic
-..............
-
- Min1(A-1, A-2, ..., A-n)
-
-Min1: `INTEGER(KIND=1)' function.
-
-A: `REAL(KIND=1)'; at least two such arguments must be provided;
-scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Archaic form of `MIN()' that is specific to one type for A and a
-different return type. *Note Min Intrinsic::.
-
-\1f
-File: g77.info, Node: MinExponent Intrinsic, Next: MinLoc Intrinsic, Prev: Min1 Intrinsic, Up: Table of Intrinsic Functions
-
-MinExponent Intrinsic
-.....................
-
- This intrinsic is not yet implemented. The name is, however,
-reserved as an intrinsic. Use `EXTERNAL MinExponent' to use this name
-for an external procedure.
-
-\1f
-File: g77.info, Node: MinLoc Intrinsic, Next: MinVal Intrinsic, Prev: MinExponent Intrinsic, Up: Table of Intrinsic Functions
-
-MinLoc Intrinsic
-................
-
- This intrinsic is not yet implemented. The name is, however,
-reserved as an intrinsic. Use `EXTERNAL MinLoc' to use this name for an
-external procedure.
-
-\1f
-File: g77.info, Node: MinVal Intrinsic, Next: Mod Intrinsic, Prev: MinLoc Intrinsic, Up: Table of Intrinsic Functions
-
-MinVal Intrinsic
-................
-
- This intrinsic is not yet implemented. The name is, however,
-reserved as an intrinsic. Use `EXTERNAL MinVal' to use this name for an
-external procedure.
-
-\1f
-File: g77.info, Node: Mod Intrinsic, Next: Modulo Intrinsic, Prev: MinVal Intrinsic, Up: Table of Intrinsic Functions
-
-Mod Intrinsic
-.............
-
- Mod(A, P)
-
-Mod: `INTEGER' or `REAL' function, the exact type being the result of
-cross-promoting the types of all the arguments.
-
-A: `INTEGER' or `REAL'; scalar; INTENT(IN).
-
-P: `INTEGER' or `REAL'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Returns remainder calculated as:
-
- A - (INT(A / P) * P)
-
- P must not be zero.
-
-\1f
-File: g77.info, Node: Modulo Intrinsic, Next: MvBits Intrinsic, Prev: Mod Intrinsic, Up: Table of Intrinsic Functions
-
-Modulo Intrinsic
-................
-
- This intrinsic is not yet implemented. The name is, however,
-reserved as an intrinsic. Use `EXTERNAL Modulo' to use this name for an
-external procedure.
-
-\1f
-File: g77.info, Node: MvBits Intrinsic, Next: Nearest Intrinsic, Prev: Modulo Intrinsic, Up: Table of Intrinsic Functions
-
-MvBits Intrinsic
-................
-
- CALL MvBits(FROM, FROMPOS, LEN, TO, TOPOS)
-
-FROM: `INTEGER'; scalar; INTENT(IN).
-
-FROMPOS: `INTEGER'; scalar; INTENT(IN).
-
-LEN: `INTEGER'; scalar; INTENT(IN).
-
-TO: `INTEGER' with same `KIND=' value as for FROM; scalar;
-INTENT(INOUT).
-
-TOPOS: `INTEGER'; scalar; INTENT(IN).
-
-Intrinsic groups: `mil', `f90', `vxt'.
-
-Description:
-
- Moves LEN bits from positions FROMPOS through `FROMPOS+LEN-1' of
-FROM to positions TOPOS through `FROMPOS+LEN-1' of TO. The portion of
-argument TO not affected by the movement of bits is unchanged.
-Arguments FROM and TO are permitted to be the same numeric storage
-unit. The values of `FROMPOS+LEN' and `TOPOS+LEN' must be less than or
-equal to `BIT_SIZE(FROM)'.
-
-\1f
-File: g77.info, Node: Nearest Intrinsic, Next: NInt Intrinsic, Prev: MvBits Intrinsic, Up: Table of Intrinsic Functions
-
-Nearest Intrinsic
-.................
-
- This intrinsic is not yet implemented. The name is, however,
-reserved as an intrinsic. Use `EXTERNAL Nearest' to use this name for
-an external procedure.
-
-\1f
-File: g77.info, Node: NInt Intrinsic, Next: Not Intrinsic, Prev: Nearest Intrinsic, Up: Table of Intrinsic Functions
-
-NInt Intrinsic
-..............
-
- NInt(A)
-
-NInt: `INTEGER(KIND=1)' function.
-
-A: `REAL'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Returns A with the fractional portion of its magnitude eliminated by
-rounding to the nearest whole number and with its sign preserved,
-converted to type `INTEGER(KIND=1)'.
-
- If A is type `COMPLEX', its real part is rounded and converted.
-
- A fractional portion exactly equal to `.5' is rounded to the whole
-number that is larger in magnitude. (Also called "Fortran round".)
-
- *Note Int Intrinsic::, for how to convert, truncate to whole number.
-
- *Note ANInt Intrinsic::, for how to round to nearest whole number
-without converting.
-
-\1f
-File: g77.info, Node: Not Intrinsic, Next: Or Intrinsic, Prev: NInt Intrinsic, Up: Table of Intrinsic Functions
-
-Not Intrinsic
-.............
-
- Not(I)
-
-Not: `INTEGER' function, the `KIND=' value of the type being that of
-argument I.
-
-I: `INTEGER'; scalar; INTENT(IN).
-
-Intrinsic groups: `mil', `f90', `vxt'.
-
-Description:
-
- Returns value resulting from boolean NOT of each bit in I.
-
-\1f
-File: g77.info, Node: Or Intrinsic, Next: Pack Intrinsic, Prev: Not Intrinsic, Up: Table of Intrinsic Functions
-
-Or Intrinsic
-............
-
- Or(I, J)
-
-Or: `INTEGER' or `LOGICAL' function, the exact type being the result of
-cross-promoting the types of all the arguments.
-
-I: `INTEGER' or `LOGICAL'; scalar; INTENT(IN).
-
-J: `INTEGER' or `LOGICAL'; scalar; INTENT(IN).
-
-Intrinsic groups: `f2c'.
-
-Description:
-
- Returns value resulting from boolean OR of pair of bits in each of I
-and J.
-
-\1f
-File: g77.info, Node: Pack Intrinsic, Next: PError Intrinsic, Prev: Or Intrinsic, Up: Table of Intrinsic Functions
-
-Pack Intrinsic
-..............
-
- This intrinsic is not yet implemented. The name is, however,
-reserved as an intrinsic. Use `EXTERNAL Pack' to use this name for an
-external procedure.
-
-\1f
-File: g77.info, Node: PError Intrinsic, Next: Precision Intrinsic, Prev: Pack Intrinsic, Up: Table of Intrinsic Functions
-
-PError Intrinsic
-................
-
- CALL PError(STRING)
-
-STRING: `CHARACTER'; scalar; INTENT(IN).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Prints (on the C `stderr' stream) a newline-terminated error message
-corresponding to the last system error. This is prefixed by STRING, a
-colon and a space. See `perror(3)'.
-
-\1f
-File: g77.info, Node: Precision Intrinsic, Next: Present Intrinsic, Prev: PError Intrinsic, Up: Table of Intrinsic Functions
-
-Precision Intrinsic
-...................
-
- This intrinsic is not yet implemented. The name is, however,
-reserved as an intrinsic. Use `EXTERNAL Precision' to use this name
-for an external procedure.
-
-\1f
-File: g77.info, Node: Present Intrinsic, Next: Product Intrinsic, Prev: Precision Intrinsic, Up: Table of Intrinsic Functions
-
-Present Intrinsic
-.................
-
- This intrinsic is not yet implemented. The name is, however,
-reserved as an intrinsic. Use `EXTERNAL Present' to use this name for
-an external procedure.
-
-\1f
-File: g77.info, Node: Product Intrinsic, Next: Radix Intrinsic, Prev: Present Intrinsic, Up: Table of Intrinsic Functions
-
-Product Intrinsic
-.................
-
- This intrinsic is not yet implemented. The name is, however,
-reserved as an intrinsic. Use `EXTERNAL Product' to use this name for
-an external procedure.
-
-\1f
-File: g77.info, Node: Radix Intrinsic, Next: Rand Intrinsic, Prev: Product Intrinsic, Up: Table of Intrinsic Functions
-
-Radix Intrinsic
-...............
-
- This intrinsic is not yet implemented. The name is, however,
-reserved as an intrinsic. Use `EXTERNAL Radix' to use this name for an
-external procedure.
-
-\1f
-File: g77.info, Node: Rand Intrinsic, Next: Random_Number Intrinsic, Prev: Radix Intrinsic, Up: Table of Intrinsic Functions
-
-Rand Intrinsic
-..............
-
- Rand(FLAG)
-
-Rand: `REAL(KIND=1)' function.
-
-FLAG: `INTEGER'; OPTIONAL; scalar; INTENT(IN).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Returns a uniform quasi-random number between 0 and 1. If FLAG is
-0, the next number in sequence is returned; if FLAG is 1, the generator
-is restarted by calling `srand(0)'; if FLAG has any other value, it is
-used as a new seed with `srand'.
-
- *Note SRand Intrinsic::.
-
- _Note:_ As typically implemented (by the routine of the same name in
-the C library), this random number generator is a very poor one, though
-the BSD and GNU libraries provide a much better implementation than the
-`traditional' one. On a different system you almost certainly want to
-use something better.
-
-\1f
-File: g77.info, Node: Random_Number Intrinsic, Next: Random_Seed Intrinsic, Prev: Rand Intrinsic, Up: Table of Intrinsic Functions
-
-Random_Number Intrinsic
-.......................
-
- This intrinsic is not yet implemented. The name is, however,
-reserved as an intrinsic. Use `EXTERNAL Random_Number' to use this
-name for an external procedure.
-
-\1f
-File: g77.info, Node: Random_Seed Intrinsic, Next: Range Intrinsic, Prev: Random_Number Intrinsic, Up: Table of Intrinsic Functions
-
-Random_Seed Intrinsic
-.....................
-
- This intrinsic is not yet implemented. The name is, however,
-reserved as an intrinsic. Use `EXTERNAL Random_Seed' to use this name
-for an external procedure.
-
-\1f
-File: g77.info, Node: Range Intrinsic, Next: Real Intrinsic, Prev: Random_Seed Intrinsic, Up: Table of Intrinsic Functions
-
-Range Intrinsic
-...............
-
- This intrinsic is not yet implemented. The name is, however,
-reserved as an intrinsic. Use `EXTERNAL Range' to use this name for an
-external procedure.
-