+++ /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: ChMod Intrinsic (subroutine), Next: CLog Intrinsic, Prev: ChDir Intrinsic (subroutine), Up: Table of Intrinsic Functions
-
-ChMod Intrinsic (subroutine)
-............................
-
- CALL ChMod(NAME, MODE, STATUS)
-
-NAME: `CHARACTER'; scalar; INTENT(IN).
-
-MODE: `CHARACTER'; scalar; INTENT(IN).
-
-STATUS: `INTEGER(KIND=1)'; OPTIONAL; scalar; INTENT(OUT).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Changes the access mode of file NAME according to the specification
-MODE, which is given in the format of `chmod(1)'. A null character
-(`CHAR(0)') marks the end of the name in NAME--otherwise, trailing
-blanks in NAME are ignored. Currently, NAME must not contain the
-single quote character.
-
- If the STATUS argument is supplied, it contains 0 on success or a
-non-zero error code upon return.
-
- Note that this currently works by actually invoking `/bin/chmod' (or
-the `chmod' found when the library was configured) and so might fail in
-some circumstances and will, anyway, be slow.
-
- 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 ChMod
-Intrinsic (function)::.
-
-\1f
-File: g77.info, Node: CLog Intrinsic, Next: Cmplx Intrinsic, Prev: ChMod Intrinsic (subroutine), Up: Table of Intrinsic Functions
-
-CLog Intrinsic
-..............
-
- CLog(X)
-
-CLog: `COMPLEX(KIND=1)' function.
-
-X: `COMPLEX(KIND=1)'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Archaic form of `LOG()' that is specific to one type for X. *Note
-Log Intrinsic::.
-
-\1f
-File: g77.info, Node: Cmplx Intrinsic, Next: Complex Intrinsic, Prev: CLog Intrinsic, Up: Table of Intrinsic Functions
-
-Cmplx Intrinsic
-...............
-
- Cmplx(X, Y)
-
-Cmplx: `COMPLEX(KIND=1)' function.
-
-X: `INTEGER', `REAL', or `COMPLEX'; scalar; INTENT(IN).
-
-Y: `INTEGER' or `REAL'; OPTIONAL (must be omitted if X is `COMPLEX');
-scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- If X is not type `COMPLEX', constructs a value of type
-`COMPLEX(KIND=1)' from the real and imaginary values specified by X and
-Y, respectively. If Y is omitted, `0.' is assumed.
-
- If X is type `COMPLEX', converts it to type `COMPLEX(KIND=1)'.
-
- *Note Complex Intrinsic::, for information on easily constructing a
-`COMPLEX' value of arbitrary precision from `REAL' arguments.
-
-\1f
-File: g77.info, Node: Complex Intrinsic, Next: Conjg Intrinsic, Prev: Cmplx Intrinsic, Up: Table of Intrinsic Functions
-
-Complex Intrinsic
-.................
-
- Complex(REAL, IMAG)
-
-Complex: `COMPLEX' function, the exact type being the result of
-cross-promoting the types of all the arguments.
-
-REAL: `INTEGER' or `REAL'; scalar; INTENT(IN).
-
-IMAG: `INTEGER' or `REAL'; scalar; INTENT(IN).
-
-Intrinsic groups: `gnu'.
-
-Description:
-
- Returns a `COMPLEX' value that has `Real' and `Imag' as its real and
-imaginary parts, respectively.
-
- If REAL and IMAG are the same type, and that type is not `INTEGER',
-no data conversion is performed, and the type of the resulting value
-has the same kind value as the types of REAL and IMAG.
-
- If REAL and IMAG are not the same type, the usual type-promotion
-rules are applied to both, converting either or both to the appropriate
-`REAL' type. The type of the resulting value has the same kind value
-as the type to which both REAL and IMAG were converted, in this case.
-
- If REAL and IMAG are both `INTEGER', they are both converted to
-`REAL(KIND=1)', and the result of the `COMPLEX()' invocation is type
-`COMPLEX(KIND=1)'.
-
- _Note:_ The way to do this in standard Fortran 90 is too hairy to
-describe here, but it is important to note that `CMPLX(D1,D2)' returns
-a `COMPLEX(KIND=1)' result even if `D1' and `D2' are type
-`REAL(KIND=2)'. Hence the availability of `COMPLEX()' in GNU Fortran.
-
-\1f
-File: g77.info, Node: Conjg Intrinsic, Next: Cos Intrinsic, Prev: Complex Intrinsic, Up: Table of Intrinsic Functions
-
-Conjg Intrinsic
-...............
-
- Conjg(Z)
-
-Conjg: `COMPLEX' function, the `KIND=' value of the type being that of
-argument Z.
-
-Z: `COMPLEX'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Returns the complex conjugate:
-
- COMPLEX(REALPART(Z), -IMAGPART(Z))
-
-\1f
-File: g77.info, Node: Cos Intrinsic, Next: CosH Intrinsic, Prev: Conjg Intrinsic, Up: Table of Intrinsic Functions
-
-Cos Intrinsic
-.............
-
- Cos(X)
-
-Cos: `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 cosine of X, an angle measured in radians.
-
- *Note ACos Intrinsic::, for the inverse of this function.
-
-\1f
-File: g77.info, Node: CosH Intrinsic, Next: Count Intrinsic, Prev: Cos Intrinsic, Up: Table of Intrinsic Functions
-
-CosH Intrinsic
-..............
-
- CosH(X)
-
-CosH: `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 hyperbolic cosine of X.
-
-\1f
-File: g77.info, Node: Count Intrinsic, Next: CPU_Time Intrinsic, Prev: CosH Intrinsic, Up: Table of Intrinsic Functions
-
-Count Intrinsic
-...............
-
- This intrinsic is not yet implemented. The name is, however,
-reserved as an intrinsic. Use `EXTERNAL Count' to use this name for an
-external procedure.
-
-\1f
-File: g77.info, Node: CPU_Time Intrinsic, Next: CShift Intrinsic, Prev: Count Intrinsic, Up: Table of Intrinsic Functions
-
-CPU_Time Intrinsic
-..................
-
- CALL CPU_Time(SECONDS)
-
-SECONDS: `REAL'; scalar; INTENT(OUT).
-
-Intrinsic groups: `f90'.
-
-Description:
-
- Returns in SECONDS the current value of the system time. This
-implementation of the Fortran 95 intrinsic is just an alias for
-`second' *Note Second Intrinsic (subroutine)::.
-
- On some systems, the underlying timings are represented using types
-with sufficiently small limits that overflows (wraparounds) are
-possible, such as 32-bit types. 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.
-
-\1f
-File: g77.info, Node: CShift Intrinsic, Next: CSin Intrinsic, Prev: CPU_Time Intrinsic, Up: Table of Intrinsic Functions
-
-CShift Intrinsic
-................
-
- This intrinsic is not yet implemented. The name is, however,
-reserved as an intrinsic. Use `EXTERNAL CShift' to use this name for an
-external procedure.
-
-\1f
-File: g77.info, Node: CSin Intrinsic, Next: CSqRt Intrinsic, Prev: CShift Intrinsic, Up: Table of Intrinsic Functions
-
-CSin Intrinsic
-..............
-
- CSin(X)
-
-CSin: `COMPLEX(KIND=1)' function.
-
-X: `COMPLEX(KIND=1)'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Archaic form of `SIN()' that is specific to one type for X. *Note
-Sin Intrinsic::.
-
-\1f
-File: g77.info, Node: CSqRt Intrinsic, Next: CTime Intrinsic (subroutine), Prev: CSin Intrinsic, Up: Table of Intrinsic Functions
-
-CSqRt Intrinsic
-...............
-
- CSqRt(X)
-
-CSqRt: `COMPLEX(KIND=1)' function.
-
-X: `COMPLEX(KIND=1)'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Archaic form of `SQRT()' that is specific to one type for X. *Note
-SqRt Intrinsic::.
-
-\1f
-File: g77.info, Node: CTime Intrinsic (subroutine), Next: CTime Intrinsic (function), Prev: CSqRt Intrinsic, Up: Table of Intrinsic Functions
-
-CTime Intrinsic (subroutine)
-............................
-
- CALL CTime(STIME, RESULT)
-
-STIME: `INTEGER'; scalar; INTENT(IN).
-
-RESULT: `CHARACTER'; scalar; INTENT(OUT).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Converts STIME, a system time value, such as returned by `TIME8()',
-to a string of the form `Sat Aug 19 18:13:14 1995', and returns that
-string in RESULT.
-
- *Note Time8 Intrinsic::.
-
- Some non-GNU implementations of Fortran provide this intrinsic as
-only a function, not as a subroutine.
-
- For information on other intrinsics with the same name: *Note CTime
-Intrinsic (function)::.
-
-\1f
-File: g77.info, Node: CTime Intrinsic (function), Next: DAbs Intrinsic, Prev: CTime Intrinsic (subroutine), Up: Table of Intrinsic Functions
-
-CTime Intrinsic (function)
-..........................
-
- CTime(STIME)
-
-CTime: `CHARACTER*(*)' function.
-
-STIME: `INTEGER'; scalar; INTENT(IN).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Converts STIME, a system time value, such as returned by `TIME8()',
-to a string of the form `Sat Aug 19 18:13:14 1995', and returns that
-string as the function value.
-
- *Note Time8 Intrinsic::.
-
- For information on other intrinsics with the same name: *Note CTime
-Intrinsic (subroutine)::.
-
-\1f
-File: g77.info, Node: DAbs Intrinsic, Next: DACos Intrinsic, Prev: CTime Intrinsic (function), Up: Table of Intrinsic Functions
-
-DAbs Intrinsic
-..............
-
- DAbs(A)
-
-DAbs: `REAL(KIND=2)' function.
-
-A: `REAL(KIND=2)'; 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: DACos Intrinsic, Next: DASin Intrinsic, Prev: DAbs Intrinsic, Up: Table of Intrinsic Functions
-
-DACos Intrinsic
-...............
-
- DACos(X)
-
-DACos: `REAL(KIND=2)' function.
-
-X: `REAL(KIND=2)'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Archaic form of `ACOS()' that is specific to one type for X. *Note
-ACos Intrinsic::.
-
-\1f
-File: g77.info, Node: DASin Intrinsic, Next: DATan Intrinsic, Prev: DACos Intrinsic, Up: Table of Intrinsic Functions
-
-DASin Intrinsic
-...............
-
- DASin(X)
-
-DASin: `REAL(KIND=2)' function.
-
-X: `REAL(KIND=2)'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Archaic form of `ASIN()' that is specific to one type for X. *Note
-ASin Intrinsic::.
-
-\1f
-File: g77.info, Node: DATan Intrinsic, Next: DATan2 Intrinsic, Prev: DASin Intrinsic, Up: Table of Intrinsic Functions
-
-DATan Intrinsic
-...............
-
- DATan(X)
-
-DATan: `REAL(KIND=2)' function.
-
-X: `REAL(KIND=2)'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Archaic form of `ATAN()' that is specific to one type for X. *Note
-ATan Intrinsic::.
-
-\1f
-File: g77.info, Node: DATan2 Intrinsic, Next: Date_and_Time Intrinsic, Prev: DATan Intrinsic, Up: Table of Intrinsic Functions
-
-DATan2 Intrinsic
-................
-
- DATan2(Y, X)
-
-DATan2: `REAL(KIND=2)' function.
-
-Y: `REAL(KIND=2)'; scalar; INTENT(IN).
-
-X: `REAL(KIND=2)'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Archaic form of `ATAN2()' that is specific to one type for Y and X.
-*Note ATan2 Intrinsic::.
-
-\1f
-File: g77.info, Node: Date_and_Time Intrinsic, Next: DbesJ0 Intrinsic, Prev: DATan2 Intrinsic, Up: Table of Intrinsic Functions
-
-Date_and_Time Intrinsic
-.......................
-
- CALL Date_and_Time(DATE, TIME, ZONE, VALUES)
-
-DATE: `CHARACTER'; scalar; INTENT(OUT).
-
-TIME: `CHARACTER'; OPTIONAL; scalar; INTENT(OUT).
-
-ZONE: `CHARACTER'; OPTIONAL; scalar; INTENT(OUT).
-
-VALUES: `INTEGER(KIND=1)'; OPTIONAL; DIMENSION(8); INTENT(OUT).
-
-Intrinsic groups: `f90'.
-
-Description:
-
- Returns:
-DATE
- The date in the form CCYYMMDD: century, year, month and day;
-
-TIME
- The time in the form `HHMMSS.SS': hours, minutes, seconds and
- milliseconds;
-
-ZONE
- The difference between local time and UTC (GMT) in the form SHHMM:
- sign, hours and minutes, e.g. `-0500' (winter in New York);
-
-VALUES
- The year, month of the year, day of the month, time difference in
- minutes from UTC, hour of the day, minutes of the hour, seconds of
- the minute, and milliseconds of the second in successive values of
- the array.
-
- 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.
-
- On systems where a millisecond timer isn't available, the millisecond
-value is returned as zero.
-
-\1f
-File: g77.info, Node: DbesJ0 Intrinsic, Next: DbesJ1 Intrinsic, Prev: Date_and_Time Intrinsic, Up: Table of Intrinsic Functions
-
-DbesJ0 Intrinsic
-................
-
- DbesJ0(X)
-
-DbesJ0: `REAL(KIND=2)' function.
-
-X: `REAL(KIND=2)'; scalar; INTENT(IN).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Archaic form of `BESJ0()' that is specific to one type for X. *Note
-BesJ0 Intrinsic::.
-
-\1f
-File: g77.info, Node: DbesJ1 Intrinsic, Next: DbesJN Intrinsic, Prev: DbesJ0 Intrinsic, Up: Table of Intrinsic Functions
-
-DbesJ1 Intrinsic
-................
-
- DbesJ1(X)
-
-DbesJ1: `REAL(KIND=2)' function.
-
-X: `REAL(KIND=2)'; scalar; INTENT(IN).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Archaic form of `BESJ1()' that is specific to one type for X. *Note
-BesJ1 Intrinsic::.
-
-\1f
-File: g77.info, Node: DbesJN Intrinsic, Next: DbesY0 Intrinsic, Prev: DbesJ1 Intrinsic, Up: Table of Intrinsic Functions
-
-DbesJN Intrinsic
-................
-
- DbesJN(N, X)
-
-DbesJN: `REAL(KIND=2)' function.
-
-N: `INTEGER' not wider than the default kind; scalar; INTENT(IN).
-
-X: `REAL(KIND=2)'; scalar; INTENT(IN).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Archaic form of `BESJN()' that is specific to one type for X. *Note
-BesJN Intrinsic::.
-
-\1f
-File: g77.info, Node: DbesY0 Intrinsic, Next: DbesY1 Intrinsic, Prev: DbesJN Intrinsic, Up: Table of Intrinsic Functions
-
-DbesY0 Intrinsic
-................
-
- DbesY0(X)
-
-DbesY0: `REAL(KIND=2)' function.
-
-X: `REAL(KIND=2)'; scalar; INTENT(IN).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Archaic form of `BESY0()' that is specific to one type for X. *Note
-BesY0 Intrinsic::.
-
-\1f
-File: g77.info, Node: DbesY1 Intrinsic, Next: DbesYN Intrinsic, Prev: DbesY0 Intrinsic, Up: Table of Intrinsic Functions
-
-DbesY1 Intrinsic
-................
-
- DbesY1(X)
-
-DbesY1: `REAL(KIND=2)' function.
-
-X: `REAL(KIND=2)'; scalar; INTENT(IN).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Archaic form of `BESY1()' that is specific to one type for X. *Note
-BesY1 Intrinsic::.
-
-\1f
-File: g77.info, Node: DbesYN Intrinsic, Next: Dble Intrinsic, Prev: DbesY1 Intrinsic, Up: Table of Intrinsic Functions
-
-DbesYN Intrinsic
-................
-
- DbesYN(N, X)
-
-DbesYN: `REAL(KIND=2)' function.
-
-N: `INTEGER' not wider than the default kind; scalar; INTENT(IN).
-
-X: `REAL(KIND=2)'; scalar; INTENT(IN).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Archaic form of `BESYN()' that is specific to one type for X. *Note
-BesYN Intrinsic::.
-
-\1f
-File: g77.info, Node: Dble Intrinsic, Next: DCos Intrinsic, Prev: DbesYN Intrinsic, Up: Table of Intrinsic Functions
-
-Dble Intrinsic
-..............
-
- Dble(A)
-
-Dble: `REAL(KIND=2)' function.
-
-A: `INTEGER', `REAL', or `COMPLEX'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Returns A converted to double precision (`REAL(KIND=2)'). If A is
-`COMPLEX', the real part of A is used for the conversion and the
-imaginary part disregarded.
-
- *Note Sngl Intrinsic::, for the function that converts to single
-precision.
-
- *Note Int Intrinsic::, for the function that converts to `INTEGER'.
-
- *Note Complex Intrinsic::, for the function that converts to
-`COMPLEX'.
-
-\1f
-File: g77.info, Node: DCos Intrinsic, Next: DCosH Intrinsic, Prev: Dble Intrinsic, Up: Table of Intrinsic Functions
-
-DCos Intrinsic
-..............
-
- DCos(X)
-
-DCos: `REAL(KIND=2)' function.
-
-X: `REAL(KIND=2)'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Archaic form of `COS()' that is specific to one type for X. *Note
-Cos Intrinsic::.
-
-\1f
-File: g77.info, Node: DCosH Intrinsic, Next: DDiM Intrinsic, Prev: DCos Intrinsic, Up: Table of Intrinsic Functions
-
-DCosH Intrinsic
-...............
-
- DCosH(X)
-
-DCosH: `REAL(KIND=2)' function.
-
-X: `REAL(KIND=2)'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Archaic form of `COSH()' that is specific to one type for X. *Note
-CosH Intrinsic::.
-
-\1f
-File: g77.info, Node: DDiM Intrinsic, Next: DErF Intrinsic, Prev: DCosH Intrinsic, Up: Table of Intrinsic Functions
-
-DDiM Intrinsic
-..............
-
- DDiM(X, Y)
-
-DDiM: `REAL(KIND=2)' function.
-
-X: `REAL(KIND=2)'; scalar; INTENT(IN).
-
-Y: `REAL(KIND=2)'; 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: DErF Intrinsic, Next: DErFC Intrinsic, Prev: DDiM Intrinsic, Up: Table of Intrinsic Functions
-
-DErF Intrinsic
-..............
-
- DErF(X)
-
-DErF: `REAL(KIND=2)' function.
-
-X: `REAL(KIND=2)'; scalar; INTENT(IN).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Archaic form of `ERF()' that is specific to one type for X. *Note
-ErF Intrinsic::.
-
-\1f
-File: g77.info, Node: DErFC Intrinsic, Next: DExp Intrinsic, Prev: DErF Intrinsic, Up: Table of Intrinsic Functions
-
-DErFC Intrinsic
-...............
-
- DErFC(X)
-
-DErFC: `REAL(KIND=2)' function.
-
-X: `REAL(KIND=2)'; scalar; INTENT(IN).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Archaic form of `ERFC()' that is specific to one type for X. *Note
-ErFC Intrinsic::.
-
-\1f
-File: g77.info, Node: DExp Intrinsic, Next: Digits Intrinsic, Prev: DErFC Intrinsic, Up: Table of Intrinsic Functions
-
-DExp Intrinsic
-..............
-
- DExp(X)
-
-DExp: `REAL(KIND=2)' function.
-
-X: `REAL(KIND=2)'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Archaic form of `EXP()' that is specific to one type for X. *Note
-Exp Intrinsic::.
-
-\1f
-File: g77.info, Node: Digits Intrinsic, Next: DiM Intrinsic, Prev: DExp Intrinsic, Up: Table of Intrinsic Functions
-
-Digits Intrinsic
-................
-
- This intrinsic is not yet implemented. The name is, however,
-reserved as an intrinsic. Use `EXTERNAL Digits' to use this name for an
-external procedure.
-
-\1f
-File: g77.info, Node: DiM Intrinsic, Next: DInt Intrinsic, Prev: Digits Intrinsic, Up: Table of Intrinsic Functions
-
-DiM Intrinsic
-.............
-
- DiM(X, Y)
-
-DiM: `INTEGER' or `REAL' function, the exact type being the result of
-cross-promoting the types of all the arguments.
-
-X: `INTEGER' or `REAL'; scalar; INTENT(IN).
-
-Y: `INTEGER' or `REAL'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Returns `X-Y' if X is greater than Y; otherwise returns zero.
-
-\1f
-File: g77.info, Node: DInt Intrinsic, Next: DLog Intrinsic, Prev: DiM Intrinsic, Up: Table of Intrinsic Functions
-
-DInt Intrinsic
-..............
-
- DInt(A)
-
-DInt: `REAL(KIND=2)' function.
-
-A: `REAL(KIND=2)'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Archaic form of `AINT()' that is specific to one type for A. *Note
-AInt Intrinsic::.
-
-\1f
-File: g77.info, Node: DLog Intrinsic, Next: DLog10 Intrinsic, Prev: DInt Intrinsic, Up: Table of Intrinsic Functions
-
-DLog Intrinsic
-..............
-
- DLog(X)
-
-DLog: `REAL(KIND=2)' function.
-
-X: `REAL(KIND=2)'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Archaic form of `LOG()' that is specific to one type for X. *Note
-Log Intrinsic::.
-
-\1f
-File: g77.info, Node: DLog10 Intrinsic, Next: DMax1 Intrinsic, Prev: DLog Intrinsic, Up: Table of Intrinsic Functions
-
-DLog10 Intrinsic
-................
-
- DLog10(X)
-
-DLog10: `REAL(KIND=2)' function.
-
-X: `REAL(KIND=2)'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Archaic form of `LOG10()' that is specific to one type for X. *Note
-Log10 Intrinsic::.
-
-\1f
-File: g77.info, Node: DMax1 Intrinsic, Next: DMin1 Intrinsic, Prev: DLog10 Intrinsic, Up: Table of Intrinsic Functions
-
-DMax1 Intrinsic
-...............
-
- DMax1(A-1, A-2, ..., A-n)
-
-DMax1: `REAL(KIND=2)' function.
-
-A: `REAL(KIND=2)'; 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: DMin1 Intrinsic, Next: DMod Intrinsic, Prev: DMax1 Intrinsic, Up: Table of Intrinsic Functions
-
-DMin1 Intrinsic
-...............
-
- DMin1(A-1, A-2, ..., A-n)
-
-DMin1: `REAL(KIND=2)' function.
-
-A: `REAL(KIND=2)'; 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: DMod Intrinsic, Next: DNInt Intrinsic, Prev: DMin1 Intrinsic, Up: Table of Intrinsic Functions
-
-DMod Intrinsic
-..............
-
- DMod(A, P)
-
-DMod: `REAL(KIND=2)' function.
-
-A: `REAL(KIND=2)'; scalar; INTENT(IN).
-
-P: `REAL(KIND=2)'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Archaic form of `MOD()' that is specific to one type for A. *Note
-Mod Intrinsic::.
-
-\1f
-File: g77.info, Node: DNInt Intrinsic, Next: Dot_Product Intrinsic, Prev: DMod Intrinsic, Up: Table of Intrinsic Functions
-
-DNInt Intrinsic
-...............
-
- DNInt(A)
-
-DNInt: `REAL(KIND=2)' function.
-
-A: `REAL(KIND=2)'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Archaic form of `ANINT()' that is specific to one type for A. *Note
-ANInt Intrinsic::.
-
-\1f
-File: g77.info, Node: Dot_Product Intrinsic, Next: DProd Intrinsic, Prev: DNInt Intrinsic, Up: Table of Intrinsic Functions
-
-Dot_Product Intrinsic
-.....................
-
- This intrinsic is not yet implemented. The name is, however,
-reserved as an intrinsic. Use `EXTERNAL Dot_Product' to use this name
-for an external procedure.
-
-\1f
-File: g77.info, Node: DProd Intrinsic, Next: DSign Intrinsic, Prev: Dot_Product Intrinsic, Up: Table of Intrinsic Functions
-
-DProd Intrinsic
-...............
-
- DProd(X, Y)
-
-DProd: `REAL(KIND=2)' function.
-
-X: `REAL(KIND=1)'; scalar; INTENT(IN).
-
-Y: `REAL(KIND=1)'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Returns `DBLE(X)*DBLE(Y)'.
-
-\1f
-File: g77.info, Node: DSign Intrinsic, Next: DSin Intrinsic, Prev: DProd Intrinsic, Up: Table of Intrinsic Functions
-
-DSign Intrinsic
-...............
-
- DSign(A, B)
-
-DSign: `REAL(KIND=2)' function.
-
-A: `REAL(KIND=2)'; scalar; INTENT(IN).
-
-B: `REAL(KIND=2)'; 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: DSin Intrinsic, Next: DSinH Intrinsic, Prev: DSign Intrinsic, Up: Table of Intrinsic Functions
-
-DSin Intrinsic
-..............
-
- DSin(X)
-
-DSin: `REAL(KIND=2)' function.
-
-X: `REAL(KIND=2)'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Archaic form of `SIN()' that is specific to one type for X. *Note
-Sin Intrinsic::.
-
-\1f
-File: g77.info, Node: DSinH Intrinsic, Next: DSqRt Intrinsic, Prev: DSin Intrinsic, Up: Table of Intrinsic Functions
-
-DSinH Intrinsic
-...............
-
- DSinH(X)
-
-DSinH: `REAL(KIND=2)' function.
-
-X: `REAL(KIND=2)'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Archaic form of `SINH()' that is specific to one type for X. *Note
-SinH Intrinsic::.
-
-\1f
-File: g77.info, Node: DSqRt Intrinsic, Next: DTan Intrinsic, Prev: DSinH Intrinsic, Up: Table of Intrinsic Functions
-
-DSqRt Intrinsic
-...............
-
- DSqRt(X)
-
-DSqRt: `REAL(KIND=2)' function.
-
-X: `REAL(KIND=2)'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Archaic form of `SQRT()' that is specific to one type for X. *Note
-SqRt Intrinsic::.
-
-\1f
-File: g77.info, Node: DTan Intrinsic, Next: DTanH Intrinsic, Prev: DSqRt Intrinsic, Up: Table of Intrinsic Functions
-
-DTan Intrinsic
-..............
-
- DTan(X)
-
-DTan: `REAL(KIND=2)' function.
-
-X: `REAL(KIND=2)'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Archaic form of `TAN()' that is specific to one type for X. *Note
-Tan Intrinsic::.
-
-\1f
-File: g77.info, Node: DTanH Intrinsic, Next: DTime Intrinsic (subroutine), Prev: DTan Intrinsic, Up: Table of Intrinsic Functions
-
-DTanH Intrinsic
-...............
-
- DTanH(X)
-
-DTanH: `REAL(KIND=2)' function.
-
-X: `REAL(KIND=2)'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Archaic form of `TANH()' that is specific to one type for X. *Note
-TanH Intrinsic::.
-
-\1f
-File: g77.info, Node: DTime Intrinsic (subroutine), Next: EOShift Intrinsic, Prev: DTanH Intrinsic, Up: Table of Intrinsic Functions
-
-DTime Intrinsic (subroutine)
-............................
-
- CALL DTime(TARRAY, RESULT)
-
-TARRAY: `REAL(KIND=1)'; DIMENSION(2); INTENT(OUT).
-
-RESULT: `REAL(KIND=1)'; scalar; INTENT(OUT).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Initially, return the number of seconds of runtime since the start
-of the process's execution in RESULT, and the user and system
-components of this in `TARRAY(1)' and `TARRAY(2)' respectively. The
-value of RESULT is equal to `TARRAY(1) + TARRAY(2)'.
-
- Subsequent invocations of `DTIME()' set values based on accumulations
-since the previous invocation.
-
- On some systems, the underlying timings are represented using types
-with sufficiently small limits that overflows (wraparounds) are
-possible, such as 32-bit types. 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.
-
- Some non-GNU implementations of Fortran provide this intrinsic as
-only a function, not as a subroutine.
-
- For information on other intrinsics with the same name: *Note DTime
-Intrinsic (function)::.
-
-\1f
-File: g77.info, Node: EOShift Intrinsic, Next: Epsilon Intrinsic, Prev: DTime Intrinsic (subroutine), Up: Table of Intrinsic Functions
-
-EOShift Intrinsic
-.................
-
- This intrinsic is not yet implemented. The name is, however,
-reserved as an intrinsic. Use `EXTERNAL EOShift' to use this name for
-an external procedure.
-
-\1f
-File: g77.info, Node: Epsilon Intrinsic, Next: ErF Intrinsic, Prev: EOShift Intrinsic, Up: Table of Intrinsic Functions
-
-Epsilon Intrinsic
-.................
-
- This intrinsic is not yet implemented. The name is, however,
-reserved as an intrinsic. Use `EXTERNAL Epsilon' to use this name for
-an external procedure.
-
-\1f
-File: g77.info, Node: ErF Intrinsic, Next: ErFC Intrinsic, Prev: Epsilon Intrinsic, Up: Table of Intrinsic Functions
-
-ErF Intrinsic
-.............
-
- ErF(X)
-
-ErF: `REAL' function, the `KIND=' value of the type being that of
-argument X.
-
-X: `REAL'; scalar; INTENT(IN).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Returns the error function of X. See `erf(3m)', which provides the
-implementation.
-
-\1f
-File: g77.info, Node: ErFC Intrinsic, Next: ETime Intrinsic (subroutine), Prev: ErF Intrinsic, Up: Table of Intrinsic Functions
-
-ErFC Intrinsic
-..............
-
- ErFC(X)
-
-ErFC: `REAL' function, the `KIND=' value of the type being that of
-argument X.
-
-X: `REAL'; scalar; INTENT(IN).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Returns the complementary error function of X: `ERFC(R) = 1 -
-ERF(R)' (except that the result might be more accurate than explicitly
-evaluating that formulae would give). See `erfc(3m)', which provides
-the implementation.
-
-\1f
-File: g77.info, Node: ETime Intrinsic (subroutine), Next: ETime Intrinsic (function), Prev: ErFC Intrinsic, Up: Table of Intrinsic Functions
-
-ETime Intrinsic (subroutine)
-............................
-
- CALL ETime(TARRAY, RESULT)
-
-TARRAY: `REAL(KIND=1)'; DIMENSION(2); INTENT(OUT).
-
-RESULT: `REAL(KIND=1)'; scalar; INTENT(OUT).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Return the number of seconds of runtime since the start of the
-process's execution in RESULT, and the user and system components of
-this in `TARRAY(1)' and `TARRAY(2)' respectively. The value of RESULT
-is equal to `TARRAY(1) + TARRAY(2)'.
-
- On some systems, the underlying timings are represented using types
-with sufficiently small limits that overflows (wraparounds) are
-possible, such as 32-bit types. 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.
-
- Some non-GNU implementations of Fortran provide this intrinsic as
-only a function, not as a subroutine.
-
- For information on other intrinsics with the same name: *Note ETime
-Intrinsic (function)::.
-
-\1f
-File: g77.info, Node: ETime Intrinsic (function), Next: Exit Intrinsic, Prev: ETime Intrinsic (subroutine), Up: Table of Intrinsic Functions
-
-ETime Intrinsic (function)
-..........................
-
- ETime(TARRAY)
-
-ETime: `REAL(KIND=1)' function.
-
-TARRAY: `REAL(KIND=1)'; DIMENSION(2); INTENT(OUT).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Return the number of seconds of runtime since the start of the
-process's execution as the function value, and the user and system
-components of this in `TARRAY(1)' and `TARRAY(2)' respectively. The
-functions' value is equal to `TARRAY(1) + TARRAY(2)'.
-
- On some systems, the underlying timings are represented using types
-with sufficiently small limits that overflows (wraparounds) are
-possible, such as 32-bit types. 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.
-
- For information on other intrinsics with the same name: *Note ETime
-Intrinsic (subroutine)::.
-
-\1f
-File: g77.info, Node: Exit Intrinsic, Next: Exp Intrinsic, Prev: ETime Intrinsic (function), Up: Table of Intrinsic Functions
-
-Exit Intrinsic
-..............
-
- CALL Exit(STATUS)
-
-STATUS: `INTEGER' not wider than the default kind; OPTIONAL; scalar;
-INTENT(IN).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Exit the program with status STATUS after closing open Fortran I/O
-units and otherwise behaving as `exit(2)'. If STATUS is omitted the
-canonical `success' value will be returned to the system.
-
-\1f
-File: g77.info, Node: Exp Intrinsic, Next: Exponent Intrinsic, Prev: Exit Intrinsic, Up: Table of Intrinsic Functions
-
-Exp Intrinsic
-.............
-
- Exp(X)
-
-Exp: `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 `E**X', where E is approximately 2.7182818.
-
- *Note Log Intrinsic::, for the inverse of this function.
-
-\1f
-File: g77.info, Node: Exponent Intrinsic, Next: FDate Intrinsic (subroutine), Prev: Exp Intrinsic, Up: Table of Intrinsic Functions
-
-Exponent Intrinsic
-..................
-
- This intrinsic is not yet implemented. The name is, however,
-reserved as an intrinsic. Use `EXTERNAL Exponent' to use this name for
-an external procedure.
-
-\1f
-File: g77.info, Node: FDate Intrinsic (subroutine), Next: FDate Intrinsic (function), Prev: Exponent Intrinsic, Up: Table of Intrinsic Functions
-
-FDate Intrinsic (subroutine)
-............................
-
- CALL FDate(DATE)
-
-DATE: `CHARACTER'; scalar; INTENT(OUT).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Returns the current date (using the same format as `CTIME()') in
-DATE.
-
- Equivalent to:
-
- CALL CTIME(DATE, TIME8())
-
- 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.
-
- *Note CTime Intrinsic (subroutine)::.
-
- Some non-GNU implementations of Fortran provide this intrinsic as
-only a function, not as a subroutine.
-
- For information on other intrinsics with the same name: *Note FDate
-Intrinsic (function)::.
-
-\1f
-File: g77.info, Node: FDate Intrinsic (function), Next: FGet Intrinsic (subroutine), Prev: FDate Intrinsic (subroutine), Up: Table of Intrinsic Functions
-
-FDate Intrinsic (function)
-..........................
-
- FDate()
-
-FDate: `CHARACTER*(*)' function.
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Returns the current date (using the same format as `CTIME()').
-
- Equivalent to:
-
- CTIME(TIME8())
-
- 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.
-
- *Note CTime Intrinsic (function)::.
-
- For information on other intrinsics with the same name: *Note FDate
-Intrinsic (subroutine)::.
-
-\1f
-File: g77.info, Node: FGet Intrinsic (subroutine), Next: FGetC Intrinsic (subroutine), Prev: FDate Intrinsic (function), Up: Table of Intrinsic Functions
-
-FGet Intrinsic (subroutine)
-...........................
-
- CALL FGet(C, STATUS)
-
-C: `CHARACTER'; scalar; INTENT(OUT).
-
-STATUS: `INTEGER(KIND=1)'; OPTIONAL; scalar; INTENT(OUT).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Reads a single character into C in stream mode from unit 5
-(by-passing normal formatted output) using `getc(3)'. Returns in
-STATUS 0 on success, -1 on end-of-file, and the error code from
-`ferror(3)' otherwise.
-
- Stream I/O should not be mixed with normal record-oriented
-(formatted or unformatted) I/O on the same unit; the results are
-unpredictable.
-
- For information on other intrinsics with the same name: *Note FGet
-Intrinsic (function)::.
-
-\1f
-File: g77.info, Node: FGetC Intrinsic (subroutine), Next: Float Intrinsic, Prev: FGet Intrinsic (subroutine), Up: Table of Intrinsic Functions
-
-FGetC Intrinsic (subroutine)
-............................
-
- CALL FGetC(UNIT, C, STATUS)
-
-UNIT: `INTEGER'; scalar; INTENT(IN).
-
-C: `CHARACTER'; scalar; INTENT(OUT).
-
-STATUS: `INTEGER(KIND=1)'; OPTIONAL; scalar; INTENT(OUT).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Reads a single character into C in stream mode from unit UNIT
-(by-passing normal formatted output) using `getc(3)'. Returns in
-STATUS 0 on success, -1 on end-of-file, and the error code from
-`ferror(3)' otherwise.
-
- Stream I/O should not be mixed with normal record-oriented
-(formatted or unformatted) I/O on the same unit; the results are
-unpredictable.
-
- For information on other intrinsics with the same name: *Note FGetC
-Intrinsic (function)::.
-
-\1f
-File: g77.info, Node: Float Intrinsic, Next: Floor Intrinsic, Prev: FGetC Intrinsic (subroutine), Up: Table of Intrinsic Functions
-
-Float Intrinsic
-...............
-
- Float(A)
-
-Float: `REAL(KIND=1)' function.
-
-A: `INTEGER'; scalar; INTENT(IN).
-
-Intrinsic groups: (standard FORTRAN 77).
-
-Description:
-
- Archaic form of `REAL()' that is specific to one type for A. *Note
-Real Intrinsic::.
-
-\1f
-File: g77.info, Node: Floor Intrinsic, Next: Flush Intrinsic, Prev: Float Intrinsic, Up: Table of Intrinsic Functions
-
-Floor Intrinsic
-...............
-
- This intrinsic is not yet implemented. The name is, however,
-reserved as an intrinsic. Use `EXTERNAL Floor' to use this name for an
-external procedure.
-
-\1f
-File: g77.info, Node: Flush Intrinsic, Next: FNum Intrinsic, Prev: Floor Intrinsic, Up: Table of Intrinsic Functions
-
-Flush Intrinsic
-...............
-
- CALL Flush(UNIT)
-
-UNIT: `INTEGER'; OPTIONAL; scalar; INTENT(IN).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Flushes Fortran unit(s) currently open for output. Without the
-optional argument, all such units are flushed, otherwise just the unit
-specified by UNIT.
-
- Some non-GNU implementations of Fortran provide this intrinsic as a
-library procedure that might or might not support the (optional) UNIT
-argument.
-
-\1f
-File: g77.info, Node: FNum Intrinsic, Next: FPut Intrinsic (subroutine), Prev: Flush Intrinsic, Up: Table of Intrinsic Functions
-
-FNum Intrinsic
-..............
-
- FNum(UNIT)
-
-FNum: `INTEGER(KIND=1)' function.
-
-UNIT: `INTEGER'; scalar; INTENT(IN).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Returns the Unix file descriptor number corresponding to the open
-Fortran I/O unit UNIT. This could be passed to an interface to C I/O
-routines.
-
-\1f
-File: g77.info, Node: FPut Intrinsic (subroutine), Next: FPutC Intrinsic (subroutine), Prev: FNum Intrinsic, Up: Table of Intrinsic Functions
-
-FPut Intrinsic (subroutine)
-...........................
-
- CALL FPut(C, STATUS)
-
-C: `CHARACTER'; scalar; INTENT(IN).
-
-STATUS: `INTEGER(KIND=1)'; OPTIONAL; scalar; INTENT(OUT).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Writes the single character C in stream mode to unit 6 (by-passing
-normal formatted output) using `putc(3)'. Returns in STATUS 0 on
-success, the error code from `ferror(3)' otherwise.
-
- Stream I/O should not be mixed with normal record-oriented
-(formatted or unformatted) I/O on the same unit; the results are
-unpredictable.
-
- For information on other intrinsics with the same name: *Note FPut
-Intrinsic (function)::.
-
-\1f
-File: g77.info, Node: FPutC Intrinsic (subroutine), Next: Fraction Intrinsic, Prev: FPut Intrinsic (subroutine), Up: Table of Intrinsic Functions
-
-FPutC Intrinsic (subroutine)
-............................
-
- CALL FPutC(UNIT, C, STATUS)
-
-UNIT: `INTEGER'; scalar; INTENT(IN).
-
-C: `CHARACTER'; scalar; INTENT(IN).
-
-STATUS: `INTEGER(KIND=1)'; OPTIONAL; scalar; INTENT(OUT).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Writes the single character UNIT in stream mode to unit 6
-(by-passing normal formatted output) using `putc(3)'. Returns in C 0
-on success, the error code from `ferror(3)' otherwise.
-
- Stream I/O should not be mixed with normal record-oriented
-(formatted or unformatted) I/O on the same unit; the results are
-unpredictable.
-
- For information on other intrinsics with the same name: *Note FPutC
-Intrinsic (function)::.
-
-\1f
-File: g77.info, Node: Fraction Intrinsic, Next: FSeek Intrinsic, Prev: FPutC Intrinsic (subroutine), Up: Table of Intrinsic Functions
-
-Fraction Intrinsic
-..................
-
- This intrinsic is not yet implemented. The name is, however,
-reserved as an intrinsic. Use `EXTERNAL Fraction' to use this name for
-an external procedure.
-
-\1f
-File: g77.info, Node: FSeek Intrinsic, Next: FStat Intrinsic (subroutine), Prev: Fraction Intrinsic, Up: Table of Intrinsic Functions
-
-FSeek Intrinsic
-...............
-
- CALL FSeek(UNIT, OFFSET, WHENCE, ERRLAB)
-
-UNIT: `INTEGER'; scalar; INTENT(IN).
-
-OFFSET: `INTEGER'; scalar; INTENT(IN).
-
-WHENCE: `INTEGER'; scalar; INTENT(IN).
-
-ERRLAB: `*LABEL', where LABEL is the label of an executable statement;
-OPTIONAL.
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Attempts to move Fortran unit UNIT to the specified OFFSET: absolute
-offset if WHENCE=0; relative to the current offset if WHENCE=1;
-relative to the end of the file if WHENCE=2. It branches to label
-ERRLAB if UNIT is not open or if the call otherwise fails.
-
-\1f
-File: g77.info, Node: FStat Intrinsic (subroutine), Next: FStat Intrinsic (function), Prev: FSeek Intrinsic, Up: Table of Intrinsic Functions
-
-FStat Intrinsic (subroutine)
-............................
-
- CALL FStat(UNIT, SARRAY, STATUS)
-
-UNIT: `INTEGER'; 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 file open on Fortran I/O unit UNIT and places
-them in the array SARRAY. 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.
-
- 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 FStat
-Intrinsic (function)::.
-
-\1f
-File: g77.info, Node: FStat Intrinsic (function), Next: FTell Intrinsic (subroutine), Prev: FStat Intrinsic (subroutine), Up: Table of Intrinsic Functions
-
-FStat Intrinsic (function)
-..........................
-
- FStat(UNIT, SARRAY)
-
-FStat: `INTEGER(KIND=1)' function.
-
-UNIT: `INTEGER'; scalar; INTENT(IN).
-
-SARRAY: `INTEGER(KIND=1)'; DIMENSION(13); INTENT(OUT).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Obtains data about the file open on Fortran I/O unit UNIT and places
-them in the array SARRAY. 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.
-
- For information on other intrinsics with the same name: *Note FStat
-Intrinsic (subroutine)::.
-
-\1f
-File: g77.info, Node: FTell Intrinsic (subroutine), Next: FTell Intrinsic (function), Prev: FStat Intrinsic (function), Up: Table of Intrinsic Functions
-
-FTell Intrinsic (subroutine)
-............................
-
- CALL FTell(UNIT, OFFSET)
-
-UNIT: `INTEGER'; scalar; INTENT(IN).
-
-OFFSET: `INTEGER(KIND=1)'; scalar; INTENT(OUT).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Sets OFFSET to the current offset of Fortran unit UNIT (or to -1 if
-UNIT is not open).
-
- Some non-GNU implementations of Fortran provide this intrinsic as
-only a function, not as a subroutine.
-
- For information on other intrinsics with the same name: *Note FTell
-Intrinsic (function)::.
-
-\1f
-File: g77.info, Node: FTell Intrinsic (function), Next: GError Intrinsic, Prev: FTell Intrinsic (subroutine), Up: Table of Intrinsic Functions
-
-FTell Intrinsic (function)
-..........................
-
- FTell(UNIT)
-
-FTell: `INTEGER(KIND=1)' function.
-
-UNIT: `INTEGER'; scalar; INTENT(IN).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Returns the current offset of Fortran unit UNIT (or -1 if UNIT is
-not open).
-
- For information on other intrinsics with the same name: *Note FTell
-Intrinsic (subroutine)::.
-
-\1f
-File: g77.info, Node: GError Intrinsic, Next: GetArg Intrinsic, Prev: FTell Intrinsic (function), Up: Table of Intrinsic Functions
-
-GError Intrinsic
-................
-
- CALL GError(MESSAGE)
-
-MESSAGE: `CHARACTER'; scalar; INTENT(OUT).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Returns the system error message corresponding to the last system
-error (C `errno').
-
-\1f
-File: g77.info, Node: GetArg Intrinsic, Next: GetCWD Intrinsic (subroutine), Prev: GError Intrinsic, Up: Table of Intrinsic Functions
-
-GetArg Intrinsic
-................
-
- CALL GetArg(POS, VALUE)
-
-POS: `INTEGER' not wider than the default kind; scalar; INTENT(IN).
-
-VALUE: `CHARACTER'; scalar; INTENT(OUT).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Sets VALUE to the POS-th command-line argument (or to all blanks if
-there are fewer than VALUE command-line arguments); `CALL GETARG(0,
-VALUE)' sets VALUE to the name of the program (on systems that support
-this feature).
-
- *Note IArgC Intrinsic::, for information on how to get the number of
-arguments.
-
-\1f
-File: g77.info, Node: GetCWD Intrinsic (subroutine), Next: GetCWD Intrinsic (function), Prev: GetArg Intrinsic, Up: Table of Intrinsic Functions
-
-GetCWD Intrinsic (subroutine)
-.............................
-
- CALL GetCWD(NAME, STATUS)
-
-NAME: `CHARACTER'; scalar; INTENT(OUT).
-
-STATUS: `INTEGER(KIND=1)'; OPTIONAL; scalar; INTENT(OUT).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Places the current working directory in NAME. If the STATUS
-argument is supplied, it contains 0 success or a non-zero error code
-upon return (`ENOSYS' if the system does not provide `getcwd(3)' or
-`getwd(3)').
-
- 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 GetCWD
-Intrinsic (function)::.
-
-\1f
-File: g77.info, Node: GetCWD Intrinsic (function), Next: GetEnv Intrinsic, Prev: GetCWD Intrinsic (subroutine), Up: Table of Intrinsic Functions
-
-GetCWD Intrinsic (function)
-...........................
-
- GetCWD(NAME)
-
-GetCWD: `INTEGER(KIND=1)' function.
-
-NAME: `CHARACTER'; scalar; INTENT(OUT).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Places the current working directory in NAME. Returns 0 on success,
-otherwise a non-zero error code (`ENOSYS' if the system does not
-provide `getcwd(3)' or `getwd(3)').
-
- For information on other intrinsics with the same name: *Note GetCWD
-Intrinsic (subroutine)::.
-
-\1f
-File: g77.info, Node: GetEnv Intrinsic, Next: GetGId Intrinsic, Prev: GetCWD Intrinsic (function), Up: Table of Intrinsic Functions
-
-GetEnv Intrinsic
-................
-
- CALL GetEnv(NAME, VALUE)
-
-NAME: `CHARACTER'; scalar; INTENT(IN).
-
-VALUE: `CHARACTER'; scalar; INTENT(OUT).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Sets VALUE to the value of environment variable given by the value
-of NAME (`$name' in shell terms) or to blanks if `$name' has not been
-set. A null character (`CHAR(0)') marks the end of the name in
-NAME--otherwise, trailing blanks in NAME are ignored.
-
-\1f
-File: g77.info, Node: GetGId Intrinsic, Next: GetLog Intrinsic, Prev: GetEnv Intrinsic, Up: Table of Intrinsic Functions
-
-GetGId Intrinsic
-................
-
- GetGId()
-
-GetGId: `INTEGER(KIND=1)' function.
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Returns the group id for the current process.
-
-\1f
-File: g77.info, Node: GetLog Intrinsic, Next: GetPId Intrinsic, Prev: GetGId Intrinsic, Up: Table of Intrinsic Functions
-
-GetLog Intrinsic
-................
-
- CALL GetLog(LOGIN)
-
-LOGIN: `CHARACTER'; scalar; INTENT(OUT).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Returns the login name for the process in LOGIN.
-
- _Caution:_ On some systems, the `getlogin(3)' function, which this
-intrinsic calls at run time, is either not implemented or returns a
-null pointer. In the latter case, this intrinsic returns blanks in
-LOGIN.
-
-\1f
-File: g77.info, Node: GetPId Intrinsic, Next: GetUId Intrinsic, Prev: GetLog Intrinsic, Up: Table of Intrinsic Functions
-
-GetPId Intrinsic
-................
-
- GetPId()
-
-GetPId: `INTEGER(KIND=1)' function.
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Returns the process id for the current process.
-
-\1f
-File: g77.info, Node: GetUId Intrinsic, Next: GMTime Intrinsic, Prev: GetPId Intrinsic, Up: Table of Intrinsic Functions
-
-GetUId Intrinsic
-................
-
- GetUId()
-
-GetUId: `INTEGER(KIND=1)' function.
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Returns the user id for the current process.
-
-\1f
-File: g77.info, Node: GMTime Intrinsic, Next: HostNm Intrinsic (subroutine), Prev: GetUId Intrinsic, Up: Table of Intrinsic Functions
-
-GMTime Intrinsic
-................
-
- CALL GMTime(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 `gmtime(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: HostNm Intrinsic (subroutine), Next: HostNm Intrinsic (function), Prev: GMTime Intrinsic, Up: Table of Intrinsic Functions
-
-HostNm Intrinsic (subroutine)
-.............................
-
- CALL HostNm(NAME, STATUS)
-
-NAME: `CHARACTER'; scalar; INTENT(OUT).
-
-STATUS: `INTEGER(KIND=1)'; OPTIONAL; scalar; INTENT(OUT).
-
-Intrinsic groups: `unix'.
-
-Description:
-
- Fills NAME with the system's host name returned by `gethostname(2)'.
-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 `gethostname(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.
-
- 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 (function)::.
-