home *** CD-ROM | disk | FTP | other *** search
/ Big Green CD 8 / BGCD_8_Dev.iso / OPENSTEP / UNIX / GNU / gcc-2.7.2.3.1-I / info / g77.info-9 < prev    next >
Encoding:
GNU Info File  |  1997-09-12  |  50.1 KB  |  1,845 lines
  1. This is Info file g77.info, produced by Makeinfo version 1.68 from the
  2. input file g77.texi.
  3.  
  4.    This file explains how to use the GNU Fortran system.
  5.  
  6.    Published by the Free Software Foundation 59 Temple Place - Suite 330
  7. Boston, MA 02111-1307 USA
  8.  
  9.    Copyright (C) 1995-1997 Free Software Foundation, Inc.
  10.  
  11.    Permission is granted to make and distribute verbatim copies of this
  12. manual provided the copyright notice and this permission notice are
  13. preserved on all copies.
  14.  
  15.    Permission is granted to copy and distribute modified versions of
  16. this manual under the conditions for verbatim copying, provided also
  17. that the sections entitled "GNU General Public License," "Funding for
  18. Free Software," and "Protect Your Freedom--Fight `Look And Feel'" are
  19. included exactly as in the original, and provided that the entire
  20. resulting derived work is distributed under the terms of a permission
  21. notice identical to this one.
  22.  
  23.    Permission is granted to copy and distribute translations of this
  24. manual into another language, under the above conditions for modified
  25. versions, except that the sections entitled "GNU General Public
  26. License," "Funding for Free Software," and "Protect Your Freedom--Fight
  27. `Look And Feel'", and this permission notice, may be included in
  28. translations approved by the Free Software Foundation instead of in the
  29. original English.
  30.  
  31.    Contributed by James Craig Burley (<burley@gnu.ai.mit.edu>).
  32. Inspired by a first pass at translating `g77-0.5.16/f/DOC' that was
  33. contributed to Craig by David Ronis (<ronis@onsager.chem.mcgill.ca>).
  34.  
  35. INFO-DIR-SECTION Fortran Programming
  36. START-INFO-DIR-ENTRY
  37. * g77: (g77).               The GNU Fortran compilation system.
  38. END-INFO-DIR-ENTRY
  39.  
  40. 
  41. File: g77.info,  Node: IShftC Intrinsic,  Next: ISign Intrinsic,  Prev: IShft Intrinsic,  Up: Table of Intrinsic Functions
  42.  
  43. IShftC Intrinsic
  44. ................
  45.  
  46.      IShftC(I, SHIFT, SIZE)
  47.  
  48. IShftC: `INTEGER' function, the `KIND=' value of the type being that of
  49. argument I.
  50.  
  51. I: `INTEGER'; scalar; INTENT(IN).
  52.  
  53. SHIFT: `INTEGER'; scalar; INTENT(IN).
  54.  
  55. SIZE: `INTEGER'; scalar; INTENT(IN).
  56.  
  57. Intrinsic groups: `mil', `f90', `vxt'.
  58.  
  59. Description:
  60.  
  61.    The rightmost SIZE bits of the argument I are shifted circularly
  62. SHIFT places, i.e. the bits shifted out of one end are shifted into the
  63. opposite end.  No bits are lost.  The unshifted bits of the result are
  64. the same as the unshifted bits of I.  The  absolute value of the
  65. argument SHIFT must be less than or equal to SIZE.  The value of SIZE
  66. must be greater than or equal to one and less than or equal to
  67. `BIT_SIZE(I)'.
  68.  
  69.    *Note IShft Intrinsic:: for the logical shift equivalent.
  70.  
  71. 
  72. File: g77.info,  Node: ISign Intrinsic,  Next: ITime Intrinsic,  Prev: IShftC Intrinsic,  Up: Table of Intrinsic Functions
  73.  
  74. ISign Intrinsic
  75. ...............
  76.  
  77.      ISign(A, B)
  78.  
  79. ISign: `INTEGER(KIND=1)' function.
  80.  
  81. A: `INTEGER(KIND=1)'; scalar; INTENT(IN).
  82.  
  83. B: `INTEGER(KIND=1)'; scalar; INTENT(IN).
  84.  
  85. Intrinsic groups: (standard FORTRAN 77).
  86.  
  87. Description:
  88.  
  89.    Archaic form of `SIGN()' that is specific to one type for A and B.
  90. *Note Sign Intrinsic::.
  91.  
  92. 
  93. File: g77.info,  Node: ITime Intrinsic,  Next: Kill Intrinsic (subroutine),  Prev: ISign Intrinsic,  Up: Table of Intrinsic Functions
  94.  
  95. ITime Intrinsic
  96. ...............
  97.  
  98.      CALL ITime(TARRAY)
  99.  
  100. TARRAY: `INTEGER(KIND=1)'; DIMENSION(3); INTENT(OUT).
  101.  
  102. Intrinsic groups: `unix'.
  103.  
  104. Description:
  105.  
  106.    Returns the current local time hour, minutes, and seconds in elements
  107. 1, 2, and 3 of TARRAY, respectively.
  108.  
  109. 
  110. File: g77.info,  Node: Kill Intrinsic (subroutine),  Next: Kind Intrinsic,  Prev: ITime Intrinsic,  Up: Table of Intrinsic Functions
  111.  
  112. Kill Intrinsic (subroutine)
  113. ...........................
  114.  
  115.      CALL Kill(PID, SIGNAL, STATUS)
  116.  
  117. PID: `INTEGER'; scalar; INTENT(IN).
  118.  
  119. SIGNAL: `INTEGER'; scalar; INTENT(IN).
  120.  
  121. STATUS: `INTEGER(KIND=1)'; OPTIONAL; scalar; INTENT(OUT).
  122.  
  123. Intrinsic groups: `unix'.
  124.  
  125. Description:
  126.  
  127.    Sends the signal specified by SIGNAL to the process PID.  If the
  128. STATUS argument is supplied, it contains 0 on success or a non-zero
  129. error code upon return.  See `kill(2)'.
  130.  
  131.    Some non-GNU implementations of Fortran provide this intrinsic as
  132. only a function, not as a subroutine, or do not support the (optional)
  133. STATUS argument.
  134.  
  135.    For information on other intrinsics with the same name: *Note Kill
  136. Intrinsic (function)::.
  137.  
  138. 
  139. File: g77.info,  Node: Kind Intrinsic,  Next: LBound Intrinsic,  Prev: Kill Intrinsic (subroutine),  Up: Table of Intrinsic Functions
  140.  
  141. Kind Intrinsic
  142. ..............
  143.  
  144.    This intrinsic is not yet implemented.  The name is, however,
  145. reserved as an intrinsic.  Use `EXTERNAL Kind' to use this name for an
  146. external procedure.
  147.  
  148. 
  149. File: g77.info,  Node: LBound Intrinsic,  Next: Len Intrinsic,  Prev: Kind Intrinsic,  Up: Table of Intrinsic Functions
  150.  
  151. LBound Intrinsic
  152. ................
  153.  
  154.    This intrinsic is not yet implemented.  The name is, however,
  155. reserved as an intrinsic.  Use `EXTERNAL LBound' to use this name for an
  156. external procedure.
  157.  
  158. 
  159. File: g77.info,  Node: Len Intrinsic,  Next: Len_Trim Intrinsic,  Prev: LBound Intrinsic,  Up: Table of Intrinsic Functions
  160.  
  161. Len Intrinsic
  162. .............
  163.  
  164.      Len(STRING)
  165.  
  166. Len: `INTEGER(KIND=1)' function.
  167.  
  168. STRING: `CHARACTER'; scalar.
  169.  
  170. Intrinsic groups: (standard FORTRAN 77).
  171.  
  172. Description:
  173.  
  174.    Returns the length of STRING.
  175.  
  176.    If STRING is an array, the length of an element of STRING is
  177. returned.
  178.  
  179.    Note that STRING need not be defined when this intrinsic is invoked,
  180. since only the length, not the content, of STRING is needed.
  181.  
  182.    *Note Bit_Size Intrinsic::, for the function that determines the
  183. size of its argument in bits.
  184.  
  185. 
  186. File: g77.info,  Node: Len_Trim Intrinsic,  Next: LGe Intrinsic,  Prev: Len Intrinsic,  Up: Table of Intrinsic Functions
  187.  
  188. Len_Trim Intrinsic
  189. ..................
  190.  
  191.      Len_Trim(STRING)
  192.  
  193. Len_Trim: `INTEGER(KIND=1)' function.
  194.  
  195. STRING: `CHARACTER'; scalar; INTENT(IN).
  196.  
  197. Intrinsic groups: `f90'.
  198.  
  199. Description:
  200.  
  201.    Returns the index of the last non-blank character in STRING.
  202. `LNBLNK' and `LEN_TRIM' are equivalent.
  203.  
  204. 
  205. File: g77.info,  Node: LGe Intrinsic,  Next: LGt Intrinsic,  Prev: Len_Trim Intrinsic,  Up: Table of Intrinsic Functions
  206.  
  207. LGe Intrinsic
  208. .............
  209.  
  210.      LGe(STRING_A, STRING_B)
  211.  
  212. LGe: `LOGICAL(KIND=1)' function.
  213.  
  214. STRING_A: `CHARACTER'; scalar; INTENT(IN).
  215.  
  216. STRING_B: `CHARACTER'; scalar; INTENT(IN).
  217.  
  218. Intrinsic groups: (standard FORTRAN 77).
  219.  
  220. Description:
  221.  
  222.    Returns `.TRUE.' if `STRING_A.GE.STRING_B', `.FALSE.' otherwise.
  223. STRING_A and STRING_B are interpreted as containing ASCII character
  224. codes.  If either value contains a character not in the ASCII character
  225. set, the result is processor dependent.
  226.  
  227.    If the STRING_A and STRING_B are not the same length, the shorter is
  228. compared as if spaces were appended to it to form a value that has the
  229. same length as the longer.
  230.  
  231.    The lexical comparison intrinsics `LGe', `LGt', `LLe', and `LLt'
  232. differ from the corresponding intrinsic operators `.GE.', `.GT.',
  233. `.LE.', `.LT.'.  Because the ASCII collating sequence is assumed, the
  234. following expressions always return `.TRUE.':
  235.  
  236.      LGE ('0', ' ')
  237.      LGE ('A', '0')
  238.      LGE ('a', 'A')
  239.  
  240.    The following related expressions do *not* always return `.TRUE.',
  241. as they are not necessarily evaluated assuming the arguments use ASCII
  242. encoding:
  243.  
  244.      '0' .GE. ' '
  245.      'A' .GE. '0'
  246.      'a' .GE. 'A'
  247.  
  248.    The same difference exists between `LGt' and `.GT.'; between `LLe'
  249. and `.LE.'; and between `LLt' and `.LT.'.
  250.  
  251. 
  252. File: g77.info,  Node: LGt Intrinsic,  Next: Link Intrinsic (subroutine),  Prev: LGe Intrinsic,  Up: Table of Intrinsic Functions
  253.  
  254. LGt Intrinsic
  255. .............
  256.  
  257.      LGt(STRING_A, STRING_B)
  258.  
  259. LGt: `LOGICAL(KIND=1)' function.
  260.  
  261. STRING_A: `CHARACTER'; scalar; INTENT(IN).
  262.  
  263. STRING_B: `CHARACTER'; scalar; INTENT(IN).
  264.  
  265. Intrinsic groups: (standard FORTRAN 77).
  266.  
  267. Description:
  268.  
  269.    Returns `.TRUE.' if `STRING_A.GT.STRING_B', `.FALSE.' otherwise.
  270. STRING_A and STRING_B are interpreted as containing ASCII character
  271. codes.  If either value contains a character not in the ASCII character
  272. set, the result is processor dependent.
  273.  
  274.    If the STRING_A and STRING_B are not the same length, the shorter is
  275. compared as if spaces were appended to it to form a value that has the
  276. same length as the longer.
  277.  
  278.    *Note LGe Intrinsic::, for information on the distinction between
  279. the `LGT' intrinsic and the `.GT.'  operator.
  280.  
  281. 
  282. File: g77.info,  Node: Link Intrinsic (subroutine),  Next: LLe Intrinsic,  Prev: LGt Intrinsic,  Up: Table of Intrinsic Functions
  283.  
  284. Link Intrinsic (subroutine)
  285. ...........................
  286.  
  287.      CALL Link(PATH1, PATH2, STATUS)
  288.  
  289. PATH1: `CHARACTER'; scalar; INTENT(IN).
  290.  
  291. PATH2: `CHARACTER'; scalar; INTENT(IN).
  292.  
  293. STATUS: `INTEGER(KIND=1)'; OPTIONAL; scalar; INTENT(OUT).
  294.  
  295. Intrinsic groups: `unix'.
  296.  
  297. Description:
  298.  
  299.    Makes a (hard) link from file PATH1 to PATH2.  A null character
  300. (`CHAR(0)') marks the end of the names in PATH1 and PATH2--otherwise,
  301. trailing blanks in PATH1 and PATH2 are ignored.  If the STATUS argument
  302. is supplied, it contains 0 on success or a non-zero error code upon
  303. return.  See `link(2)'.
  304.  
  305.    Some non-GNU implementations of Fortran provide this intrinsic as
  306. only a function, not as a subroutine, or do not support the (optional)
  307. STATUS argument.
  308.  
  309.    For information on other intrinsics with the same name: *Note Link
  310. Intrinsic (function)::.
  311.  
  312. 
  313. File: g77.info,  Node: LLe Intrinsic,  Next: LLt Intrinsic,  Prev: Link Intrinsic (subroutine),  Up: Table of Intrinsic Functions
  314.  
  315. LLe Intrinsic
  316. .............
  317.  
  318.      LLe(STRING_A, STRING_B)
  319.  
  320. LLe: `LOGICAL(KIND=1)' function.
  321.  
  322. STRING_A: `CHARACTER'; scalar; INTENT(IN).
  323.  
  324. STRING_B: `CHARACTER'; scalar; INTENT(IN).
  325.  
  326. Intrinsic groups: (standard FORTRAN 77).
  327.  
  328. Description:
  329.  
  330.    Returns `.TRUE.' if `STRING_A.LE.STRING_B', `.FALSE.' otherwise.
  331. STRING_A and STRING_B are interpreted as containing ASCII character
  332. codes.  If either value contains a character not in the ASCII character
  333. set, the result is processor dependent.
  334.  
  335.    If the STRING_A and STRING_B are not the same length, the shorter is
  336. compared as if spaces were appended to it to form a value that has the
  337. same length as the longer.
  338.  
  339.    *Note LGe Intrinsic::, for information on the distinction between
  340. the `LLE' intrinsic and the `.LE.'  operator.
  341.  
  342. 
  343. File: g77.info,  Node: LLt Intrinsic,  Next: LnBlnk Intrinsic,  Prev: LLe Intrinsic,  Up: Table of Intrinsic Functions
  344.  
  345. LLt Intrinsic
  346. .............
  347.  
  348.      LLt(STRING_A, STRING_B)
  349.  
  350. LLt: `LOGICAL(KIND=1)' function.
  351.  
  352. STRING_A: `CHARACTER'; scalar; INTENT(IN).
  353.  
  354. STRING_B: `CHARACTER'; scalar; INTENT(IN).
  355.  
  356. Intrinsic groups: (standard FORTRAN 77).
  357.  
  358. Description:
  359.  
  360.    Returns `.TRUE.' if `STRING_A.LT.STRING_B', `.FALSE.' otherwise.
  361. STRING_A and STRING_B are interpreted as containing ASCII character
  362. codes.  If either value contains a character not in the ASCII character
  363. set, the result is processor dependent.
  364.  
  365.    If the STRING_A and STRING_B are not the same length, the shorter is
  366. compared as if spaces were appended to it to form a value that has the
  367. same length as the longer.
  368.  
  369.    *Note LGe Intrinsic::, for information on the distinction between
  370. the `LLT' intrinsic and the `.LT.'  operator.
  371.  
  372. 
  373. File: g77.info,  Node: LnBlnk Intrinsic,  Next: Loc Intrinsic,  Prev: LLt Intrinsic,  Up: Table of Intrinsic Functions
  374.  
  375. LnBlnk Intrinsic
  376. ................
  377.  
  378.      LnBlnk(STRING)
  379.  
  380. LnBlnk: `INTEGER(KIND=1)' function.
  381.  
  382. STRING: `CHARACTER'; scalar; INTENT(IN).
  383.  
  384. Intrinsic groups: `unix'.
  385.  
  386. Description:
  387.  
  388.    Returns the index of the last non-blank character in STRING.
  389. `LNBLNK' and `LEN_TRIM' are equivalent.
  390.  
  391. 
  392. File: g77.info,  Node: Loc Intrinsic,  Next: Log Intrinsic,  Prev: LnBlnk Intrinsic,  Up: Table of Intrinsic Functions
  393.  
  394. Loc Intrinsic
  395. .............
  396.  
  397.      Loc(ENTITY)
  398.  
  399. Loc: `INTEGER(KIND=0)' function.
  400.  
  401. ENTITY: Any type; cannot be a constant or expression.
  402.  
  403. Intrinsic groups: `unix'.
  404.  
  405. Description:
  406.  
  407.    The `LOC()' intrinsic works the same way as the `%LOC()' construct.
  408. *Note The `%LOC()' Construct: %LOC(), for more information.
  409.  
  410. 
  411. File: g77.info,  Node: Log Intrinsic,  Next: Log10 Intrinsic,  Prev: Loc Intrinsic,  Up: Table of Intrinsic Functions
  412.  
  413. Log Intrinsic
  414. .............
  415.  
  416.      Log(X)
  417.  
  418. Log: `REAL' or `COMPLEX' function, the exact type being that of
  419. argument X.
  420.  
  421. X: `REAL' or `COMPLEX'; scalar; INTENT(IN).
  422.  
  423. Intrinsic groups: (standard FORTRAN 77).
  424.  
  425. Description:
  426.  
  427.    Returns the natural logarithm of X, which must be greater than zero
  428. or, if type `COMPLEX', must not be zero.
  429.  
  430.    *Note Exp Intrinsic::, for the inverse of this function.
  431.  
  432.    *Note Log10 Intrinsic::, for the base-10 logarithm function.
  433.  
  434. 
  435. File: g77.info,  Node: Log10 Intrinsic,  Next: Logical Intrinsic,  Prev: Log Intrinsic,  Up: Table of Intrinsic Functions
  436.  
  437. Log10 Intrinsic
  438. ...............
  439.  
  440.      Log10(X)
  441.  
  442. Log10: `REAL' function, the `KIND=' value of the type being that of
  443. argument X.
  444.  
  445. X: `REAL'; scalar; INTENT(IN).
  446.  
  447. Intrinsic groups: (standard FORTRAN 77).
  448.  
  449. Description:
  450.  
  451.    Returns the natural logarithm of X, which must be greater than zero
  452. or, if type `COMPLEX', must not be zero.
  453.  
  454.    The inverse of this function is `10. ** LOG10(X)'.
  455.  
  456.    *Note Log Intrinsic::, for the natural logarithm function.
  457.  
  458. 
  459. File: g77.info,  Node: Logical Intrinsic,  Next: Long Intrinsic,  Prev: Log10 Intrinsic,  Up: Table of Intrinsic Functions
  460.  
  461. Logical Intrinsic
  462. .................
  463.  
  464.    This intrinsic is not yet implemented.  The name is, however,
  465. reserved as an intrinsic.  Use `EXTERNAL Logical' to use this name for
  466. an external procedure.
  467.  
  468. 
  469. File: g77.info,  Node: Long Intrinsic,  Next: LShift Intrinsic,  Prev: Logical Intrinsic,  Up: Table of Intrinsic Functions
  470.  
  471. Long Intrinsic
  472. ..............
  473.  
  474.      Long(A)
  475.  
  476. Long: `INTEGER(KIND=1)' function.
  477.  
  478. A: `INTEGER(KIND=6)'; scalar; INTENT(IN).
  479.  
  480. Intrinsic groups: `unix'.
  481.  
  482. Description:
  483.  
  484.    Archaic form of `INT()' that is specific to one type for A.  *Note
  485. Int Intrinsic::.
  486.  
  487.    The precise meaning of this intrinsic might change in a future
  488. version of the GNU Fortran language, as more is learned about how it is
  489. used.
  490.  
  491. 
  492. File: g77.info,  Node: LShift Intrinsic,  Next: LStat Intrinsic (subroutine),  Prev: Long Intrinsic,  Up: Table of Intrinsic Functions
  493.  
  494. LShift Intrinsic
  495. ................
  496.  
  497.      LShift(I, SHIFT)
  498.  
  499. LShift: `INTEGER' function, the `KIND=' value of the type being that of
  500. argument I.
  501.  
  502. I: `INTEGER'; scalar; INTENT(IN).
  503.  
  504. SHIFT: `INTEGER'; scalar; INTENT(IN).
  505.  
  506. Intrinsic groups: `f2c'.
  507.  
  508. Description:
  509.  
  510.    Returns I shifted to the left SHIFT bits.
  511.  
  512.    Although similar to the expression `I*(2**SHIFT)', there are
  513. important differences.  For example, the sign of the result is not
  514. necessarily the same as the sign of I.
  515.  
  516.    Currently this intrinsic is defined assuming the underlying
  517. representation of I is as a two's-complement integer.  It is unclear at
  518. this point whether that definition will apply when a different
  519. representation is involved.
  520.  
  521.    *Note LShift Intrinsic::, for the inverse of this function.
  522.  
  523.    *Note IShft Intrinsic::, for information on a more widely available
  524. left-shifting intrinsic that is also more precisely defined.
  525.  
  526. 
  527. File: g77.info,  Node: LStat Intrinsic (subroutine),  Next: LStat Intrinsic (function),  Prev: LShift Intrinsic,  Up: Table of Intrinsic Functions
  528.  
  529. LStat Intrinsic (subroutine)
  530. ............................
  531.  
  532.      CALL LStat(FILE, SARRAY, STATUS)
  533.  
  534. FILE: `CHARACTER'; scalar; INTENT(IN).
  535.  
  536. SARRAY: `INTEGER(KIND=1)'; DIMENSION(13); INTENT(OUT).
  537.  
  538. STATUS: `INTEGER(KIND=1)'; OPTIONAL; scalar; INTENT(OUT).
  539.  
  540. Intrinsic groups: `unix'.
  541.  
  542. Description:
  543.  
  544.    Obtains data about the given file FILE and places them in the array
  545. SARRAY.  A null character (`CHAR(0)') marks the end of the name in
  546. FILE--otherwise, trailing blanks in FILE are ignored.  If FILE is a
  547. symbolic link it returns data on the link itself, so the routine is
  548. available only on systems that support symbolic links.  The values in
  549. this array are extracted from the `stat' structure as returned by
  550. `fstat(2)' q.v., as follows:
  551.  
  552.   1. File mode
  553.  
  554.   2. Inode number
  555.  
  556.   3. ID of device containing directory entry for file
  557.  
  558.   4. Device id (if relevant)
  559.  
  560.   5. Number of links
  561.  
  562.   6. Owner's uid
  563.  
  564.   7. Owner's gid
  565.  
  566.   8. File size (bytes)
  567.  
  568.   9. Last access time
  569.  
  570.  10. Last modification time
  571.  
  572.  11. Last file status change time
  573.  
  574.  12. Preferred I/O block size
  575.  
  576.  13. Number of blocks allocated
  577.  
  578.    Not all these elements are relevant on all systems.  If an element
  579. is not relevant, it is returned as 0.
  580.  
  581.    If the STATUS argument is supplied, it contains 0 on success or a
  582. non-zero error code upon return (`ENOSYS' if the system does not
  583. provide `lstat(2)').
  584.  
  585.    Some non-GNU implementations of Fortran provide this intrinsic as
  586. only a function, not as a subroutine, or do not support the (optional)
  587. STATUS argument.
  588.  
  589.    For information on other intrinsics with the same name: *Note LStat
  590. Intrinsic (function)::.
  591.  
  592. 
  593. File: g77.info,  Node: LStat Intrinsic (function),  Next: LTime Intrinsic,  Prev: LStat Intrinsic (subroutine),  Up: Table of Intrinsic Functions
  594.  
  595. LStat Intrinsic (function)
  596. ..........................
  597.  
  598.      LStat(FILE, SARRAY)
  599.  
  600. LStat: `INTEGER(KIND=1)' function.
  601.  
  602. FILE: `CHARACTER'; scalar; INTENT(IN).
  603.  
  604. SARRAY: `INTEGER(KIND=1)'; DIMENSION(13); INTENT(OUT).
  605.  
  606. Intrinsic groups: `unix'.
  607.  
  608. Description:
  609.  
  610.    Obtains data about the given file FILE and places them in the array
  611. SARRAY.  A null character (`CHAR(0)') marks the end of the name in
  612. FILE--otherwise, trailing blanks in FILE are ignored.  If FILE is a
  613. symbolic link it returns data on the link itself, so the routine is
  614. available only on systems that support symbolic links.  The values in
  615. this array are extracted from the `stat' structure as returned by
  616. `fstat(2)' q.v., as follows:
  617.  
  618.   1. File mode
  619.  
  620.   2. Inode number
  621.  
  622.   3. ID of device containing directory entry for file
  623.  
  624.   4. Device id (if relevant)
  625.  
  626.   5. Number of links
  627.  
  628.   6. Owner's uid
  629.  
  630.   7. Owner's gid
  631.  
  632.   8. File size (bytes)
  633.  
  634.   9. Last access time
  635.  
  636.  10. Last modification time
  637.  
  638.  11. Last file status change time
  639.  
  640.  12. Preferred I/O block size
  641.  
  642.  13. Number of blocks allocated
  643.  
  644.    Not all these elements are relevant on all systems.  If an element
  645. is not relevant, it is returned as 0.
  646.  
  647.    Returns 0 on success or a non-zero error code (`ENOSYS' if the
  648. system does not provide `lstat(2)').
  649.  
  650.    For information on other intrinsics with the same name: *Note LStat
  651. Intrinsic (subroutine)::.
  652.  
  653. 
  654. File: g77.info,  Node: LTime Intrinsic,  Next: MatMul Intrinsic,  Prev: LStat Intrinsic (function),  Up: Table of Intrinsic Functions
  655.  
  656. LTime Intrinsic
  657. ...............
  658.  
  659.      CALL LTime(STIME, TARRAY)
  660.  
  661. STIME: `INTEGER(KIND=1)'; scalar; INTENT(IN).
  662.  
  663. TARRAY: `INTEGER(KIND=1)'; DIMENSION(9); INTENT(OUT).
  664.  
  665. Intrinsic groups: `unix'.
  666.  
  667. Description:
  668.  
  669.    Given a system time value STIME, fills TARRAY with values extracted
  670. from it appropriate to the GMT time zone using `localtime(3)'.
  671.  
  672.    The array elements are as follows:
  673.  
  674.   1. Seconds after the minute, range 0-59 or 0-61 to allow for leap
  675.      seconds
  676.  
  677.   2. Minutes after the hour, range 0-59
  678.  
  679.   3. Hours past midnight, range 0-23
  680.  
  681.   4. Day of month, range 0-31
  682.  
  683.   5. Number of months since January, range 0-12
  684.  
  685.   6. Years since 1900
  686.  
  687.   7. Number of days since Sunday, range 0-6
  688.  
  689.   8. Days since January 1
  690.  
  691.   9. Daylight savings indicator: positive if daylight savings is in
  692.      effect, zero if not, and negative if the information isn't
  693.      available.
  694.  
  695. 
  696. File: g77.info,  Node: MatMul Intrinsic,  Next: Max Intrinsic,  Prev: LTime Intrinsic,  Up: Table of Intrinsic Functions
  697.  
  698. MatMul Intrinsic
  699. ................
  700.  
  701.    This intrinsic is not yet implemented.  The name is, however,
  702. reserved as an intrinsic.  Use `EXTERNAL MatMul' to use this name for an
  703. external procedure.
  704.  
  705. 
  706. File: g77.info,  Node: Max Intrinsic,  Next: Max0 Intrinsic,  Prev: MatMul Intrinsic,  Up: Table of Intrinsic Functions
  707.  
  708. Max Intrinsic
  709. .............
  710.  
  711.      Max(A-1, A-2, ..., A-n)
  712.  
  713. Max: `INTEGER' or `REAL' function, the exact type being the result of
  714. cross-promoting the types of all the arguments.
  715.  
  716. A: `INTEGER' or `REAL'; at least two such arguments must be provided;
  717. scalar; INTENT(IN).
  718.  
  719. Intrinsic groups: (standard FORTRAN 77).
  720.  
  721. Description:
  722.  
  723.    Returns the argument with the largest value.
  724.  
  725.    *Note Min Intrinsic::, for the opposite function.
  726.  
  727. 
  728. File: g77.info,  Node: Max0 Intrinsic,  Next: Max1 Intrinsic,  Prev: Max Intrinsic,  Up: Table of Intrinsic Functions
  729.  
  730. Max0 Intrinsic
  731. ..............
  732.  
  733.      Max0(A-1, A-2, ..., A-n)
  734.  
  735. Max0: `INTEGER(KIND=1)' function.
  736.  
  737. A: `INTEGER(KIND=1)'; at least two such arguments must be provided;
  738. scalar; INTENT(IN).
  739.  
  740. Intrinsic groups: (standard FORTRAN 77).
  741.  
  742. Description:
  743.  
  744.    Archaic form of `MAX()' that is specific to one type for A.  *Note
  745. Max Intrinsic::.
  746.  
  747. 
  748. File: g77.info,  Node: Max1 Intrinsic,  Next: MaxExponent Intrinsic,  Prev: Max0 Intrinsic,  Up: Table of Intrinsic Functions
  749.  
  750. Max1 Intrinsic
  751. ..............
  752.  
  753.      Max1(A-1, A-2, ..., A-n)
  754.  
  755. Max1: `INTEGER(KIND=1)' function.
  756.  
  757. A: `REAL(KIND=1)'; at least two such arguments must be provided;
  758. scalar; INTENT(IN).
  759.  
  760. Intrinsic groups: (standard FORTRAN 77).
  761.  
  762. Description:
  763.  
  764.    Archaic form of `MAX()' that is specific to one type for A and a
  765. different return type.  *Note Max Intrinsic::.
  766.  
  767. 
  768. File: g77.info,  Node: MaxExponent Intrinsic,  Next: MaxLoc Intrinsic,  Prev: Max1 Intrinsic,  Up: Table of Intrinsic Functions
  769.  
  770. MaxExponent Intrinsic
  771. .....................
  772.  
  773.    This intrinsic is not yet implemented.  The name is, however,
  774. reserved as an intrinsic.  Use `EXTERNAL MaxExponent' to use this name
  775. for an external procedure.
  776.  
  777. 
  778. File: g77.info,  Node: MaxLoc Intrinsic,  Next: MaxVal Intrinsic,  Prev: MaxExponent Intrinsic,  Up: Table of Intrinsic Functions
  779.  
  780. MaxLoc Intrinsic
  781. ................
  782.  
  783.    This intrinsic is not yet implemented.  The name is, however,
  784. reserved as an intrinsic.  Use `EXTERNAL MaxLoc' to use this name for an
  785. external procedure.
  786.  
  787. 
  788. File: g77.info,  Node: MaxVal Intrinsic,  Next: MClock Intrinsic,  Prev: MaxLoc Intrinsic,  Up: Table of Intrinsic Functions
  789.  
  790. MaxVal Intrinsic
  791. ................
  792.  
  793.    This intrinsic is not yet implemented.  The name is, however,
  794. reserved as an intrinsic.  Use `EXTERNAL MaxVal' to use this name for an
  795. external procedure.
  796.  
  797. 
  798. File: g77.info,  Node: MClock Intrinsic,  Next: MClock8 Intrinsic,  Prev: MaxVal Intrinsic,  Up: Table of Intrinsic Functions
  799.  
  800. MClock Intrinsic
  801. ................
  802.  
  803.      MClock()
  804.  
  805. MClock: `INTEGER(KIND=1)' function.
  806.  
  807. Intrinsic groups: `unix'.
  808.  
  809. Description:
  810.  
  811.    Returns the number of clock ticks since the start of the process.
  812. Supported on systems with `clock(3)' (q.v.).
  813.  
  814.    This intrinsic is not fully portable, such as to systems with 32-bit
  815. `INTEGER' types but supporting times wider than 32 bits.  *Note MClock8
  816. Intrinsic::, for information on a similar intrinsic that might be
  817. portable to more GNU Fortran implementations, though to fewer Fortran
  818. compilers.
  819.  
  820.    If the system does not support `clock(3)', -1 is returned.
  821.  
  822. 
  823. File: g77.info,  Node: MClock8 Intrinsic,  Next: Merge Intrinsic,  Prev: MClock Intrinsic,  Up: Table of Intrinsic Functions
  824.  
  825. MClock8 Intrinsic
  826. .................
  827.  
  828.      MClock8()
  829.  
  830. MClock8: `INTEGER(KIND=2)' function.
  831.  
  832. Intrinsic groups: `unix'.
  833.  
  834. Description:
  835.  
  836.    Returns the number of clock ticks since the start of the process.
  837. Supported on systems with `clock(3)' (q.v.).
  838.  
  839.    No Fortran implementations other than GNU Fortran are known to
  840. support this intrinsic at the time of this writing.  *Note MClock
  841. Intrinsic::, for information on a similar intrinsic that might be
  842. portable to more Fortran compilers, though to fewer GNU Fortran
  843. implementations.
  844.  
  845.    If the system does not support `clock(3)', -1 is returned.
  846.  
  847. 
  848. File: g77.info,  Node: Merge Intrinsic,  Next: Min Intrinsic,  Prev: MClock8 Intrinsic,  Up: Table of Intrinsic Functions
  849.  
  850. Merge Intrinsic
  851. ...............
  852.  
  853.    This intrinsic is not yet implemented.  The name is, however,
  854. reserved as an intrinsic.  Use `EXTERNAL Merge' to use this name for an
  855. external procedure.
  856.  
  857. 
  858. File: g77.info,  Node: Min Intrinsic,  Next: Min0 Intrinsic,  Prev: Merge Intrinsic,  Up: Table of Intrinsic Functions
  859.  
  860. Min Intrinsic
  861. .............
  862.  
  863.      Min(A-1, A-2, ..., A-n)
  864.  
  865. Min: `INTEGER' or `REAL' function, the exact type being the result of
  866. cross-promoting the types of all the arguments.
  867.  
  868. A: `INTEGER' or `REAL'; at least two such arguments must be provided;
  869. scalar; INTENT(IN).
  870.  
  871. Intrinsic groups: (standard FORTRAN 77).
  872.  
  873. Description:
  874.  
  875.    Returns the argument with the smallest value.
  876.  
  877.    *Note Max Intrinsic::, for the opposite function.
  878.  
  879. 
  880. File: g77.info,  Node: Min0 Intrinsic,  Next: Min1 Intrinsic,  Prev: Min Intrinsic,  Up: Table of Intrinsic Functions
  881.  
  882. Min0 Intrinsic
  883. ..............
  884.  
  885.      Min0(A-1, A-2, ..., A-n)
  886.  
  887. Min0: `INTEGER(KIND=1)' function.
  888.  
  889. A: `INTEGER(KIND=1)'; at least two such arguments must be provided;
  890. scalar; INTENT(IN).
  891.  
  892. Intrinsic groups: (standard FORTRAN 77).
  893.  
  894. Description:
  895.  
  896.    Archaic form of `MIN()' that is specific to one type for A.  *Note
  897. Min Intrinsic::.
  898.  
  899. 
  900. File: g77.info,  Node: Min1 Intrinsic,  Next: MinExponent Intrinsic,  Prev: Min0 Intrinsic,  Up: Table of Intrinsic Functions
  901.  
  902. Min1 Intrinsic
  903. ..............
  904.  
  905.      Min1(A-1, A-2, ..., A-n)
  906.  
  907. Min1: `INTEGER(KIND=1)' function.
  908.  
  909. A: `REAL(KIND=1)'; at least two such arguments must be provided;
  910. scalar; INTENT(IN).
  911.  
  912. Intrinsic groups: (standard FORTRAN 77).
  913.  
  914. Description:
  915.  
  916.    Archaic form of `MIN()' that is specific to one type for A and a
  917. different return type.  *Note Min Intrinsic::.
  918.  
  919. 
  920. File: g77.info,  Node: MinExponent Intrinsic,  Next: MinLoc Intrinsic,  Prev: Min1 Intrinsic,  Up: Table of Intrinsic Functions
  921.  
  922. MinExponent Intrinsic
  923. .....................
  924.  
  925.    This intrinsic is not yet implemented.  The name is, however,
  926. reserved as an intrinsic.  Use `EXTERNAL MinExponent' to use this name
  927. for an external procedure.
  928.  
  929. 
  930. File: g77.info,  Node: MinLoc Intrinsic,  Next: MinVal Intrinsic,  Prev: MinExponent Intrinsic,  Up: Table of Intrinsic Functions
  931.  
  932. MinLoc Intrinsic
  933. ................
  934.  
  935.    This intrinsic is not yet implemented.  The name is, however,
  936. reserved as an intrinsic.  Use `EXTERNAL MinLoc' to use this name for an
  937. external procedure.
  938.  
  939. 
  940. File: g77.info,  Node: MinVal Intrinsic,  Next: Mod Intrinsic,  Prev: MinLoc Intrinsic,  Up: Table of Intrinsic Functions
  941.  
  942. MinVal Intrinsic
  943. ................
  944.  
  945.    This intrinsic is not yet implemented.  The name is, however,
  946. reserved as an intrinsic.  Use `EXTERNAL MinVal' to use this name for an
  947. external procedure.
  948.  
  949. 
  950. File: g77.info,  Node: Mod Intrinsic,  Next: Modulo Intrinsic,  Prev: MinVal Intrinsic,  Up: Table of Intrinsic Functions
  951.  
  952. Mod Intrinsic
  953. .............
  954.  
  955.      Mod(A, P)
  956.  
  957. Mod: `INTEGER' or `REAL' function, the exact type being the result of
  958. cross-promoting the types of all the arguments.
  959.  
  960. A: `INTEGER' or `REAL'; scalar; INTENT(IN).
  961.  
  962. P: `INTEGER' or `REAL'; scalar; INTENT(IN).
  963.  
  964. Intrinsic groups: (standard FORTRAN 77).
  965.  
  966. Description:
  967.  
  968.    Returns remainder calculated as:
  969.  
  970.      A - (INT(A / P) * P)
  971.  
  972.    P must not be zero.
  973.  
  974. 
  975. File: g77.info,  Node: Modulo Intrinsic,  Next: MvBits Intrinsic,  Prev: Mod Intrinsic,  Up: Table of Intrinsic Functions
  976.  
  977. Modulo Intrinsic
  978. ................
  979.  
  980.    This intrinsic is not yet implemented.  The name is, however,
  981. reserved as an intrinsic.  Use `EXTERNAL Modulo' to use this name for an
  982. external procedure.
  983.  
  984. 
  985. File: g77.info,  Node: MvBits Intrinsic,  Next: Nearest Intrinsic,  Prev: Modulo Intrinsic,  Up: Table of Intrinsic Functions
  986.  
  987. MvBits Intrinsic
  988. ................
  989.  
  990.      CALL MvBits(FROM, FROMPOS, LEN, TO, TOPOS)
  991.  
  992. FROM: `INTEGER'; scalar; INTENT(IN).
  993.  
  994. FROMPOS: `INTEGER'; scalar; INTENT(IN).
  995.  
  996. LEN: `INTEGER'; scalar; INTENT(IN).
  997.  
  998. TO: `INTEGER' with same `KIND=' value as for FROM; scalar;
  999. INTENT(INOUT).
  1000.  
  1001. TOPOS: `INTEGER'; scalar; INTENT(IN).
  1002.  
  1003. Intrinsic groups: `mil', `f90', `vxt'.
  1004.  
  1005. Description:
  1006.  
  1007.    Moves LEN bits from positions FROMPOS through `FROMPOS+LEN-1' of
  1008. FROM to positions TOPOS through `FROMPOS+LEN-1' of TO.  The portion of
  1009. argument TO not affected by the movement of bits is unchanged.
  1010. Arguments FROM and TO are permitted to be the same numeric storage
  1011. unit.  The values of `FROMPOS+LEN' and `TOPOS+LEN' must be less than or
  1012. equal to `BIT_SIZE(FROM)'.
  1013.  
  1014. 
  1015. File: g77.info,  Node: Nearest Intrinsic,  Next: NInt Intrinsic,  Prev: MvBits Intrinsic,  Up: Table of Intrinsic Functions
  1016.  
  1017. Nearest Intrinsic
  1018. .................
  1019.  
  1020.    This intrinsic is not yet implemented.  The name is, however,
  1021. reserved as an intrinsic.  Use `EXTERNAL Nearest' to use this name for
  1022. an external procedure.
  1023.  
  1024. 
  1025. File: g77.info,  Node: NInt Intrinsic,  Next: Not Intrinsic,  Prev: Nearest Intrinsic,  Up: Table of Intrinsic Functions
  1026.  
  1027. NInt Intrinsic
  1028. ..............
  1029.  
  1030.      NInt(A)
  1031.  
  1032. NInt: `INTEGER(KIND=1)' function.
  1033.  
  1034. A: `REAL'; scalar; INTENT(IN).
  1035.  
  1036. Intrinsic groups: (standard FORTRAN 77).
  1037.  
  1038. Description:
  1039.  
  1040.    Returns A with the fractional portion of its magnitude eliminated by
  1041. rounding to the nearest whole number and with its sign preserved,
  1042. converted to type `INTEGER(KIND=1)'.
  1043.  
  1044.    If A is type `COMPLEX', its real part is rounded and converted.
  1045.  
  1046.    A fractional portion exactly equal to `.5' is rounded to the whole
  1047. number that is larger in magnitude.  (Also called "Fortran round".)
  1048.  
  1049.    *Note Int Intrinsic::, for how to convert, truncate to whole number.
  1050.  
  1051.    *Note ANInt Intrinsic::, for how to round to nearest whole number
  1052. without converting.
  1053.  
  1054. 
  1055. File: g77.info,  Node: Not Intrinsic,  Next: Or Intrinsic,  Prev: NInt Intrinsic,  Up: Table of Intrinsic Functions
  1056.  
  1057. Not Intrinsic
  1058. .............
  1059.  
  1060.      Not(I)
  1061.  
  1062. Not: `INTEGER' function, the `KIND=' value of the type being that of
  1063. argument I.
  1064.  
  1065. I: `INTEGER'; scalar; INTENT(IN).
  1066.  
  1067. Intrinsic groups: `mil', `f90', `vxt'.
  1068.  
  1069. Description:
  1070.  
  1071.    Returns value resulting from boolean NOT of each bit in I.
  1072.  
  1073. 
  1074. File: g77.info,  Node: Or Intrinsic,  Next: Pack Intrinsic,  Prev: Not Intrinsic,  Up: Table of Intrinsic Functions
  1075.  
  1076. Or Intrinsic
  1077. ............
  1078.  
  1079.      Or(I, J)
  1080.  
  1081. Or: `INTEGER' or `LOGICAL' function, the exact type being the result of
  1082. cross-promoting the types of all the arguments.
  1083.  
  1084. I: `INTEGER' or `LOGICAL'; scalar; INTENT(IN).
  1085.  
  1086. J: `INTEGER' or `LOGICAL'; scalar; INTENT(IN).
  1087.  
  1088. Intrinsic groups: `f2c'.
  1089.  
  1090. Description:
  1091.  
  1092.    Returns value resulting from boolean OR of pair of bits in each of I
  1093. and J.
  1094.  
  1095. 
  1096. File: g77.info,  Node: Pack Intrinsic,  Next: PError Intrinsic,  Prev: Or Intrinsic,  Up: Table of Intrinsic Functions
  1097.  
  1098. Pack Intrinsic
  1099. ..............
  1100.  
  1101.    This intrinsic is not yet implemented.  The name is, however,
  1102. reserved as an intrinsic.  Use `EXTERNAL Pack' to use this name for an
  1103. external procedure.
  1104.  
  1105. 
  1106. File: g77.info,  Node: PError Intrinsic,  Next: Precision Intrinsic,  Prev: Pack Intrinsic,  Up: Table of Intrinsic Functions
  1107.  
  1108. PError Intrinsic
  1109. ................
  1110.  
  1111.      CALL PError(STRING)
  1112.  
  1113. STRING: `CHARACTER'; scalar; INTENT(IN).
  1114.  
  1115. Intrinsic groups: `unix'.
  1116.  
  1117. Description:
  1118.  
  1119.    Prints (on the C `stderr' stream) a newline-terminated error message
  1120. corresponding to the last system error.  This is prefixed by STRING, a
  1121. colon and a space.  See `perror(3)'.
  1122.  
  1123. 
  1124. File: g77.info,  Node: Precision Intrinsic,  Next: Present Intrinsic,  Prev: PError Intrinsic,  Up: Table of Intrinsic Functions
  1125.  
  1126. Precision Intrinsic
  1127. ...................
  1128.  
  1129.    This intrinsic is not yet implemented.  The name is, however,
  1130. reserved as an intrinsic.  Use `EXTERNAL Precision' to use this name
  1131. for an external procedure.
  1132.  
  1133. 
  1134. File: g77.info,  Node: Present Intrinsic,  Next: Product Intrinsic,  Prev: Precision Intrinsic,  Up: Table of Intrinsic Functions
  1135.  
  1136. Present Intrinsic
  1137. .................
  1138.  
  1139.    This intrinsic is not yet implemented.  The name is, however,
  1140. reserved as an intrinsic.  Use `EXTERNAL Present' to use this name for
  1141. an external procedure.
  1142.  
  1143. 
  1144. File: g77.info,  Node: Product Intrinsic,  Next: Radix Intrinsic,  Prev: Present Intrinsic,  Up: Table of Intrinsic Functions
  1145.  
  1146. Product Intrinsic
  1147. .................
  1148.  
  1149.    This intrinsic is not yet implemented.  The name is, however,
  1150. reserved as an intrinsic.  Use `EXTERNAL Product' to use this name for
  1151. an external procedure.
  1152.  
  1153. 
  1154. File: g77.info,  Node: Radix Intrinsic,  Next: Rand Intrinsic,  Prev: Product Intrinsic,  Up: Table of Intrinsic Functions
  1155.  
  1156. Radix Intrinsic
  1157. ...............
  1158.  
  1159.    This intrinsic is not yet implemented.  The name is, however,
  1160. reserved as an intrinsic.  Use `EXTERNAL Radix' to use this name for an
  1161. external procedure.
  1162.  
  1163. 
  1164. File: g77.info,  Node: Rand Intrinsic,  Next: Random_Number Intrinsic,  Prev: Radix Intrinsic,  Up: Table of Intrinsic Functions
  1165.  
  1166. Rand Intrinsic
  1167. ..............
  1168.  
  1169.      Rand(FLAG)
  1170.  
  1171. Rand: `REAL(KIND=1)' function.
  1172.  
  1173. FLAG: `INTEGER'; OPTIONAL; scalar; INTENT(IN).
  1174.  
  1175. Intrinsic groups: `unix'.
  1176.  
  1177. Description:
  1178.  
  1179.    Returns a uniform quasi-random number between 0 and 1.  If FLAG is
  1180. 0, the next number in sequence is returned; if FLAG is 1, the generator
  1181. is restarted by calling `srand(0)'; if FLAG has any other value, it is
  1182. used as a new seed with `srand'.
  1183.  
  1184.    *Note SRand Intrinsic::.
  1185.  
  1186.    *Note:* As typically implemented (by the routine of the same name in
  1187. the C library), this random number generator is a very poor one, though
  1188. the BSD and GNU libraries provide a much better implementation than the
  1189. `traditional' one.  On a different system you almost certainly want to
  1190. use something better.
  1191.  
  1192. 
  1193. File: g77.info,  Node: Random_Number Intrinsic,  Next: Random_Seed Intrinsic,  Prev: Rand Intrinsic,  Up: Table of Intrinsic Functions
  1194.  
  1195. Random_Number Intrinsic
  1196. .......................
  1197.  
  1198.    This intrinsic is not yet implemented.  The name is, however,
  1199. reserved as an intrinsic.  Use `EXTERNAL Random_Number' to use this
  1200. name for an external procedure.
  1201.  
  1202. 
  1203. File: g77.info,  Node: Random_Seed Intrinsic,  Next: Range Intrinsic,  Prev: Random_Number Intrinsic,  Up: Table of Intrinsic Functions
  1204.  
  1205. Random_Seed Intrinsic
  1206. .....................
  1207.  
  1208.    This intrinsic is not yet implemented.  The name is, however,
  1209. reserved as an intrinsic.  Use `EXTERNAL Random_Seed' to use this name
  1210. for an external procedure.
  1211.  
  1212. 
  1213. File: g77.info,  Node: Range Intrinsic,  Next: Real Intrinsic,  Prev: Random_Seed Intrinsic,  Up: Table of Intrinsic Functions
  1214.  
  1215. Range Intrinsic
  1216. ...............
  1217.  
  1218.    This intrinsic is not yet implemented.  The name is, however,
  1219. reserved as an intrinsic.  Use `EXTERNAL Range' to use this name for an
  1220. external procedure.
  1221.  
  1222. 
  1223. File: g77.info,  Node: Real Intrinsic,  Next: RealPart Intrinsic,  Prev: Range Intrinsic,  Up: Table of Intrinsic Functions
  1224.  
  1225. Real Intrinsic
  1226. ..............
  1227.  
  1228.      Real(A)
  1229.  
  1230. Real: `REAL' function.  The exact type is `REAL(KIND=1)' when argument
  1231. A is any type other than `COMPLEX', or when it is `COMPLEX(KIND=1)'.
  1232. When A is any `COMPLEX' type other than `COMPLEX(KIND=1)', this
  1233. intrinsic is valid only when used as the argument to `REAL()', as
  1234. explained below.
  1235.  
  1236. A: `INTEGER', `REAL', or `COMPLEX'; scalar; INTENT(IN).
  1237.  
  1238. Intrinsic groups: (standard FORTRAN 77).
  1239.  
  1240. Description:
  1241.  
  1242.    Converts A to `REAL(KIND=1)'.
  1243.  
  1244.    Use of `REAL()' with a `COMPLEX' argument (other than
  1245. `COMPLEX(KIND=1)') is restricted to the following case:
  1246.  
  1247.      REAL(REAL(A))
  1248.  
  1249. This expression converts the real part of A to `REAL(KIND=1)'.
  1250.  
  1251.    *Note RealPart Intrinsic::, for information on a GNU Fortran
  1252. intrinsic that extracts the real part of an arbitrary `COMPLEX' value.
  1253.  
  1254.    *Note REAL() and AIMAG() of Complex::, for more information.
  1255.  
  1256. 
  1257. File: g77.info,  Node: RealPart Intrinsic,  Next: Rename Intrinsic (subroutine),  Prev: Real Intrinsic,  Up: Table of Intrinsic Functions
  1258.  
  1259. RealPart Intrinsic
  1260. ..................
  1261.  
  1262.      RealPart(Z)
  1263.  
  1264. RealPart: `REAL' function, the `KIND=' value of the type being that of
  1265. argument Z.
  1266.  
  1267. Z: `COMPLEX'; scalar; INTENT(IN).
  1268.  
  1269. Intrinsic groups: `gnu'.
  1270.  
  1271. Description:
  1272.  
  1273.    The real part of Z is returned, without conversion.
  1274.  
  1275.    *Note:* The way to do this in standard Fortran 90 is `REAL(Z)'.
  1276. However, when, for example, Z is `COMPLEX(KIND=2)', `REAL(Z)' means
  1277. something different for some compilers that are not true Fortran 90
  1278. compilers but offer some extensions standardized by Fortran 90 (such as
  1279. the `DOUBLE COMPLEX' type, also known as `COMPLEX(KIND=2)').
  1280.  
  1281.    The advantage of `REALPART()' is that, while not necessarily more or
  1282. less portable than `REAL()', it is more likely to cause a compiler that
  1283. doesn't support it to produce a diagnostic than generate incorrect code.
  1284.  
  1285.    *Note REAL() and AIMAG() of Complex::, for more information.
  1286.  
  1287. 
  1288. File: g77.info,  Node: Rename Intrinsic (subroutine),  Next: Repeat Intrinsic,  Prev: RealPart Intrinsic,  Up: Table of Intrinsic Functions
  1289.  
  1290. Rename Intrinsic (subroutine)
  1291. .............................
  1292.  
  1293.      CALL Rename(PATH1, PATH2, STATUS)
  1294.  
  1295. PATH1: `CHARACTER'; scalar; INTENT(IN).
  1296.  
  1297. PATH2: `CHARACTER'; scalar; INTENT(IN).
  1298.  
  1299. STATUS: `INTEGER(KIND=1)'; OPTIONAL; scalar; INTENT(OUT).
  1300.  
  1301. Intrinsic groups: `unix'.
  1302.  
  1303. Description:
  1304.  
  1305.    Renames the file PATH1 to PATH2.  A null character (`CHAR(0)') marks
  1306. the end of the names in PATH1 and PATH2--otherwise, trailing blanks in
  1307. PATH1 and PATH2 are ignored.  See `rename(2)'.  If the STATUS argument
  1308. is supplied, it contains 0 on success or a non-zero error code upon
  1309. return.
  1310.  
  1311.    Some non-GNU implementations of Fortran provide this intrinsic as
  1312. only a function, not as a subroutine, or do not support the (optional)
  1313. STATUS argument.
  1314.  
  1315.    For information on other intrinsics with the same name: *Note Rename
  1316. Intrinsic (function)::.
  1317.  
  1318. 
  1319. File: g77.info,  Node: Repeat Intrinsic,  Next: Reshape Intrinsic,  Prev: Rename Intrinsic (subroutine),  Up: Table of Intrinsic Functions
  1320.  
  1321. Repeat Intrinsic
  1322. ................
  1323.  
  1324.    This intrinsic is not yet implemented.  The name is, however,
  1325. reserved as an intrinsic.  Use `EXTERNAL Repeat' to use this name for an
  1326. external procedure.
  1327.  
  1328. 
  1329. File: g77.info,  Node: Reshape Intrinsic,  Next: RRSpacing Intrinsic,  Prev: Repeat Intrinsic,  Up: Table of Intrinsic Functions
  1330.  
  1331. Reshape Intrinsic
  1332. .................
  1333.  
  1334.    This intrinsic is not yet implemented.  The name is, however,
  1335. reserved as an intrinsic.  Use `EXTERNAL Reshape' to use this name for
  1336. an external procedure.
  1337.  
  1338. 
  1339. File: g77.info,  Node: RRSpacing Intrinsic,  Next: RShift Intrinsic,  Prev: Reshape Intrinsic,  Up: Table of Intrinsic Functions
  1340.  
  1341. RRSpacing Intrinsic
  1342. ...................
  1343.  
  1344.    This intrinsic is not yet implemented.  The name is, however,
  1345. reserved as an intrinsic.  Use `EXTERNAL RRSpacing' to use this name
  1346. for an external procedure.
  1347.  
  1348. 
  1349. File: g77.info,  Node: RShift Intrinsic,  Next: Scale Intrinsic,  Prev: RRSpacing Intrinsic,  Up: Table of Intrinsic Functions
  1350.  
  1351. RShift Intrinsic
  1352. ................
  1353.  
  1354.      RShift(I, SHIFT)
  1355.  
  1356. RShift: `INTEGER' function, the `KIND=' value of the type being that of
  1357. argument I.
  1358.  
  1359. I: `INTEGER'; scalar; INTENT(IN).
  1360.  
  1361. SHIFT: `INTEGER'; scalar; INTENT(IN).
  1362.  
  1363. Intrinsic groups: `f2c'.
  1364.  
  1365. Description:
  1366.  
  1367.    Returns I shifted to the right SHIFT bits.
  1368.  
  1369.    Although similar to the expression `I/(2**SHIFT)', there are
  1370. important differences.  For example, the sign of the result is
  1371. undefined.
  1372.  
  1373.    Currently this intrinsic is defined assuming the underlying
  1374. representation of I is as a two's-complement integer.  It is unclear at
  1375. this point whether that definition will apply when a different
  1376. representation is involved.
  1377.  
  1378.    *Note RShift Intrinsic::, for the inverse of this function.
  1379.  
  1380.    *Note IShft Intrinsic::, for information on a more widely available
  1381. right-shifting intrinsic that is also more precisely defined.
  1382.  
  1383. 
  1384. File: g77.info,  Node: Scale Intrinsic,  Next: Scan Intrinsic,  Prev: RShift Intrinsic,  Up: Table of Intrinsic Functions
  1385.  
  1386. Scale Intrinsic
  1387. ...............
  1388.  
  1389.    This intrinsic is not yet implemented.  The name is, however,
  1390. reserved as an intrinsic.  Use `EXTERNAL Scale' to use this name for an
  1391. external procedure.
  1392.  
  1393. 
  1394. File: g77.info,  Node: Scan Intrinsic,  Next: Second Intrinsic (function),  Prev: Scale Intrinsic,  Up: Table of Intrinsic Functions
  1395.  
  1396. Scan Intrinsic
  1397. ..............
  1398.  
  1399.    This intrinsic is not yet implemented.  The name is, however,
  1400. reserved as an intrinsic.  Use `EXTERNAL Scan' to use this name for an
  1401. external procedure.
  1402.  
  1403. 
  1404. File: g77.info,  Node: Second Intrinsic (function),  Next: Second Intrinsic (subroutine),  Prev: Scan Intrinsic,  Up: Table of Intrinsic Functions
  1405.  
  1406. Second Intrinsic (function)
  1407. ...........................
  1408.  
  1409.      Second()
  1410.  
  1411. Second: `REAL(KIND=1)' function.
  1412.  
  1413. Intrinsic groups: `unix'.
  1414.  
  1415. Description:
  1416.  
  1417.    Returns the process's runtime in seconds--the same value as the UNIX
  1418. function `etime' returns.
  1419.  
  1420.    This routine is known from Cray Fortran.
  1421.  
  1422.    For information on other intrinsics with the same name: *Note Second
  1423. Intrinsic (subroutine)::.
  1424.  
  1425. 
  1426. File: g77.info,  Node: Second Intrinsic (subroutine),  Next: Selected_Int_Kind Intrinsic,  Prev: Second Intrinsic (function),  Up: Table of Intrinsic Functions
  1427.  
  1428. Second Intrinsic (subroutine)
  1429. .............................
  1430.  
  1431.      CALL Second(SECONDS)
  1432.  
  1433. SECONDS: `REAL(KIND=1)'; scalar; INTENT(OUT).
  1434.  
  1435. Intrinsic groups: `unix'.
  1436.  
  1437. Description:
  1438.  
  1439.    Returns the process's runtime in seconds in SECONDS--the same value
  1440. as the UNIX function `etime' returns.
  1441.  
  1442.    This routine is known from Cray Fortran.  *Note Cpu_Time Intrinsic::
  1443. for a standard equivalent.
  1444.  
  1445.    For information on other intrinsics with the same name: *Note Second
  1446. Intrinsic (function)::.
  1447.  
  1448. 
  1449. File: g77.info,  Node: Selected_Int_Kind Intrinsic,  Next: Selected_Real_Kind Intrinsic,  Prev: Second Intrinsic (subroutine),  Up: Table of Intrinsic Functions
  1450.  
  1451. Selected_Int_Kind Intrinsic
  1452. ...........................
  1453.  
  1454.    This intrinsic is not yet implemented.  The name is, however,
  1455. reserved as an intrinsic.  Use `EXTERNAL Selected_Int_Kind' to use this
  1456. name for an external procedure.
  1457.  
  1458. 
  1459. File: g77.info,  Node: Selected_Real_Kind Intrinsic,  Next: Set_Exponent Intrinsic,  Prev: Selected_Int_Kind Intrinsic,  Up: Table of Intrinsic Functions
  1460.  
  1461. Selected_Real_Kind Intrinsic
  1462. ............................
  1463.  
  1464.    This intrinsic is not yet implemented.  The name is, however,
  1465. reserved as an intrinsic.  Use `EXTERNAL Selected_Real_Kind' to use
  1466. this name for an external procedure.
  1467.  
  1468. 
  1469. File: g77.info,  Node: Set_Exponent Intrinsic,  Next: Shape Intrinsic,  Prev: Selected_Real_Kind Intrinsic,  Up: Table of Intrinsic Functions
  1470.  
  1471. Set_Exponent Intrinsic
  1472. ......................
  1473.  
  1474.    This intrinsic is not yet implemented.  The name is, however,
  1475. reserved as an intrinsic.  Use `EXTERNAL Set_Exponent' to use this name
  1476. for an external procedure.
  1477.  
  1478. 
  1479. File: g77.info,  Node: Shape Intrinsic,  Next: Short Intrinsic,  Prev: Set_Exponent Intrinsic,  Up: Table of Intrinsic Functions
  1480.  
  1481. Shape Intrinsic
  1482. ...............
  1483.  
  1484.    This intrinsic is not yet implemented.  The name is, however,
  1485. reserved as an intrinsic.  Use `EXTERNAL Shape' to use this name for an
  1486. external procedure.
  1487.  
  1488. 
  1489. File: g77.info,  Node: Short Intrinsic,  Next: Sign Intrinsic,  Prev: Shape Intrinsic,  Up: Table of Intrinsic Functions
  1490.  
  1491. Short Intrinsic
  1492. ...............
  1493.  
  1494.      Short(A)
  1495.  
  1496. Short: `INTEGER(KIND=6)' function.
  1497.  
  1498. A: `INTEGER'; scalar; INTENT(IN).
  1499.  
  1500. Intrinsic groups: `unix'.
  1501.  
  1502. Description:
  1503.  
  1504.    Returns A with the fractional portion of its magnitude truncated and
  1505. its sign preserved, converted to type `INTEGER(KIND=6)'.
  1506.  
  1507.    If A is type `COMPLEX', its real part is truncated and converted,
  1508. and its imaginary part is disgregarded.
  1509.  
  1510.    *Note Int Intrinsic::.
  1511.  
  1512.    The precise meaning of this intrinsic might change in a future
  1513. version of the GNU Fortran language, as more is learned about how it is
  1514. used.
  1515.  
  1516. 
  1517. File: g77.info,  Node: Sign Intrinsic,  Next: Signal Intrinsic (subroutine),  Prev: Short Intrinsic,  Up: Table of Intrinsic Functions
  1518.  
  1519. Sign Intrinsic
  1520. ..............
  1521.  
  1522.      Sign(A, B)
  1523.  
  1524. Sign: `INTEGER' or `REAL' function, the exact type being the result of
  1525. cross-promoting the types of all the arguments.
  1526.  
  1527. A: `INTEGER' or `REAL'; scalar; INTENT(IN).
  1528.  
  1529. B: `INTEGER' or `REAL'; scalar; INTENT(IN).
  1530.  
  1531. Intrinsic groups: (standard FORTRAN 77).
  1532.  
  1533. Description:
  1534.  
  1535.    Returns `ABS(A)*S', where S is +1 if `B.GE.0', -1 otherwise.
  1536.  
  1537.    *Note Abs Intrinsic::, for the function that returns the magnitude
  1538. of a value.
  1539.  
  1540. 
  1541. File: g77.info,  Node: Signal Intrinsic (subroutine),  Next: Sin Intrinsic,  Prev: Sign Intrinsic,  Up: Table of Intrinsic Functions
  1542.  
  1543. Signal Intrinsic (subroutine)
  1544. .............................
  1545.  
  1546.      CALL Signal(NUMBER, HANDLER, STATUS)
  1547.  
  1548. NUMBER: `INTEGER'; scalar; INTENT(IN).
  1549.  
  1550. HANDLER: Signal handler (`INTEGER FUNCTION' or `SUBROUTINE') or
  1551. dummy/global `INTEGER(KIND=1)' scalar.
  1552.  
  1553. STATUS: `INTEGER(KIND=1)'; OPTIONAL; scalar; INTENT(OUT).
  1554.  
  1555. Intrinsic groups: `unix'.
  1556.  
  1557. Description:
  1558.  
  1559.    If HANDLER is a an `EXTERNAL' routine, arranges for it to be invoked
  1560. with a single integer argument (of system-dependent length) when signal
  1561. NUMBER occurs.  If NUMBER is an integer, it can be used to turn off
  1562. handling of signal HANDLER or revert to its default action.  See
  1563. `signal(2)'.
  1564.  
  1565.    Note that HANDLER will be called using C conventions, so its value in
  1566. Fortran terms is obtained by applying `%LOC()' (or LOC()) to it.
  1567.  
  1568.    The value returned by `signal(2)' is written to STATUS, if that
  1569. argument is supplied.  Otherwise the return value is ignored.
  1570.  
  1571.    Some non-GNU implementations of Fortran provide this intrinsic as
  1572. only a function, not as a subroutine, or do not support the (optional)
  1573. STATUS argument.
  1574.  
  1575.    For information on other intrinsics with the same name: *Note Signal
  1576. Intrinsic (function)::.
  1577.  
  1578. 
  1579. File: g77.info,  Node: Sin Intrinsic,  Next: SinH Intrinsic,  Prev: Signal Intrinsic (subroutine),  Up: Table of Intrinsic Functions
  1580.  
  1581. Sin Intrinsic
  1582. .............
  1583.  
  1584.      Sin(X)
  1585.  
  1586. Sin: `REAL' or `COMPLEX' function, the exact type being that of
  1587. argument X.
  1588.  
  1589. X: `REAL' or `COMPLEX'; scalar; INTENT(IN).
  1590.  
  1591. Intrinsic groups: (standard FORTRAN 77).
  1592.  
  1593. Description:
  1594.  
  1595.    Returns the sine of X, an angle measured in radians.
  1596.  
  1597.    *Note ASin Intrinsic::, for the inverse of this function.
  1598.  
  1599. 
  1600. File: g77.info,  Node: SinH Intrinsic,  Next: Sleep Intrinsic,  Prev: Sin Intrinsic,  Up: Table of Intrinsic Functions
  1601.  
  1602. SinH Intrinsic
  1603. ..............
  1604.  
  1605.      SinH(X)
  1606.  
  1607. SinH: `REAL' function, the `KIND=' value of the type being that of
  1608. argument X.
  1609.  
  1610. X: `REAL'; scalar; INTENT(IN).
  1611.  
  1612. Intrinsic groups: (standard FORTRAN 77).
  1613.  
  1614. Description:
  1615.  
  1616.    Returns the hyperbolic sine of X.
  1617.  
  1618. 
  1619. File: g77.info,  Node: Sleep Intrinsic,  Next: Sngl Intrinsic,  Prev: SinH Intrinsic,  Up: Table of Intrinsic Functions
  1620.  
  1621. Sleep Intrinsic
  1622. ...............
  1623.  
  1624.      CALL Sleep(SECONDS)
  1625.  
  1626. SECONDS: `INTEGER(KIND=1)'; scalar; INTENT(IN).
  1627.  
  1628. Intrinsic groups: `unix'.
  1629.  
  1630. Description:
  1631.  
  1632.    Causes the process to pause for SECONDS seconds.  See `sleep(2)'.
  1633.  
  1634. 
  1635. File: g77.info,  Node: Sngl Intrinsic,  Next: Spacing Intrinsic,  Prev: Sleep Intrinsic,  Up: Table of Intrinsic Functions
  1636.  
  1637. Sngl Intrinsic
  1638. ..............
  1639.  
  1640.      Sngl(A)
  1641.  
  1642. Sngl: `REAL(KIND=1)' function.
  1643.  
  1644. A: `REAL(KIND=2)'; scalar; INTENT(IN).
  1645.  
  1646. Intrinsic groups: (standard FORTRAN 77).
  1647.  
  1648. Description:
  1649.  
  1650.    Archaic form of `REAL()' that is specific to one type for A.  *Note
  1651. Real Intrinsic::.
  1652.  
  1653. 
  1654. File: g77.info,  Node: Spacing Intrinsic,  Next: Spread Intrinsic,  Prev: Sngl Intrinsic,  Up: Table of Intrinsic Functions
  1655.  
  1656. Spacing Intrinsic
  1657. .................
  1658.  
  1659.    This intrinsic is not yet implemented.  The name is, however,
  1660. reserved as an intrinsic.  Use `EXTERNAL Spacing' to use this name for
  1661. an external procedure.
  1662.  
  1663. 
  1664. File: g77.info,  Node: Spread Intrinsic,  Next: SqRt Intrinsic,  Prev: Spacing Intrinsic,  Up: Table of Intrinsic Functions
  1665.  
  1666. Spread Intrinsic
  1667. ................
  1668.  
  1669.    This intrinsic is not yet implemented.  The name is, however,
  1670. reserved as an intrinsic.  Use `EXTERNAL Spread' to use this name for an
  1671. external procedure.
  1672.  
  1673. 
  1674. File: g77.info,  Node: SqRt Intrinsic,  Next: SRand Intrinsic,  Prev: Spread Intrinsic,  Up: Table of Intrinsic Functions
  1675.  
  1676. SqRt Intrinsic
  1677. ..............
  1678.  
  1679.      SqRt(X)
  1680.  
  1681. SqRt: `REAL' or `COMPLEX' function, the exact type being that of
  1682. argument X.
  1683.  
  1684. X: `REAL' or `COMPLEX'; scalar; INTENT(IN).
  1685.  
  1686. Intrinsic groups: (standard FORTRAN 77).
  1687.  
  1688. Description:
  1689.  
  1690.    Returns the square root of X, which must not be negative.
  1691.  
  1692.    To calculate and represent the square root of a negative number,
  1693. complex arithmetic must be used.  For example, `SQRT(COMPLEX(X))'.
  1694.  
  1695.    The inverse of this function is `SQRT(X) * SQRT(X)'.
  1696.  
  1697. 
  1698. File: g77.info,  Node: SRand Intrinsic,  Next: Stat Intrinsic (subroutine),  Prev: SqRt Intrinsic,  Up: Table of Intrinsic Functions
  1699.  
  1700. SRand Intrinsic
  1701. ...............
  1702.  
  1703.      CALL SRand(SEED)
  1704.  
  1705. SEED: `INTEGER'; scalar; INTENT(IN).
  1706.  
  1707. Intrinsic groups: `unix'.
  1708.  
  1709. Description:
  1710.  
  1711.    Reinitialises the generator with the seed in SEED.  *Note IRand
  1712. Intrinsic::.  *Note Rand Intrinsic::.
  1713.  
  1714. 
  1715. File: g77.info,  Node: Stat Intrinsic (subroutine),  Next: Stat Intrinsic (function),  Prev: SRand Intrinsic,  Up: Table of Intrinsic Functions
  1716.  
  1717. Stat Intrinsic (subroutine)
  1718. ...........................
  1719.  
  1720.      CALL Stat(FILE, SARRAY, STATUS)
  1721.  
  1722. FILE: `CHARACTER'; scalar; INTENT(IN).
  1723.  
  1724. SARRAY: `INTEGER(KIND=1)'; DIMENSION(13); INTENT(OUT).
  1725.  
  1726. STATUS: `INTEGER(KIND=1)'; OPTIONAL; scalar; INTENT(OUT).
  1727.  
  1728. Intrinsic groups: `unix'.
  1729.  
  1730. Description:
  1731.  
  1732.    Obtains data about the given file FILE and places them in the array
  1733. SARRAY.  A null character (`CHAR(0)') marks the end of the name in
  1734. FILE--otherwise, trailing blanks in FILE are ignored.  The values in
  1735. this array are extracted from the `stat' structure as returned by
  1736. `fstat(2)' q.v., as follows:
  1737.  
  1738.   1. File mode
  1739.  
  1740.   2. Inode number
  1741.  
  1742.   3. ID of device containing directory entry for file
  1743.  
  1744.   4. Device id (if relevant)
  1745.  
  1746.   5. Number of links
  1747.  
  1748.   6. Owner's uid
  1749.  
  1750.   7. Owner's gid
  1751.  
  1752.   8. File size (bytes)
  1753.  
  1754.   9. Last access time
  1755.  
  1756.  10. Last modification time
  1757.  
  1758.  11. Last file status change time
  1759.  
  1760.  12. Preferred I/O block size
  1761.  
  1762.  13. Number of blocks allocated
  1763.  
  1764.    Not all these elements are relevant on all systems.  If an element
  1765. is not relevant, it is returned as 0.
  1766.  
  1767.    If the STATUS argument is supplied, it contains 0 on success or a
  1768. non-zero error code upon return.
  1769.  
  1770.    Some non-GNU implementations of Fortran provide this intrinsic as
  1771. only a function, not as a subroutine, or do not support the (optional)
  1772. STATUS argument.
  1773.  
  1774.    For information on other intrinsics with the same name: *Note Stat
  1775. Intrinsic (function)::.
  1776.  
  1777. 
  1778. File: g77.info,  Node: Stat Intrinsic (function),  Next: Sum Intrinsic,  Prev: Stat Intrinsic (subroutine),  Up: Table of Intrinsic Functions
  1779.  
  1780. Stat Intrinsic (function)
  1781. .........................
  1782.  
  1783.      Stat(FILE, SARRAY)
  1784.  
  1785. Stat: `INTEGER(KIND=1)' function.
  1786.  
  1787. FILE: `CHARACTER'; scalar; INTENT(IN).
  1788.  
  1789. SARRAY: `INTEGER(KIND=1)'; DIMENSION(13); INTENT(OUT).
  1790.  
  1791. Intrinsic groups: `unix'.
  1792.  
  1793. Description:
  1794.  
  1795.    Obtains data about the given file FILE and places them in the array
  1796. SARRAY.  A null character (`CHAR(0)') marks the end of the name in
  1797. FILE--otherwise, trailing blanks in FILE are ignored.  The values in
  1798. this array are extracted from the `stat' structure as returned by
  1799. `fstat(2)' q.v., as follows:
  1800.  
  1801.   1. File mode
  1802.  
  1803.   2. Inode number
  1804.  
  1805.   3. ID of device containing directory entry for file
  1806.  
  1807.   4. Device id (if relevant)
  1808.  
  1809.   5. Number of links
  1810.  
  1811.   6. Owner's uid
  1812.  
  1813.   7. Owner's gid
  1814.  
  1815.   8. File size (bytes)
  1816.  
  1817.   9. Last access time
  1818.  
  1819.  10. Last modification time
  1820.  
  1821.  11. Last file status change time
  1822.  
  1823.  12. Preferred I/O block size
  1824.  
  1825.  13. Number of blocks allocated
  1826.  
  1827.    Not all these elements are relevant on all systems.  If an element
  1828. is not relevant, it is returned as 0.
  1829.  
  1830.    Returns 0 on success or a non-zero error code.
  1831.  
  1832.    For information on other intrinsics with the same name: *Note Stat
  1833. Intrinsic (subroutine)::.
  1834.  
  1835. 
  1836. File: g77.info,  Node: Sum Intrinsic,  Next: SymLnk Intrinsic (subroutine),  Prev: Stat Intrinsic (function),  Up: Table of Intrinsic Functions
  1837.  
  1838. Sum Intrinsic
  1839. .............
  1840.  
  1841.    This intrinsic is not yet implemented.  The name is, however,
  1842. reserved as an intrinsic.  Use `EXTERNAL Sum' to use this name for an
  1843. external procedure.
  1844.  
  1845.