X-Git-Url: https://oss.titaniummirror.com/gitweb/?a=blobdiff_plain;f=gcc%2Ff%2Fg77.info-8;fp=gcc%2Ff%2Fg77.info-8;h=0000000000000000000000000000000000000000;hb=6fed43773c9b0ce596dca5686f37ac3fc0fa11c0;hp=b95e5c34cb90e4af82d15768a67420720d1f0ac3;hpb=27b11d56b743098deb193d510b337ba22dc52e5c;p=msp430-gcc.git diff --git a/gcc/f/g77.info-8 b/gcc/f/g77.info-8 deleted file mode 100644 index b95e5c34..00000000 --- a/gcc/f/g77.info-8 +++ /dev/null @@ -1,1995 +0,0 @@ -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 (). Inspired by -a first pass at translating `g77-0.5.16/f/DOC' that was contributed to -Craig by David Ronis (). - - -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)::. - - -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::. - - -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. - - -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. - - -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)) - - -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. - - -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. - - -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. - - -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. - - -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. - - -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::. - - -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::. - - -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)::. - - -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)::. - - -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::. - - -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::. - - -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::. - - -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::. - - -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::. - - -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. - - -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::. - - -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::. - - -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::. - - -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::. - - -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::. - - -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::. - - -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'. - - -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::. - - -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::. - - -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::. - - -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::. - - -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::. - - -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::. - - -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. - - -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. - - -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::. - - -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::. - - -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::. - - -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::. - - -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::. - - -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::. - - -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::. - - -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. - - -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)'. - - -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::. - - -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::. - - -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::. - - -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::. - - -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::. - - -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::. - - -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)::. - - -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. - - -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. - - -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. - - -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. - - -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)::. - - -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)::. - - -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. - - -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. - - -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. - - -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)::. - - -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)::. - - -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)::. - - -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)::. - - -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::. - - -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. - - -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. - - -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. - - -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)::. - - -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)::. - - -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. - - -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. - - -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)::. - - -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)::. - - -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)::. - - -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)::. - - -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'). - - -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. - - -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)::. - - -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)::. - - -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. - - -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. - - -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. - - -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. - - -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. - - -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. - - -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)::. -