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-8 < prev    next >
Encoding:
GNU Info File  |  1997-09-12  |  50.1 KB  |  2,056 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: DbesY1 Intrinsic,  Next: DbesYN Intrinsic,  Prev: DbesY0 Intrinsic,  Up: Table of Intrinsic Functions
  42.  
  43. DbesY1 Intrinsic
  44. ................
  45.  
  46.      DbesY1(X)
  47.  
  48. DbesY1: `REAL(KIND=2)' function.
  49.  
  50. X: `REAL(KIND=2)'; scalar; INTENT(IN).
  51.  
  52. Intrinsic groups: `unix'.
  53.  
  54. Description:
  55.  
  56.    Archaic form of `BESY1()' that is specific to one type for X.  *Note
  57. BesY1 Intrinsic::.
  58.  
  59. 
  60. File: g77.info,  Node: DbesYN Intrinsic,  Next: Dble Intrinsic,  Prev: DbesY1 Intrinsic,  Up: Table of Intrinsic Functions
  61.  
  62. DbesYN Intrinsic
  63. ................
  64.  
  65.      DbesYN(N, X)
  66.  
  67. DbesYN: `REAL(KIND=2)' function.
  68.  
  69. N: `INTEGER'; scalar; INTENT(IN).
  70.  
  71. X: `REAL(KIND=2)'; scalar; INTENT(IN).
  72.  
  73. Intrinsic groups: `unix'.
  74.  
  75. Description:
  76.  
  77.    Archaic form of `BESYN()' that is specific to one type for X.  *Note
  78. BesYN Intrinsic::.
  79.  
  80. 
  81. File: g77.info,  Node: Dble Intrinsic,  Next: DCos Intrinsic,  Prev: DbesYN Intrinsic,  Up: Table of Intrinsic Functions
  82.  
  83. Dble Intrinsic
  84. ..............
  85.  
  86.      Dble(A)
  87.  
  88. Dble: `REAL(KIND=2)' function.
  89.  
  90. A: `INTEGER', `REAL', or `COMPLEX'; scalar; INTENT(IN).
  91.  
  92. Intrinsic groups: (standard FORTRAN 77).
  93.  
  94. Description:
  95.  
  96.    Returns A converted to double precision (`REAL(KIND=2)').  If A is
  97. `COMPLEX', the real part of A is used for the conversion and the
  98. imaginary part disregarded.
  99.  
  100.    *Note Sngl Intrinsic::, for the function that converts to single
  101. precision.
  102.  
  103.    *Note Int Intrinsic::, for the function that converts to `INTEGER'.
  104.  
  105.    *Note Complex Intrinsic::, for the function that converts to
  106. `COMPLEX'.
  107.  
  108. 
  109. File: g77.info,  Node: DCos Intrinsic,  Next: DCosH Intrinsic,  Prev: Dble Intrinsic,  Up: Table of Intrinsic Functions
  110.  
  111. DCos Intrinsic
  112. ..............
  113.  
  114.      DCos(X)
  115.  
  116. DCos: `REAL(KIND=2)' function.
  117.  
  118. X: `REAL(KIND=2)'; scalar; INTENT(IN).
  119.  
  120. Intrinsic groups: (standard FORTRAN 77).
  121.  
  122. Description:
  123.  
  124.    Archaic form of `COS()' that is specific to one type for X.  *Note
  125. Cos Intrinsic::.
  126.  
  127. 
  128. File: g77.info,  Node: DCosH Intrinsic,  Next: DDiM Intrinsic,  Prev: DCos Intrinsic,  Up: Table of Intrinsic Functions
  129.  
  130. DCosH Intrinsic
  131. ...............
  132.  
  133.      DCosH(X)
  134.  
  135. DCosH: `REAL(KIND=2)' function.
  136.  
  137. X: `REAL(KIND=2)'; scalar; INTENT(IN).
  138.  
  139. Intrinsic groups: (standard FORTRAN 77).
  140.  
  141. Description:
  142.  
  143.    Archaic form of `COSH()' that is specific to one type for X.  *Note
  144. CosH Intrinsic::.
  145.  
  146. 
  147. File: g77.info,  Node: DDiM Intrinsic,  Next: DErF Intrinsic,  Prev: DCosH Intrinsic,  Up: Table of Intrinsic Functions
  148.  
  149. DDiM Intrinsic
  150. ..............
  151.  
  152.      DDiM(X, Y)
  153.  
  154. DDiM: `REAL(KIND=2)' function.
  155.  
  156. X: `REAL(KIND=2)'; scalar; INTENT(IN).
  157.  
  158. Y: `REAL(KIND=2)'; scalar; INTENT(IN).
  159.  
  160. Intrinsic groups: (standard FORTRAN 77).
  161.  
  162. Description:
  163.  
  164.    Archaic form of `DIM()' that is specific to one type for X and Y.
  165. *Note DiM Intrinsic::.
  166.  
  167. 
  168. File: g77.info,  Node: DErF Intrinsic,  Next: DErFC Intrinsic,  Prev: DDiM Intrinsic,  Up: Table of Intrinsic Functions
  169.  
  170. DErF Intrinsic
  171. ..............
  172.  
  173.      DErF(X)
  174.  
  175. DErF: `REAL(KIND=2)' function.
  176.  
  177. X: `REAL(KIND=2)'; scalar; INTENT(IN).
  178.  
  179. Intrinsic groups: `unix'.
  180.  
  181. Description:
  182.  
  183.    Archaic form of `ERF()' that is specific to one type for X.  *Note
  184. ErF Intrinsic::.
  185.  
  186. 
  187. File: g77.info,  Node: DErFC Intrinsic,  Next: DExp Intrinsic,  Prev: DErF Intrinsic,  Up: Table of Intrinsic Functions
  188.  
  189. DErFC Intrinsic
  190. ...............
  191.  
  192.      DErFC(X)
  193.  
  194. DErFC: `REAL(KIND=2)' function.
  195.  
  196. X: `REAL(KIND=2)'; scalar; INTENT(IN).
  197.  
  198. Intrinsic groups: `unix'.
  199.  
  200. Description:
  201.  
  202.    Archaic form of `ERFC()' that is specific to one type for X.  *Note
  203. ErFC Intrinsic::.
  204.  
  205. 
  206. File: g77.info,  Node: DExp Intrinsic,  Next: Digits Intrinsic,  Prev: DErFC Intrinsic,  Up: Table of Intrinsic Functions
  207.  
  208. DExp Intrinsic
  209. ..............
  210.  
  211.      DExp(X)
  212.  
  213. DExp: `REAL(KIND=2)' function.
  214.  
  215. X: `REAL(KIND=2)'; scalar; INTENT(IN).
  216.  
  217. Intrinsic groups: (standard FORTRAN 77).
  218.  
  219. Description:
  220.  
  221.    Archaic form of `EXP()' that is specific to one type for X.  *Note
  222. Exp Intrinsic::.
  223.  
  224. 
  225. File: g77.info,  Node: Digits Intrinsic,  Next: DiM Intrinsic,  Prev: DExp Intrinsic,  Up: Table of Intrinsic Functions
  226.  
  227. Digits Intrinsic
  228. ................
  229.  
  230.    This intrinsic is not yet implemented.  The name is, however,
  231. reserved as an intrinsic.  Use `EXTERNAL Digits' to use this name for an
  232. external procedure.
  233.  
  234. 
  235. File: g77.info,  Node: DiM Intrinsic,  Next: DInt Intrinsic,  Prev: Digits Intrinsic,  Up: Table of Intrinsic Functions
  236.  
  237. DiM Intrinsic
  238. .............
  239.  
  240.      DiM(X, Y)
  241.  
  242. DiM: `INTEGER' or `REAL' function, the exact type being the result of
  243. cross-promoting the types of all the arguments.
  244.  
  245. X: `INTEGER' or `REAL'; scalar; INTENT(IN).
  246.  
  247. Y: `INTEGER' or `REAL'; scalar; INTENT(IN).
  248.  
  249. Intrinsic groups: (standard FORTRAN 77).
  250.  
  251. Description:
  252.  
  253.    Returns `X-Y' if X is greater than Y; otherwise returns zero.
  254.  
  255. 
  256. File: g77.info,  Node: DInt Intrinsic,  Next: DLog Intrinsic,  Prev: DiM Intrinsic,  Up: Table of Intrinsic Functions
  257.  
  258. DInt Intrinsic
  259. ..............
  260.  
  261.      DInt(A)
  262.  
  263. DInt: `REAL(KIND=2)' function.
  264.  
  265. A: `REAL(KIND=2)'; scalar; INTENT(IN).
  266.  
  267. Intrinsic groups: (standard FORTRAN 77).
  268.  
  269. Description:
  270.  
  271.    Archaic form of `AINT()' that is specific to one type for A.  *Note
  272. AInt Intrinsic::.
  273.  
  274. 
  275. File: g77.info,  Node: DLog Intrinsic,  Next: DLog10 Intrinsic,  Prev: DInt Intrinsic,  Up: Table of Intrinsic Functions
  276.  
  277. DLog Intrinsic
  278. ..............
  279.  
  280.      DLog(X)
  281.  
  282. DLog: `REAL(KIND=2)' function.
  283.  
  284. X: `REAL(KIND=2)'; scalar; INTENT(IN).
  285.  
  286. Intrinsic groups: (standard FORTRAN 77).
  287.  
  288. Description:
  289.  
  290.    Archaic form of `LOG()' that is specific to one type for X.  *Note
  291. Log Intrinsic::.
  292.  
  293. 
  294. File: g77.info,  Node: DLog10 Intrinsic,  Next: DMax1 Intrinsic,  Prev: DLog Intrinsic,  Up: Table of Intrinsic Functions
  295.  
  296. DLog10 Intrinsic
  297. ................
  298.  
  299.      DLog10(X)
  300.  
  301. DLog10: `REAL(KIND=2)' function.
  302.  
  303. X: `REAL(KIND=2)'; scalar; INTENT(IN).
  304.  
  305. Intrinsic groups: (standard FORTRAN 77).
  306.  
  307. Description:
  308.  
  309.    Archaic form of `LOG10()' that is specific to one type for X.  *Note
  310. Log10 Intrinsic::.
  311.  
  312. 
  313. File: g77.info,  Node: DMax1 Intrinsic,  Next: DMin1 Intrinsic,  Prev: DLog10 Intrinsic,  Up: Table of Intrinsic Functions
  314.  
  315. DMax1 Intrinsic
  316. ...............
  317.  
  318.      DMax1(A-1, A-2, ..., A-n)
  319.  
  320. DMax1: `REAL(KIND=2)' function.
  321.  
  322. A: `REAL(KIND=2)'; at least two such arguments must be provided;
  323. scalar; INTENT(IN).
  324.  
  325. Intrinsic groups: (standard FORTRAN 77).
  326.  
  327. Description:
  328.  
  329.    Archaic form of `MAX()' that is specific to one type for A.  *Note
  330. Max Intrinsic::.
  331.  
  332. 
  333. File: g77.info,  Node: DMin1 Intrinsic,  Next: DMod Intrinsic,  Prev: DMax1 Intrinsic,  Up: Table of Intrinsic Functions
  334.  
  335. DMin1 Intrinsic
  336. ...............
  337.  
  338.      DMin1(A-1, A-2, ..., A-n)
  339.  
  340. DMin1: `REAL(KIND=2)' function.
  341.  
  342. A: `REAL(KIND=2)'; at least two such arguments must be provided;
  343. scalar; INTENT(IN).
  344.  
  345. Intrinsic groups: (standard FORTRAN 77).
  346.  
  347. Description:
  348.  
  349.    Archaic form of `MIN()' that is specific to one type for A.  *Note
  350. Min Intrinsic::.
  351.  
  352. 
  353. File: g77.info,  Node: DMod Intrinsic,  Next: DNInt Intrinsic,  Prev: DMin1 Intrinsic,  Up: Table of Intrinsic Functions
  354.  
  355. DMod Intrinsic
  356. ..............
  357.  
  358.      DMod(A, P)
  359.  
  360. DMod: `REAL(KIND=2)' function.
  361.  
  362. A: `REAL(KIND=2)'; scalar; INTENT(IN).
  363.  
  364. P: `REAL(KIND=2)'; scalar; INTENT(IN).
  365.  
  366. Intrinsic groups: (standard FORTRAN 77).
  367.  
  368. Description:
  369.  
  370.    Archaic form of `MOD()' that is specific to one type for A.  *Note
  371. Mod Intrinsic::.
  372.  
  373. 
  374. File: g77.info,  Node: DNInt Intrinsic,  Next: Dot_Product Intrinsic,  Prev: DMod Intrinsic,  Up: Table of Intrinsic Functions
  375.  
  376. DNInt Intrinsic
  377. ...............
  378.  
  379.      DNInt(A)
  380.  
  381. DNInt: `REAL(KIND=2)' function.
  382.  
  383. A: `REAL(KIND=2)'; scalar; INTENT(IN).
  384.  
  385. Intrinsic groups: (standard FORTRAN 77).
  386.  
  387. Description:
  388.  
  389.    Archaic form of `ANINT()' that is specific to one type for A.  *Note
  390. ANInt Intrinsic::.
  391.  
  392. 
  393. File: g77.info,  Node: Dot_Product Intrinsic,  Next: DProd Intrinsic,  Prev: DNInt Intrinsic,  Up: Table of Intrinsic Functions
  394.  
  395. Dot_Product Intrinsic
  396. .....................
  397.  
  398.    This intrinsic is not yet implemented.  The name is, however,
  399. reserved as an intrinsic.  Use `EXTERNAL Dot_Product' to use this name
  400. for an external procedure.
  401.  
  402. 
  403. File: g77.info,  Node: DProd Intrinsic,  Next: DSign Intrinsic,  Prev: Dot_Product Intrinsic,  Up: Table of Intrinsic Functions
  404.  
  405. DProd Intrinsic
  406. ...............
  407.  
  408.      DProd(X, Y)
  409.  
  410. DProd: `REAL(KIND=2)' function.
  411.  
  412. X: `REAL(KIND=1)'; scalar; INTENT(IN).
  413.  
  414. Y: `REAL(KIND=1)'; scalar; INTENT(IN).
  415.  
  416. Intrinsic groups: (standard FORTRAN 77).
  417.  
  418. Description:
  419.  
  420.    Returns `DBLE(X)*DBLE(Y)'.
  421.  
  422. 
  423. File: g77.info,  Node: DSign Intrinsic,  Next: DSin Intrinsic,  Prev: DProd Intrinsic,  Up: Table of Intrinsic Functions
  424.  
  425. DSign Intrinsic
  426. ...............
  427.  
  428.      DSign(A, B)
  429.  
  430. DSign: `REAL(KIND=2)' function.
  431.  
  432. A: `REAL(KIND=2)'; scalar; INTENT(IN).
  433.  
  434. B: `REAL(KIND=2)'; scalar; INTENT(IN).
  435.  
  436. Intrinsic groups: (standard FORTRAN 77).
  437.  
  438. Description:
  439.  
  440.    Archaic form of `SIGN()' that is specific to one type for A and B.
  441. *Note Sign Intrinsic::.
  442.  
  443. 
  444. File: g77.info,  Node: DSin Intrinsic,  Next: DSinH Intrinsic,  Prev: DSign Intrinsic,  Up: Table of Intrinsic Functions
  445.  
  446. DSin Intrinsic
  447. ..............
  448.  
  449.      DSin(X)
  450.  
  451. DSin: `REAL(KIND=2)' function.
  452.  
  453. X: `REAL(KIND=2)'; scalar; INTENT(IN).
  454.  
  455. Intrinsic groups: (standard FORTRAN 77).
  456.  
  457. Description:
  458.  
  459.    Archaic form of `SIN()' that is specific to one type for X.  *Note
  460. Sin Intrinsic::.
  461.  
  462. 
  463. File: g77.info,  Node: DSinH Intrinsic,  Next: DSqRt Intrinsic,  Prev: DSin Intrinsic,  Up: Table of Intrinsic Functions
  464.  
  465. DSinH Intrinsic
  466. ...............
  467.  
  468.      DSinH(X)
  469.  
  470. DSinH: `REAL(KIND=2)' function.
  471.  
  472. X: `REAL(KIND=2)'; scalar; INTENT(IN).
  473.  
  474. Intrinsic groups: (standard FORTRAN 77).
  475.  
  476. Description:
  477.  
  478.    Archaic form of `SINH()' that is specific to one type for X.  *Note
  479. SinH Intrinsic::.
  480.  
  481. 
  482. File: g77.info,  Node: DSqRt Intrinsic,  Next: DTan Intrinsic,  Prev: DSinH Intrinsic,  Up: Table of Intrinsic Functions
  483.  
  484. DSqRt Intrinsic
  485. ...............
  486.  
  487.      DSqRt(X)
  488.  
  489. DSqRt: `REAL(KIND=2)' function.
  490.  
  491. X: `REAL(KIND=2)'; scalar; INTENT(IN).
  492.  
  493. Intrinsic groups: (standard FORTRAN 77).
  494.  
  495. Description:
  496.  
  497.    Archaic form of `SQRT()' that is specific to one type for X.  *Note
  498. SqRt Intrinsic::.
  499.  
  500. 
  501. File: g77.info,  Node: DTan Intrinsic,  Next: DTanH Intrinsic,  Prev: DSqRt Intrinsic,  Up: Table of Intrinsic Functions
  502.  
  503. DTan Intrinsic
  504. ..............
  505.  
  506.      DTan(X)
  507.  
  508. DTan: `REAL(KIND=2)' function.
  509.  
  510. X: `REAL(KIND=2)'; scalar; INTENT(IN).
  511.  
  512. Intrinsic groups: (standard FORTRAN 77).
  513.  
  514. Description:
  515.  
  516.    Archaic form of `TAN()' that is specific to one type for X.  *Note
  517. Tan Intrinsic::.
  518.  
  519. 
  520. File: g77.info,  Node: DTanH Intrinsic,  Next: Dtime Intrinsic (subroutine),  Prev: DTan Intrinsic,  Up: Table of Intrinsic Functions
  521.  
  522. DTanH Intrinsic
  523. ...............
  524.  
  525.      DTanH(X)
  526.  
  527. DTanH: `REAL(KIND=2)' function.
  528.  
  529. X: `REAL(KIND=2)'; scalar; INTENT(IN).
  530.  
  531. Intrinsic groups: (standard FORTRAN 77).
  532.  
  533. Description:
  534.  
  535.    Archaic form of `TANH()' that is specific to one type for X.  *Note
  536. TanH Intrinsic::.
  537.  
  538. 
  539. File: g77.info,  Node: Dtime Intrinsic (subroutine),  Next: EOShift Intrinsic,  Prev: DTanH Intrinsic,  Up: Table of Intrinsic Functions
  540.  
  541. Dtime Intrinsic (subroutine)
  542. ............................
  543.  
  544.      CALL Dtime(RESULT, TARRAY)
  545.  
  546. RESULT: `REAL(KIND=1)'; scalar; INTENT(OUT).
  547.  
  548. TARRAY: `REAL(KIND=1)'; DIMENSION(2); INTENT(OUT).
  549.  
  550. Intrinsic groups: `unix'.
  551.  
  552. Description:
  553.  
  554.    Initially, return the number of seconds of runtime since the start
  555. of the process's execution in RESULT, and the user and system
  556. components of this in `TARRAY(1)' and `TARRAY(2)' respectively.  The
  557. value of RESULT is equal to `TARRAY(1) + TARRAY(2)'.
  558.  
  559.    Subsequent invocations of `DTIME()' set values based on accumulations
  560. since the previous invocation.
  561.  
  562.    Some non-GNU implementations of Fortran provide this intrinsic as
  563. only a function, not as a subroutine.
  564.  
  565.    For information on other intrinsics with the same name: *Note Dtime
  566. Intrinsic (function)::.
  567.  
  568. 
  569. File: g77.info,  Node: EOShift Intrinsic,  Next: Epsilon Intrinsic,  Prev: Dtime Intrinsic (subroutine),  Up: Table of Intrinsic Functions
  570.  
  571. EOShift Intrinsic
  572. .................
  573.  
  574.    This intrinsic is not yet implemented.  The name is, however,
  575. reserved as an intrinsic.  Use `EXTERNAL EOShift' to use this name for
  576. an external procedure.
  577.  
  578. 
  579. File: g77.info,  Node: Epsilon Intrinsic,  Next: ErF Intrinsic,  Prev: EOShift Intrinsic,  Up: Table of Intrinsic Functions
  580.  
  581. Epsilon Intrinsic
  582. .................
  583.  
  584.    This intrinsic is not yet implemented.  The name is, however,
  585. reserved as an intrinsic.  Use `EXTERNAL Epsilon' to use this name for
  586. an external procedure.
  587.  
  588. 
  589. File: g77.info,  Node: ErF Intrinsic,  Next: ErFC Intrinsic,  Prev: Epsilon Intrinsic,  Up: Table of Intrinsic Functions
  590.  
  591. ErF Intrinsic
  592. .............
  593.  
  594.      ErF(X)
  595.  
  596. ErF: `REAL' function, the `KIND=' value of the type being that of
  597. argument X.
  598.  
  599. X: `REAL'; scalar; INTENT(IN).
  600.  
  601. Intrinsic groups: `unix'.
  602.  
  603. Description:
  604.  
  605.    Returns the error function of X.  See `erf(3m)', which provides the
  606. implementation.
  607.  
  608. 
  609. File: g77.info,  Node: ErFC Intrinsic,  Next: ETime Intrinsic (subroutine),  Prev: ErF Intrinsic,  Up: Table of Intrinsic Functions
  610.  
  611. ErFC Intrinsic
  612. ..............
  613.  
  614.      ErFC(X)
  615.  
  616. ErFC: `REAL' function, the `KIND=' value of the type being that of
  617. argument X.
  618.  
  619. X: `REAL'; scalar; INTENT(IN).
  620.  
  621. Intrinsic groups: `unix'.
  622.  
  623. Description:
  624.  
  625.    Returns the complementary error function of X: `ERFC(R) = 1 -
  626. ERF(R)' (except that the result may be more accurate than explicitly
  627. evaluating that formulae would give).  See `erfc(3m)', which provides
  628. the implementation.
  629.  
  630. 
  631. File: g77.info,  Node: ETime Intrinsic (subroutine),  Next: ETime Intrinsic (function),  Prev: ErFC Intrinsic,  Up: Table of Intrinsic Functions
  632.  
  633. ETime Intrinsic (subroutine)
  634. ............................
  635.  
  636.      CALL ETime(RESULT, TARRAY)
  637.  
  638. RESULT: `REAL(KIND=1)'; scalar; INTENT(OUT).
  639.  
  640. TARRAY: `REAL(KIND=1)'; DIMENSION(2); INTENT(OUT).
  641.  
  642. Intrinsic groups: `unix'.
  643.  
  644. Description:
  645.  
  646.    Return the number of seconds of runtime since the start of the
  647. process's execution in RESULT, and the user and system components of
  648. this in `TARRAY(1)' and `TARRAY(2)' respectively.  The value of RESULT
  649. is equal to `TARRAY(1) + TARRAY(2)'.
  650.  
  651.    Some non-GNU implementations of Fortran provide this intrinsic as
  652. only a function, not as a subroutine.
  653.  
  654.    For information on other intrinsics with the same name: *Note ETime
  655. Intrinsic (function)::.
  656.  
  657. 
  658. File: g77.info,  Node: ETime Intrinsic (function),  Next: Exit Intrinsic,  Prev: ETime Intrinsic (subroutine),  Up: Table of Intrinsic Functions
  659.  
  660. ETime Intrinsic (function)
  661. ..........................
  662.  
  663.      ETime(TARRAY)
  664.  
  665. ETime: `REAL(KIND=1)' function.
  666.  
  667. TARRAY: `REAL(KIND=1)'; DIMENSION(2); INTENT(OUT).
  668.  
  669. Intrinsic groups: `unix'.
  670.  
  671. Description:
  672.  
  673.    Return the number of seconds of runtime since the start of the
  674. process's execution as the function value, and the user and system
  675. components of this in `TARRAY(1)' and `TARRAY(2)' respectively.  The
  676. functions' value is equal to `TARRAY(1) + TARRAY(2)'.
  677.  
  678.    For information on other intrinsics with the same name: *Note ETime
  679. Intrinsic (subroutine)::.
  680.  
  681. 
  682. File: g77.info,  Node: Exit Intrinsic,  Next: Exp Intrinsic,  Prev: ETime Intrinsic (function),  Up: Table of Intrinsic Functions
  683.  
  684. Exit Intrinsic
  685. ..............
  686.  
  687.      CALL Exit(STATUS)
  688.  
  689. STATUS: `INTEGER'; OPTIONAL; scalar; INTENT(IN).
  690.  
  691. Intrinsic groups: `unix'.
  692.  
  693. Description:
  694.  
  695.    Exit the program with status STATUS after closing open Fortran I/O
  696. units and otherwise behaving as `exit(2)'.  If STATUS is omitted the
  697. canonical `success' value will be returned to the system.
  698.  
  699. 
  700. File: g77.info,  Node: Exp Intrinsic,  Next: Exponent Intrinsic,  Prev: Exit Intrinsic,  Up: Table of Intrinsic Functions
  701.  
  702. Exp Intrinsic
  703. .............
  704.  
  705.      Exp(X)
  706.  
  707. Exp: `REAL' or `COMPLEX' function, the exact type being that of
  708. argument X.
  709.  
  710. X: `REAL' or `COMPLEX'; scalar; INTENT(IN).
  711.  
  712. Intrinsic groups: (standard FORTRAN 77).
  713.  
  714. Description:
  715.  
  716.    Returns `E**X', where E is approximately 2.7182818.
  717.  
  718.    *Note Log Intrinsic::, for the inverse of this function.
  719.  
  720. 
  721. File: g77.info,  Node: Exponent Intrinsic,  Next: Fdate Intrinsic (subroutine),  Prev: Exp Intrinsic,  Up: Table of Intrinsic Functions
  722.  
  723. Exponent Intrinsic
  724. ..................
  725.  
  726.    This intrinsic is not yet implemented.  The name is, however,
  727. reserved as an intrinsic.  Use `EXTERNAL Exponent' to use this name for
  728. an external procedure.
  729.  
  730. 
  731. File: g77.info,  Node: Fdate Intrinsic (subroutine),  Next: Fdate Intrinsic (function),  Prev: Exponent Intrinsic,  Up: Table of Intrinsic Functions
  732.  
  733. Fdate Intrinsic (subroutine)
  734. ............................
  735.  
  736.      CALL Fdate(DATE)
  737.  
  738. DATE: `CHARACTER'; scalar; INTENT(OUT).
  739.  
  740. Intrinsic groups: `unix'.
  741.  
  742. Description:
  743.  
  744.    Returns the current date (using the same format as `CTIME()') in
  745. DATE.
  746.  
  747.    Equivalent to:
  748.  
  749.      CALL CTIME(DATE, TIME8())
  750.  
  751.    *Note CTime Intrinsic (subroutine)::.
  752.  
  753.    Some non-GNU implementations of Fortran provide this intrinsic as
  754. only a function, not as a subroutine.
  755.  
  756.    For information on other intrinsics with the same name: *Note Fdate
  757. Intrinsic (function)::.
  758.  
  759. 
  760. File: g77.info,  Node: Fdate Intrinsic (function),  Next: FGet Intrinsic (subroutine),  Prev: Fdate Intrinsic (subroutine),  Up: Table of Intrinsic Functions
  761.  
  762. Fdate Intrinsic (function)
  763. ..........................
  764.  
  765.      Fdate()
  766.  
  767. Fdate: `CHARACTER*(*)' function.
  768.  
  769. Intrinsic groups: `unix'.
  770.  
  771. Description:
  772.  
  773.    Returns the current date (using the same format as `CTIME()').
  774.  
  775.    Equivalent to:
  776.  
  777.      CTIME(TIME8())
  778.  
  779.    *Note CTime Intrinsic (function)::.
  780.  
  781.    For information on other intrinsics with the same name: *Note Fdate
  782. Intrinsic (subroutine)::.
  783.  
  784. 
  785. File: g77.info,  Node: FGet Intrinsic (subroutine),  Next: FGetC Intrinsic (subroutine),  Prev: Fdate Intrinsic (function),  Up: Table of Intrinsic Functions
  786.  
  787. FGet Intrinsic (subroutine)
  788. ...........................
  789.  
  790.      CALL FGet(C, STATUS)
  791.  
  792. C: `CHARACTER'; scalar; INTENT(OUT).
  793.  
  794. STATUS: `INTEGER(KIND=1)'; OPTIONAL; scalar; INTENT(OUT).
  795.  
  796. Intrinsic groups: `unix'.
  797.  
  798. Description:
  799.  
  800.    Reads a single character into C in stream mode from unit 5
  801. (by-passing normal formatted output) using `getc(3)'.  Returns in
  802. STATUS 0 on success, -1 on end-of-file, and the error code from
  803. `ferror(3)' otherwise.
  804.  
  805.    Stream I/O should not be mixed with normal record-oriented
  806. (formatted or unformatted) I/O on the same unit; the results are
  807. unpredictable.
  808.  
  809.    For information on other intrinsics with the same name: *Note FGet
  810. Intrinsic (function)::.
  811.  
  812. 
  813. File: g77.info,  Node: FGetC Intrinsic (subroutine),  Next: Float Intrinsic,  Prev: FGet Intrinsic (subroutine),  Up: Table of Intrinsic Functions
  814.  
  815. FGetC Intrinsic (subroutine)
  816. ............................
  817.  
  818.      CALL FGetC(UNIT, C, STATUS)
  819.  
  820. UNIT: `INTEGER'; scalar; INTENT(IN).
  821.  
  822. C: `CHARACTER'; scalar; INTENT(OUT).
  823.  
  824. STATUS: `INTEGER(KIND=1)'; OPTIONAL; scalar; INTENT(OUT).
  825.  
  826. Intrinsic groups: `unix'.
  827.  
  828. Description:
  829.  
  830.    Reads a single character into C in stream mode from unit UNIT
  831. (by-passing normal formatted output) using `getc(3)'.  Returns in
  832. STATUS 0 on success, -1 on end-of-file, and the error code from
  833. `ferror(3)' otherwise.
  834.  
  835.    Stream I/O should not be mixed with normal record-oriented
  836. (formatted or unformatted) I/O on the same unit; the results are
  837. unpredictable.
  838.  
  839.    For information on other intrinsics with the same name: *Note FGetC
  840. Intrinsic (function)::.
  841.  
  842. 
  843. File: g77.info,  Node: Float Intrinsic,  Next: Floor Intrinsic,  Prev: FGetC Intrinsic (subroutine),  Up: Table of Intrinsic Functions
  844.  
  845. Float Intrinsic
  846. ...............
  847.  
  848.      Float(A)
  849.  
  850. Float: `REAL(KIND=1)' function.
  851.  
  852. A: `INTEGER'; scalar; INTENT(IN).
  853.  
  854. Intrinsic groups: (standard FORTRAN 77).
  855.  
  856. Description:
  857.  
  858.    Archaic form of `REAL()' that is specific to one type for A.  *Note
  859. Real Intrinsic::.
  860.  
  861. 
  862. File: g77.info,  Node: Floor Intrinsic,  Next: Flush Intrinsic,  Prev: Float Intrinsic,  Up: Table of Intrinsic Functions
  863.  
  864. Floor Intrinsic
  865. ...............
  866.  
  867.    This intrinsic is not yet implemented.  The name is, however,
  868. reserved as an intrinsic.  Use `EXTERNAL Floor' to use this name for an
  869. external procedure.
  870.  
  871. 
  872. File: g77.info,  Node: Flush Intrinsic,  Next: FNum Intrinsic,  Prev: Floor Intrinsic,  Up: Table of Intrinsic Functions
  873.  
  874. Flush Intrinsic
  875. ...............
  876.  
  877.      CALL Flush(UNIT)
  878.  
  879. UNIT: `INTEGER'; OPTIONAL; scalar; INTENT(IN).
  880.  
  881. Intrinsic groups: `unix'.
  882.  
  883. Description:
  884.  
  885.    Flushes Fortran unit(s) currently open for output.  Without the
  886. optional argument, all such units are flushed, otherwise just the unit
  887. specified by UNIT.
  888.  
  889.    Some non-GNU implementations of Fortran provide this intrinsic as a
  890. library procedure that might or might not support the (optional) UNIT
  891. argument.
  892.  
  893. 
  894. File: g77.info,  Node: FNum Intrinsic,  Next: FPut Intrinsic (subroutine),  Prev: Flush Intrinsic,  Up: Table of Intrinsic Functions
  895.  
  896. FNum Intrinsic
  897. ..............
  898.  
  899.      FNum(UNIT)
  900.  
  901. FNum: `INTEGER(KIND=1)' function.
  902.  
  903. UNIT: `INTEGER'; scalar; INTENT(IN).
  904.  
  905. Intrinsic groups: `unix'.
  906.  
  907. Description:
  908.  
  909.    Returns the Unix file descriptor number corresponding to the open
  910. Fortran I/O unit UNIT.  This could be passed to an interface to C I/O
  911. routines.
  912.  
  913. 
  914. File: g77.info,  Node: FPut Intrinsic (subroutine),  Next: FPutC Intrinsic (subroutine),  Prev: FNum Intrinsic,  Up: Table of Intrinsic Functions
  915.  
  916. FPut Intrinsic (subroutine)
  917. ...........................
  918.  
  919.      CALL FPut(C, STATUS)
  920.  
  921. C: `CHARACTER'; scalar; INTENT(IN).
  922.  
  923. STATUS: `INTEGER(KIND=1)'; OPTIONAL; scalar; INTENT(OUT).
  924.  
  925. Intrinsic groups: `unix'.
  926.  
  927. Description:
  928.  
  929.    Writes the single character C in stream mode to unit 6 (by-passing
  930. normal formatted output) using `putc(3)'.  Returns in STATUS 0 on
  931. success, the error code from `ferror(3)' otherwise.
  932.  
  933.    Stream I/O should not be mixed with normal record-oriented
  934. (formatted or unformatted) I/O on the same unit; the results are
  935. unpredictable.
  936.  
  937.    For information on other intrinsics with the same name: *Note FPut
  938. Intrinsic (function)::.
  939.  
  940. 
  941. File: g77.info,  Node: FPutC Intrinsic (subroutine),  Next: Fraction Intrinsic,  Prev: FPut Intrinsic (subroutine),  Up: Table of Intrinsic Functions
  942.  
  943. FPutC Intrinsic (subroutine)
  944. ............................
  945.  
  946.      CALL FPutC(UNIT, C, STATUS)
  947.  
  948. UNIT: `INTEGER'; scalar; INTENT(IN).
  949.  
  950. C: `CHARACTER'; scalar; INTENT(IN).
  951.  
  952. STATUS: `INTEGER(KIND=1)'; OPTIONAL; scalar; INTENT(OUT).
  953.  
  954. Intrinsic groups: `unix'.
  955.  
  956. Description:
  957.  
  958.    Writes the single character UNIT in stream mode to unit 6
  959. (by-passing normal formatted output) using `putc(3)'.  Returns in C 0
  960. on success, the error code from `ferror(3)' otherwise.
  961.  
  962.    Stream I/O should not be mixed with normal record-oriented
  963. (formatted or unformatted) I/O on the same unit; the results are
  964. unpredictable.
  965.  
  966.    For information on other intrinsics with the same name: *Note FPutC
  967. Intrinsic (function)::.
  968.  
  969. 
  970. File: g77.info,  Node: Fraction Intrinsic,  Next: FSeek Intrinsic,  Prev: FPutC Intrinsic (subroutine),  Up: Table of Intrinsic Functions
  971.  
  972. Fraction Intrinsic
  973. ..................
  974.  
  975.    This intrinsic is not yet implemented.  The name is, however,
  976. reserved as an intrinsic.  Use `EXTERNAL Fraction' to use this name for
  977. an external procedure.
  978.  
  979. 
  980. File: g77.info,  Node: FSeek Intrinsic,  Next: FStat Intrinsic (subroutine),  Prev: Fraction Intrinsic,  Up: Table of Intrinsic Functions
  981.  
  982. FSeek Intrinsic
  983. ...............
  984.  
  985.      CALL FSeek(UNIT, OFFSET, WHENCE, ERRLAB)
  986.  
  987. UNIT: `INTEGER'; scalar; INTENT(IN).
  988.  
  989. OFFSET: `INTEGER'; scalar; INTENT(IN).
  990.  
  991. WHENCE: `INTEGER'; scalar; INTENT(IN).
  992.  
  993. ERRLAB: `*LABEL', where LABEL is the label of an executable statement;
  994. OPTIONAL.
  995.  
  996. Intrinsic groups: `unix'.
  997.  
  998. Description:
  999.  
  1000.    Attempts to move Fortran unit UNIT to the specified OFFSET: absolute
  1001. offset if OFFSET=0; relative to the current offset if OFFSET=1;
  1002. relative to the end of the file if OFFSET=2.  It branches to label
  1003. WHENCE if UNIT is not open or if the call otherwise fails.
  1004.  
  1005. 
  1006. File: g77.info,  Node: FStat Intrinsic (subroutine),  Next: FStat Intrinsic (function),  Prev: FSeek Intrinsic,  Up: Table of Intrinsic Functions
  1007.  
  1008. FStat Intrinsic (subroutine)
  1009. ............................
  1010.  
  1011.      CALL FStat(UNIT, SARRAY, STATUS)
  1012.  
  1013. UNIT: `INTEGER'; scalar; INTENT(IN).
  1014.  
  1015. SARRAY: `INTEGER(KIND=1)'; DIMENSION(13); INTENT(OUT).
  1016.  
  1017. STATUS: `INTEGER(KIND=1)'; OPTIONAL; scalar; INTENT(OUT).
  1018.  
  1019. Intrinsic groups: `unix'.
  1020.  
  1021. Description:
  1022.  
  1023.    Obtains data about the file open on Fortran I/O unit UNIT and places
  1024. them in the array SARRAY.  The values in this array are extracted from
  1025. the `stat' structure as returned by `fstat(2)' q.v., as follows:
  1026.  
  1027.   1. File mode
  1028.  
  1029.   2. Inode number
  1030.  
  1031.   3. ID of device containing directory entry for file
  1032.  
  1033.   4. Device id (if relevant)
  1034.  
  1035.   5. Number of links
  1036.  
  1037.   6. Owner's uid
  1038.  
  1039.   7. Owner's gid
  1040.  
  1041.   8. File size (bytes)
  1042.  
  1043.   9. Last access time
  1044.  
  1045.  10. Last modification time
  1046.  
  1047.  11. Last file status change time
  1048.  
  1049.  12. Preferred I/O block size
  1050.  
  1051.  13. Number of blocks allocated
  1052.  
  1053.    Not all these elements are relevant on all systems.  If an element
  1054. is not relevant, it is returned as 0.
  1055.  
  1056.    If the STATUS argument is supplied, it contains 0 on success or a
  1057. non-zero error code upon return.
  1058.  
  1059.    Some non-GNU implementations of Fortran provide this intrinsic as
  1060. only a function, not as a subroutine, or do not support the (optional)
  1061. STATUS argument.
  1062.  
  1063.    For information on other intrinsics with the same name: *Note FStat
  1064. Intrinsic (function)::.
  1065.  
  1066. 
  1067. File: g77.info,  Node: FStat Intrinsic (function),  Next: FTell Intrinsic (subroutine),  Prev: FStat Intrinsic (subroutine),  Up: Table of Intrinsic Functions
  1068.  
  1069. FStat Intrinsic (function)
  1070. ..........................
  1071.  
  1072.      FStat(UNIT, SARRAY)
  1073.  
  1074. FStat: `INTEGER(KIND=1)' function.
  1075.  
  1076. UNIT: `INTEGER'; scalar; INTENT(IN).
  1077.  
  1078. SARRAY: `INTEGER(KIND=1)'; DIMENSION(13); INTENT(OUT).
  1079.  
  1080. Intrinsic groups: `unix'.
  1081.  
  1082. Description:
  1083.  
  1084.    Obtains data about the file open on Fortran I/O unit UNIT and places
  1085. them in the array SARRAY.  The values in this array are extracted from
  1086. the `stat' structure as returned by `fstat(2)' q.v., as follows:
  1087.  
  1088.   1. File mode
  1089.  
  1090.   2. Inode number
  1091.  
  1092.   3. ID of device containing directory entry for file
  1093.  
  1094.   4. Device id (if relevant)
  1095.  
  1096.   5. Number of links
  1097.  
  1098.   6. Owner's uid
  1099.  
  1100.   7. Owner's gid
  1101.  
  1102.   8. File size (bytes)
  1103.  
  1104.   9. Last access time
  1105.  
  1106.  10. Last modification time
  1107.  
  1108.  11. Last file status change time
  1109.  
  1110.  12. Preferred I/O block size
  1111.  
  1112.  13. Number of blocks allocated
  1113.  
  1114.    Not all these elements are relevant on all systems.  If an element
  1115. is not relevant, it is returned as 0.
  1116.  
  1117.    Returns 0 on success or a non-zero error code.
  1118.  
  1119.    For information on other intrinsics with the same name: *Note FStat
  1120. Intrinsic (subroutine)::.
  1121.  
  1122. 
  1123. File: g77.info,  Node: FTell Intrinsic (subroutine),  Next: FTell Intrinsic (function),  Prev: FStat Intrinsic (function),  Up: Table of Intrinsic Functions
  1124.  
  1125. FTell Intrinsic (subroutine)
  1126. ............................
  1127.  
  1128.      CALL FTell(UNIT, OFFSET)
  1129.  
  1130. UNIT: `INTEGER'; scalar; INTENT(IN).
  1131.  
  1132. OFFSET: `INTEGER(KIND=1)'; scalar; INTENT(OUT).
  1133.  
  1134. Intrinsic groups: `unix'.
  1135.  
  1136. Description:
  1137.  
  1138.    Sets OFFSET to the current offset of Fortran unit UNIT (or to -1 if
  1139. UNIT is not open).
  1140.  
  1141.    Some non-GNU implementations of Fortran provide this intrinsic as
  1142. only a function, not as a subroutine.
  1143.  
  1144.    For information on other intrinsics with the same name: *Note FTell
  1145. Intrinsic (function)::.
  1146.  
  1147. 
  1148. File: g77.info,  Node: FTell Intrinsic (function),  Next: GError Intrinsic,  Prev: FTell Intrinsic (subroutine),  Up: Table of Intrinsic Functions
  1149.  
  1150. FTell Intrinsic (function)
  1151. ..........................
  1152.  
  1153.      FTell(UNIT)
  1154.  
  1155. FTell: `INTEGER(KIND=1)' function.
  1156.  
  1157. UNIT: `INTEGER'; scalar; INTENT(IN).
  1158.  
  1159. Intrinsic groups: `unix'.
  1160.  
  1161. Description:
  1162.  
  1163.    Returns the current offset of Fortran unit UNIT (or -1 if UNIT is
  1164. not open).
  1165.  
  1166.    For information on other intrinsics with the same name: *Note FTell
  1167. Intrinsic (subroutine)::.
  1168.  
  1169. 
  1170. File: g77.info,  Node: GError Intrinsic,  Next: GetArg Intrinsic,  Prev: FTell Intrinsic (function),  Up: Table of Intrinsic Functions
  1171.  
  1172. GError Intrinsic
  1173. ................
  1174.  
  1175.      CALL GError(MESSAGE)
  1176.  
  1177. MESSAGE: `CHARACTER'; scalar; INTENT(OUT).
  1178.  
  1179. Intrinsic groups: `unix'.
  1180.  
  1181. Description:
  1182.  
  1183.    Returns the system error message corresponding to the last system
  1184. error (C `errno').
  1185.  
  1186. 
  1187. File: g77.info,  Node: GetArg Intrinsic,  Next: GetCWD Intrinsic (subroutine),  Prev: GError Intrinsic,  Up: Table of Intrinsic Functions
  1188.  
  1189. GetArg Intrinsic
  1190. ................
  1191.  
  1192.      CALL GetArg(POS, VALUE)
  1193.  
  1194. POS: `INTEGER'; scalar; INTENT(IN).
  1195.  
  1196. VALUE: `CHARACTER'; scalar; INTENT(OUT).
  1197.  
  1198. Intrinsic groups: `unix'.
  1199.  
  1200. Description:
  1201.  
  1202.    Sets VALUE to the POS-th command-line argument (or to all blanks if
  1203. there are fewer than VALUE command-line arguments); `CALL GETARG(0,
  1204. VALUE)' sets VALUE to the name of the program (on systems that support
  1205. this feature).
  1206.  
  1207.    *Note IArgC Intrinsic::, for information on how to get the number of
  1208. arguments.
  1209.  
  1210. 
  1211. File: g77.info,  Node: GetCWD Intrinsic (subroutine),  Next: GetCWD Intrinsic (function),  Prev: GetArg Intrinsic,  Up: Table of Intrinsic Functions
  1212.  
  1213. GetCWD Intrinsic (subroutine)
  1214. .............................
  1215.  
  1216.      CALL GetCWD(NAME, STATUS)
  1217.  
  1218. NAME: `CHARACTER'; scalar; INTENT(OUT).
  1219.  
  1220. STATUS: `INTEGER(KIND=1)'; OPTIONAL; scalar; INTENT(OUT).
  1221.  
  1222. Intrinsic groups: `unix'.
  1223.  
  1224. Description:
  1225.  
  1226.    Places the current working directory in NAME.  If the STATUS
  1227. argument is supplied, it contains 0 success or a non-zero error code
  1228. upon return (`ENOSYS' if the system does not provide `getcwd(3)' or
  1229. `getwd(3)').
  1230.  
  1231.    Some non-GNU implementations of Fortran provide this intrinsic as
  1232. only a function, not as a subroutine, or do not support the (optional)
  1233. STATUS argument.
  1234.  
  1235.    For information on other intrinsics with the same name: *Note GetCWD
  1236. Intrinsic (function)::.
  1237.  
  1238. 
  1239. File: g77.info,  Node: GetCWD Intrinsic (function),  Next: GetEnv Intrinsic,  Prev: GetCWD Intrinsic (subroutine),  Up: Table of Intrinsic Functions
  1240.  
  1241. GetCWD Intrinsic (function)
  1242. ...........................
  1243.  
  1244.      GetCWD(NAME)
  1245.  
  1246. GetCWD: `INTEGER(KIND=1)' function.
  1247.  
  1248. NAME: `CHARACTER'; scalar; INTENT(OUT).
  1249.  
  1250. Intrinsic groups: `unix'.
  1251.  
  1252. Description:
  1253.  
  1254.    Places the current working directory in NAME.  Returns 0 on success,
  1255. otherwise a non-zero error code (`ENOSYS' if the system does not
  1256. provide `getcwd(3)' or `getwd(3)').
  1257.  
  1258.    For information on other intrinsics with the same name: *Note GetCWD
  1259. Intrinsic (subroutine)::.
  1260.  
  1261. 
  1262. File: g77.info,  Node: GetEnv Intrinsic,  Next: GetGId Intrinsic,  Prev: GetCWD Intrinsic (function),  Up: Table of Intrinsic Functions
  1263.  
  1264. GetEnv Intrinsic
  1265. ................
  1266.  
  1267.      CALL GetEnv(NAME, VALUE)
  1268.  
  1269. NAME: `CHARACTER'; scalar; INTENT(IN).
  1270.  
  1271. VALUE: `CHARACTER'; scalar; INTENT(OUT).
  1272.  
  1273. Intrinsic groups: `unix'.
  1274.  
  1275. Description:
  1276.  
  1277.    Sets VALUE to the value of environment variable given by the value
  1278. of NAME (`$name' in shell terms) or to blanks if `$name' has not been
  1279. set.  A null character (`CHAR(0)') marks the end of the name in
  1280. NAME--otherwise, trailing blanks in NAME are ignored.
  1281.  
  1282. 
  1283. File: g77.info,  Node: GetGId Intrinsic,  Next: GetLog Intrinsic,  Prev: GetEnv Intrinsic,  Up: Table of Intrinsic Functions
  1284.  
  1285. GetGId Intrinsic
  1286. ................
  1287.  
  1288.      GetGId()
  1289.  
  1290. GetGId: `INTEGER(KIND=1)' function.
  1291.  
  1292. Intrinsic groups: `unix'.
  1293.  
  1294. Description:
  1295.  
  1296.    Returns the group id for the current process.
  1297.  
  1298. 
  1299. File: g77.info,  Node: GetLog Intrinsic,  Next: GetPId Intrinsic,  Prev: GetGId Intrinsic,  Up: Table of Intrinsic Functions
  1300.  
  1301. GetLog Intrinsic
  1302. ................
  1303.  
  1304.      CALL GetLog(LOGIN)
  1305.  
  1306. LOGIN: `CHARACTER'; scalar; INTENT(OUT).
  1307.  
  1308. Intrinsic groups: `unix'.
  1309.  
  1310. Description:
  1311.  
  1312.    Returns the login name for the process in LOGIN.
  1313.  
  1314. 
  1315. File: g77.info,  Node: GetPId Intrinsic,  Next: GetUId Intrinsic,  Prev: GetLog Intrinsic,  Up: Table of Intrinsic Functions
  1316.  
  1317. GetPId Intrinsic
  1318. ................
  1319.  
  1320.      GetPId()
  1321.  
  1322. GetPId: `INTEGER(KIND=1)' function.
  1323.  
  1324. Intrinsic groups: `unix'.
  1325.  
  1326. Description:
  1327.  
  1328.    Returns the process id for the current process.
  1329.  
  1330. 
  1331. File: g77.info,  Node: GetUId Intrinsic,  Next: GMTime Intrinsic,  Prev: GetPId Intrinsic,  Up: Table of Intrinsic Functions
  1332.  
  1333. GetUId Intrinsic
  1334. ................
  1335.  
  1336.      GetUId()
  1337.  
  1338. GetUId: `INTEGER(KIND=1)' function.
  1339.  
  1340. Intrinsic groups: `unix'.
  1341.  
  1342. Description:
  1343.  
  1344.    Returns the user id for the current process.
  1345.  
  1346. 
  1347. File: g77.info,  Node: GMTime Intrinsic,  Next: HostNm Intrinsic (subroutine),  Prev: GetUId Intrinsic,  Up: Table of Intrinsic Functions
  1348.  
  1349. GMTime Intrinsic
  1350. ................
  1351.  
  1352.      CALL GMTime(STIME, TARRAY)
  1353.  
  1354. STIME: `INTEGER(KIND=1)'; scalar; INTENT(IN).
  1355.  
  1356. TARRAY: `INTEGER(KIND=1)'; DIMENSION(9); INTENT(OUT).
  1357.  
  1358. Intrinsic groups: `unix'.
  1359.  
  1360. Description:
  1361.  
  1362.    Given a system time value STIME, fills TARRAY with values extracted
  1363. from it appropriate to the GMT time zone using `gmtime(3)'.
  1364.  
  1365.    The array elements are as follows:
  1366.  
  1367.   1. Seconds after the minute, range 0-59 or 0-61 to allow for leap
  1368.      seconds
  1369.  
  1370.   2. Minutes after the hour, range 0-59
  1371.  
  1372.   3. Hours past midnight, range 0-23
  1373.  
  1374.   4. Day of month, range 0-31
  1375.  
  1376.   5. Number of months since January, range 0-12
  1377.  
  1378.   6. Years since 1900
  1379.  
  1380.   7. Number of days since Sunday, range 0-6
  1381.  
  1382.   8. Days since January 1
  1383.  
  1384.   9. Daylight savings indicator: positive if daylight savings is in
  1385.      effect, zero if not, and negative if the information isn't
  1386.      available.
  1387.  
  1388. 
  1389. File: g77.info,  Node: HostNm Intrinsic (subroutine),  Next: HostNm Intrinsic (function),  Prev: GMTime Intrinsic,  Up: Table of Intrinsic Functions
  1390.  
  1391. HostNm Intrinsic (subroutine)
  1392. .............................
  1393.  
  1394.      CALL HostNm(NAME, STATUS)
  1395.  
  1396. NAME: `CHARACTER'; scalar; INTENT(OUT).
  1397.  
  1398. STATUS: `INTEGER(KIND=1)'; OPTIONAL; scalar; INTENT(OUT).
  1399.  
  1400. Intrinsic groups: `unix'.
  1401.  
  1402. Description:
  1403.  
  1404.    Fills NAME with the system's host name returned by `gethostname(2)'.
  1405. If the STATUS argument is supplied, it contains 0 on success or a
  1406. non-zero error code upon return (`ENOSYS' if the system does not
  1407. provide `gethostname(2)').
  1408.  
  1409.    Some non-GNU implementations of Fortran provide this intrinsic as
  1410. only a function, not as a subroutine, or do not support the (optional)
  1411. STATUS argument.
  1412.  
  1413.    For information on other intrinsics with the same name: *Note HostNm
  1414. Intrinsic (function)::.
  1415.  
  1416. 
  1417. File: g77.info,  Node: HostNm Intrinsic (function),  Next: Huge Intrinsic,  Prev: HostNm Intrinsic (subroutine),  Up: Table of Intrinsic Functions
  1418.  
  1419. HostNm Intrinsic (function)
  1420. ...........................
  1421.  
  1422.      HostNm(NAME)
  1423.  
  1424. HostNm: `INTEGER(KIND=1)' function.
  1425.  
  1426. NAME: `CHARACTER'; scalar; INTENT(OUT).
  1427.  
  1428. Intrinsic groups: `unix'.
  1429.  
  1430. Description:
  1431.  
  1432.    Fills NAME with the system's host name returned by `gethostname(2)',
  1433. returning 0 on success or a non-zero error code (`ENOSYS' if the system
  1434. does not provide `gethostname(2)').
  1435.  
  1436.    For information on other intrinsics with the same name: *Note HostNm
  1437. Intrinsic (subroutine)::.
  1438.  
  1439. 
  1440. File: g77.info,  Node: Huge Intrinsic,  Next: IAbs Intrinsic,  Prev: HostNm Intrinsic (function),  Up: Table of Intrinsic Functions
  1441.  
  1442. Huge Intrinsic
  1443. ..............
  1444.  
  1445.    This intrinsic is not yet implemented.  The name is, however,
  1446. reserved as an intrinsic.  Use `EXTERNAL Huge' to use this name for an
  1447. external procedure.
  1448.  
  1449. 
  1450. File: g77.info,  Node: IAbs Intrinsic,  Next: IAChar Intrinsic,  Prev: Huge Intrinsic,  Up: Table of Intrinsic Functions
  1451.  
  1452. IAbs Intrinsic
  1453. ..............
  1454.  
  1455.      IAbs(A)
  1456.  
  1457. IAbs: `INTEGER(KIND=1)' function.
  1458.  
  1459. A: `INTEGER(KIND=1)'; scalar; INTENT(IN).
  1460.  
  1461. Intrinsic groups: (standard FORTRAN 77).
  1462.  
  1463. Description:
  1464.  
  1465.    Archaic form of `ABS()' that is specific to one type for A.  *Note
  1466. Abs Intrinsic::.
  1467.  
  1468. 
  1469. File: g77.info,  Node: IAChar Intrinsic,  Next: IAnd Intrinsic,  Prev: IAbs Intrinsic,  Up: Table of Intrinsic Functions
  1470.  
  1471. IAChar Intrinsic
  1472. ................
  1473.  
  1474.      IAChar(C)
  1475.  
  1476. IAChar: `INTEGER(KIND=1)' function.
  1477.  
  1478. C: `CHARACTER'; scalar; INTENT(IN).
  1479.  
  1480. Intrinsic groups: `f2c', `f90'.
  1481.  
  1482. Description:
  1483.  
  1484.    Returns the code for the ASCII character in the first character
  1485. position of C.
  1486.  
  1487.    *Note AChar Intrinsic::, for the inverse of this function.
  1488.  
  1489.    *Note IChar Intrinsic::, for the function corresponding to the
  1490. system's native character set.
  1491.  
  1492. 
  1493. File: g77.info,  Node: IAnd Intrinsic,  Next: IArgC Intrinsic,  Prev: IAChar Intrinsic,  Up: Table of Intrinsic Functions
  1494.  
  1495. IAnd Intrinsic
  1496. ..............
  1497.  
  1498.      IAnd(I, J)
  1499.  
  1500. IAnd: `INTEGER' function, the exact type being the result of
  1501. cross-promoting the types of all the arguments.
  1502.  
  1503. I: `INTEGER'; scalar; INTENT(IN).
  1504.  
  1505. J: `INTEGER'; scalar; INTENT(IN).
  1506.  
  1507. Intrinsic groups: `mil', `f90', `vxt'.
  1508.  
  1509. Description:
  1510.  
  1511.    Returns value resulting from boolean AND of pair of bits in each of
  1512. I and J.
  1513.  
  1514. 
  1515. File: g77.info,  Node: IArgC Intrinsic,  Next: IBClr Intrinsic,  Prev: IAnd Intrinsic,  Up: Table of Intrinsic Functions
  1516.  
  1517. IArgC Intrinsic
  1518. ...............
  1519.  
  1520.      IArgC()
  1521.  
  1522. IArgC: `INTEGER(KIND=1)' function.
  1523.  
  1524. Intrinsic groups: `unix'.
  1525.  
  1526. Description:
  1527.  
  1528.    Returns the number of command-line arguments.
  1529.  
  1530.    This count does not include the specification of the program name
  1531. itself.
  1532.  
  1533. 
  1534. File: g77.info,  Node: IBClr Intrinsic,  Next: IBits Intrinsic,  Prev: IArgC Intrinsic,  Up: Table of Intrinsic Functions
  1535.  
  1536. IBClr Intrinsic
  1537. ...............
  1538.  
  1539.      IBClr(I, POS)
  1540.  
  1541. IBClr: `INTEGER' function, the `KIND=' value of the type being that of
  1542. argument I.
  1543.  
  1544. I: `INTEGER'; scalar; INTENT(IN).
  1545.  
  1546. POS: `INTEGER'; scalar; INTENT(IN).
  1547.  
  1548. Intrinsic groups: `mil', `f90', `vxt'.
  1549.  
  1550. Description:
  1551.  
  1552.    Returns the value of I with bit POS cleared (set to zero).  *Note
  1553. BTest Intrinsic:: for information on bit positions.
  1554.  
  1555. 
  1556. File: g77.info,  Node: IBits Intrinsic,  Next: IBSet Intrinsic,  Prev: IBClr Intrinsic,  Up: Table of Intrinsic Functions
  1557.  
  1558. IBits Intrinsic
  1559. ...............
  1560.  
  1561.      IBits(I, POS, LEN)
  1562.  
  1563. IBits: `INTEGER' function, the `KIND=' value of the type being that of
  1564. argument I.
  1565.  
  1566. I: `INTEGER'; scalar; INTENT(IN).
  1567.  
  1568. POS: `INTEGER'; scalar; INTENT(IN).
  1569.  
  1570. LEN: `INTEGER'; scalar; INTENT(IN).
  1571.  
  1572. Intrinsic groups: `mil', `f90', `vxt'.
  1573.  
  1574. Description:
  1575.  
  1576.    Extracts a subfield of length LEN from I, starting from bit position
  1577. POS and extending left for LEN bits.  The result is right-justified and
  1578. the remaining bits are zeroed.  The value of `POS+LEN' must be less
  1579. than or equal to the value `BIT_SIZE(I)'.  *Note Bit_Size Intrinsic::.
  1580.  
  1581. 
  1582. File: g77.info,  Node: IBSet Intrinsic,  Next: IChar Intrinsic,  Prev: IBits Intrinsic,  Up: Table of Intrinsic Functions
  1583.  
  1584. IBSet Intrinsic
  1585. ...............
  1586.  
  1587.      IBSet(I, POS)
  1588.  
  1589. IBSet: `INTEGER' function, the `KIND=' value of the type being that of
  1590. argument I.
  1591.  
  1592. I: `INTEGER'; scalar; INTENT(IN).
  1593.  
  1594. POS: `INTEGER'; scalar; INTENT(IN).
  1595.  
  1596. Intrinsic groups: `mil', `f90', `vxt'.
  1597.  
  1598. Description:
  1599.  
  1600.    Returns the value of I with bit POS set (to one).  *Note BTest
  1601. Intrinsic:: for information on bit positions.
  1602.  
  1603. 
  1604. File: g77.info,  Node: IChar Intrinsic,  Next: IDate Intrinsic (UNIX),  Prev: IBSet Intrinsic,  Up: Table of Intrinsic Functions
  1605.  
  1606. IChar Intrinsic
  1607. ...............
  1608.  
  1609.      IChar(C)
  1610.  
  1611. IChar: `INTEGER(KIND=1)' function.
  1612.  
  1613. C: `CHARACTER'; scalar; INTENT(IN).
  1614.  
  1615. Intrinsic groups: (standard FORTRAN 77).
  1616.  
  1617. Description:
  1618.  
  1619.    Returns the code for the character in the first character position
  1620. of C.
  1621.  
  1622.    Because the system's native character set is used, the
  1623. correspondence between character and their codes is not necessarily the
  1624. same between GNU Fortran implementations.
  1625.  
  1626.    Note that no intrinsic exists to convert a printable character
  1627. string to a numerical value.  For example, there is no intrinsic that,
  1628. given the `CHARACTER' value `'154'', returns an `INTEGER' or `REAL'
  1629. value with the value `154'.
  1630.  
  1631.    Instead, you can use internal-file I/O to do this kind of conversion.
  1632. For example:
  1633.  
  1634.      INTEGER VALUE
  1635.      CHARACTER*10 STRING
  1636.      STRING = '154'
  1637.      READ (STRING, '(I10)'), VALUE
  1638.      PRINT *, VALUE
  1639.      END
  1640.  
  1641.    The above program, when run, prints:
  1642.  
  1643.       154
  1644.  
  1645.    *Note Char Intrinsic::, for the inverse of the `ICHAR' function.
  1646.  
  1647.    *Note IAChar Intrinsic::, for the function corresponding to the
  1648. ASCII character set.
  1649.  
  1650. 
  1651. File: g77.info,  Node: IDate Intrinsic (UNIX),  Next: IDiM Intrinsic,  Prev: IChar Intrinsic,  Up: Table of Intrinsic Functions
  1652.  
  1653. IDate Intrinsic (UNIX)
  1654. ......................
  1655.  
  1656.      CALL IDate(TARRAY)
  1657.  
  1658. TARRAY: `INTEGER(KIND=1)'; DIMENSION(3); INTENT(OUT).
  1659.  
  1660. Intrinsic groups: `unix'.
  1661.  
  1662. Description:
  1663.  
  1664.    Fills TARRAY with the numerical values at the current local time of
  1665. day, month (in the range 1-12), and year in elements 1, 2, and 3,
  1666. respectively.  The year has four significant digits.
  1667.  
  1668.    For information on other intrinsics with the same name: *Note IDate
  1669. Intrinsic (VXT)::.
  1670.  
  1671. 
  1672. File: g77.info,  Node: IDiM Intrinsic,  Next: IDInt Intrinsic,  Prev: IDate Intrinsic (UNIX),  Up: Table of Intrinsic Functions
  1673.  
  1674. IDiM Intrinsic
  1675. ..............
  1676.  
  1677.      IDiM(X, Y)
  1678.  
  1679. IDiM: `INTEGER(KIND=1)' function.
  1680.  
  1681. X: `INTEGER(KIND=1)'; scalar; INTENT(IN).
  1682.  
  1683. Y: `INTEGER(KIND=1)'; scalar; INTENT(IN).
  1684.  
  1685. Intrinsic groups: (standard FORTRAN 77).
  1686.  
  1687. Description:
  1688.  
  1689.    Archaic form of `DIM()' that is specific to one type for X and Y.
  1690. *Note DiM Intrinsic::.
  1691.  
  1692. 
  1693. File: g77.info,  Node: IDInt Intrinsic,  Next: IDNInt Intrinsic,  Prev: IDiM Intrinsic,  Up: Table of Intrinsic Functions
  1694.  
  1695. IDInt Intrinsic
  1696. ...............
  1697.  
  1698.      IDInt(A)
  1699.  
  1700. IDInt: `INTEGER(KIND=1)' function.
  1701.  
  1702. A: `REAL(KIND=2)'; scalar; INTENT(IN).
  1703.  
  1704. Intrinsic groups: (standard FORTRAN 77).
  1705.  
  1706. Description:
  1707.  
  1708.    Archaic form of `INT()' that is specific to one type for A.  *Note
  1709. Int Intrinsic::.
  1710.  
  1711. 
  1712. File: g77.info,  Node: IDNInt Intrinsic,  Next: IEOr Intrinsic,  Prev: IDInt Intrinsic,  Up: Table of Intrinsic Functions
  1713.  
  1714. IDNInt Intrinsic
  1715. ................
  1716.  
  1717.      IDNInt(A)
  1718.  
  1719. IDNInt: `INTEGER(KIND=1)' function.
  1720.  
  1721. A: `REAL(KIND=2)'; scalar; INTENT(IN).
  1722.  
  1723. Intrinsic groups: (standard FORTRAN 77).
  1724.  
  1725. Description:
  1726.  
  1727.    Archaic form of `NINT()' that is specific to one type for A.  *Note
  1728. NInt Intrinsic::.
  1729.  
  1730. 
  1731. File: g77.info,  Node: IEOr Intrinsic,  Next: IErrNo Intrinsic,  Prev: IDNInt Intrinsic,  Up: Table of Intrinsic Functions
  1732.  
  1733. IEOr Intrinsic
  1734. ..............
  1735.  
  1736.      IEOr(I, J)
  1737.  
  1738. IEOr: `INTEGER' function, the exact type being the result of
  1739. cross-promoting the types of all the arguments.
  1740.  
  1741. I: `INTEGER'; scalar; INTENT(IN).
  1742.  
  1743. J: `INTEGER'; scalar; INTENT(IN).
  1744.  
  1745. Intrinsic groups: `mil', `f90', `vxt'.
  1746.  
  1747. Description:
  1748.  
  1749.    Returns value resulting from boolean exclusive-OR of pair of bits in
  1750. each of I and J.
  1751.  
  1752. 
  1753. File: g77.info,  Node: IErrNo Intrinsic,  Next: IFix Intrinsic,  Prev: IEOr Intrinsic,  Up: Table of Intrinsic Functions
  1754.  
  1755. IErrNo Intrinsic
  1756. ................
  1757.  
  1758.      IErrNo()
  1759.  
  1760. IErrNo: `INTEGER(KIND=1)' function.
  1761.  
  1762. Intrinsic groups: `unix'.
  1763.  
  1764. Description:
  1765.  
  1766.    Returns the last system error number (corresponding to the C
  1767. `errno').
  1768.  
  1769. 
  1770. File: g77.info,  Node: IFix Intrinsic,  Next: Imag Intrinsic,  Prev: IErrNo Intrinsic,  Up: Table of Intrinsic Functions
  1771.  
  1772. IFix Intrinsic
  1773. ..............
  1774.  
  1775.      IFix(A)
  1776.  
  1777. IFix: `INTEGER(KIND=1)' function.
  1778.  
  1779. A: `REAL(KIND=1)'; scalar; INTENT(IN).
  1780.  
  1781. Intrinsic groups: (standard FORTRAN 77).
  1782.  
  1783. Description:
  1784.  
  1785.    Archaic form of `INT()' that is specific to one type for A.  *Note
  1786. Int Intrinsic::.
  1787.  
  1788. 
  1789. File: g77.info,  Node: Imag Intrinsic,  Next: ImagPart Intrinsic,  Prev: IFix Intrinsic,  Up: Table of Intrinsic Functions
  1790.  
  1791. Imag Intrinsic
  1792. ..............
  1793.  
  1794.      Imag(Z)
  1795.  
  1796. Imag: `REAL' function, the `KIND=' value of the type being that of
  1797. argument Z.
  1798.  
  1799. Z: `COMPLEX'; scalar; INTENT(IN).
  1800.  
  1801. Intrinsic groups: `f2c'.
  1802.  
  1803. Description:
  1804.  
  1805.    The imaginary part of Z is returned, without conversion.
  1806.  
  1807.    *Note:* The way to do this in standard Fortran 90 is `AIMAG(Z)'.
  1808. However, when, for example, Z is `DOUBLE COMPLEX', `AIMAG(Z)' means
  1809. something different for some compilers that are not true Fortran 90
  1810. compilers but offer some extensions standardized by Fortran 90 (such as
  1811. the `DOUBLE COMPLEX' type, also known as `COMPLEX(KIND=2)').
  1812.  
  1813.    The advantage of `IMAG()' is that, while not necessarily more or
  1814. less portable than `AIMAG()', it is more likely to cause a compiler
  1815. that doesn't support it to produce a diagnostic than generate incorrect
  1816. code.
  1817.  
  1818.    *Note REAL() and AIMAG() of Complex::, for more information.
  1819.  
  1820. 
  1821. File: g77.info,  Node: ImagPart Intrinsic,  Next: Index Intrinsic,  Prev: Imag Intrinsic,  Up: Table of Intrinsic Functions
  1822.  
  1823. ImagPart Intrinsic
  1824. ..................
  1825.  
  1826.      ImagPart(Z)
  1827.  
  1828. ImagPart: `REAL' function, the `KIND=' value of the type being that of
  1829. argument Z.
  1830.  
  1831. Z: `COMPLEX'; scalar; INTENT(IN).
  1832.  
  1833. Intrinsic groups: `gnu'.
  1834.  
  1835. Description:
  1836.  
  1837.    The imaginary part of Z is returned, without conversion.
  1838.  
  1839.    *Note:* The way to do this in standard Fortran 90 is `AIMAG(Z)'.
  1840. However, when, for example, Z is `DOUBLE COMPLEX', `AIMAG(Z)' means
  1841. something different for some compilers that are not true Fortran 90
  1842. compilers but offer some extensions standardized by Fortran 90 (such as
  1843. the `DOUBLE COMPLEX' type, also known as `COMPLEX(KIND=2)').
  1844.  
  1845.    The advantage of `IMAGPART()' is that, while not necessarily more or
  1846. less portable than `AIMAG()', it is more likely to cause a compiler
  1847. that doesn't support it to produce a diagnostic than generate incorrect
  1848. code.
  1849.  
  1850.    *Note REAL() and AIMAG() of Complex::, for more information.
  1851.  
  1852. 
  1853. File: g77.info,  Node: Index Intrinsic,  Next: Int Intrinsic,  Prev: ImagPart Intrinsic,  Up: Table of Intrinsic Functions
  1854.  
  1855. Index Intrinsic
  1856. ...............
  1857.  
  1858.      Index(STRING, SUBSTRING)
  1859.  
  1860. Index: `INTEGER(KIND=1)' function.
  1861.  
  1862. STRING: `CHARACTER'; scalar; INTENT(IN).
  1863.  
  1864. SUBSTRING: `CHARACTER'; scalar; INTENT(IN).
  1865.  
  1866. Intrinsic groups: (standard FORTRAN 77).
  1867.  
  1868. Description:
  1869.  
  1870.    Returns the position of the start of the first occurrence of string
  1871. SUBSTRING as a substring in STRING, counting from one.  If SUBSTRING
  1872. doesn't occur in STRING, zero is returned.
  1873.  
  1874. 
  1875. File: g77.info,  Node: Int Intrinsic,  Next: Int2 Intrinsic,  Prev: Index Intrinsic,  Up: Table of Intrinsic Functions
  1876.  
  1877. Int Intrinsic
  1878. .............
  1879.  
  1880.      Int(A)
  1881.  
  1882. Int: `INTEGER(KIND=1)' function.
  1883.  
  1884. A: `INTEGER', `REAL', or `COMPLEX'; scalar; INTENT(IN).
  1885.  
  1886. Intrinsic groups: (standard FORTRAN 77).
  1887.  
  1888. Description:
  1889.  
  1890.    Returns A with the fractional portion of its magnitude truncated and
  1891. its sign preserved, converted to type `INTEGER(KIND=1)'.
  1892.  
  1893.    If A is type `COMPLEX', its real part is truncated and converted,
  1894. and its imaginary part is disregarded.
  1895.  
  1896.    *Note NInt Intrinsic::, for how to convert, rounded to nearest whole
  1897. number.
  1898.  
  1899.    *Note AInt Intrinsic::, for how to truncate to whole number without
  1900. converting.
  1901.  
  1902. 
  1903. File: g77.info,  Node: Int2 Intrinsic,  Next: Int8 Intrinsic,  Prev: Int Intrinsic,  Up: Table of Intrinsic Functions
  1904.  
  1905. Int2 Intrinsic
  1906. ..............
  1907.  
  1908.      Int2(A)
  1909.  
  1910. Int2: `INTEGER(KIND=6)' function.
  1911.  
  1912. A: `INTEGER'; scalar; INTENT(IN).
  1913.  
  1914. Intrinsic groups: `gnu'.
  1915.  
  1916. Description:
  1917.  
  1918.    Returns A with the fractional portion of its magnitude truncated and
  1919. its sign preserved, converted to type `INTEGER(KIND=6)'.
  1920.  
  1921.    If A is type `COMPLEX', its real part is truncated and converted,
  1922. and its imaginary part is disgregarded.
  1923.  
  1924.    *Note Int Intrinsic::.
  1925.  
  1926.    The precise meaning of this intrinsic might change in a future
  1927. version of the GNU Fortran language, as more is learned about how it is
  1928. used.
  1929.  
  1930. 
  1931. File: g77.info,  Node: Int8 Intrinsic,  Next: IOr Intrinsic,  Prev: Int2 Intrinsic,  Up: Table of Intrinsic Functions
  1932.  
  1933. Int8 Intrinsic
  1934. ..............
  1935.  
  1936.      Int8(A)
  1937.  
  1938. Int8: `INTEGER(KIND=2)' function.
  1939.  
  1940. A: `INTEGER'; scalar; INTENT(IN).
  1941.  
  1942. Intrinsic groups: `gnu'.
  1943.  
  1944. Description:
  1945.  
  1946.    Returns A with the fractional portion of its magnitude truncated and
  1947. its sign preserved, converted to type `INTEGER(KIND=2)'.
  1948.  
  1949.    If A is type `COMPLEX', its real part is truncated and converted,
  1950. and its imaginary part is disgregarded.
  1951.  
  1952.    *Note Int Intrinsic::.
  1953.  
  1954.    The precise meaning of this intrinsic might change in a future
  1955. version of the GNU Fortran language, as more is learned about how it is
  1956. used.
  1957.  
  1958. 
  1959. File: g77.info,  Node: IOr Intrinsic,  Next: IRand Intrinsic,  Prev: Int8 Intrinsic,  Up: Table of Intrinsic Functions
  1960.  
  1961. IOr Intrinsic
  1962. .............
  1963.  
  1964.      IOr(I, J)
  1965.  
  1966. IOr: `INTEGER' function, the exact type being the result of
  1967. cross-promoting the types of all the arguments.
  1968.  
  1969. I: `INTEGER'; scalar; INTENT(IN).
  1970.  
  1971. J: `INTEGER'; scalar; INTENT(IN).
  1972.  
  1973. Intrinsic groups: `mil', `f90', `vxt'.
  1974.  
  1975. Description:
  1976.  
  1977.    Returns value resulting from boolean OR of pair of bits in each of I
  1978. and J.
  1979.  
  1980. 
  1981. File: g77.info,  Node: IRand Intrinsic,  Next: IsaTty Intrinsic,  Prev: IOr Intrinsic,  Up: Table of Intrinsic Functions
  1982.  
  1983. IRand Intrinsic
  1984. ...............
  1985.  
  1986.      IRand(FLAG)
  1987.  
  1988. IRand: `INTEGER(KIND=1)' function.
  1989.  
  1990. FLAG: `INTEGER'; OPTIONAL; scalar; INTENT(IN).
  1991.  
  1992. Intrinsic groups: `unix'.
  1993.  
  1994. Description:
  1995.  
  1996.    Returns a uniform quasi-random number up to a system-dependent limit.
  1997. If FLAG is 0, the next number in sequence is returned; if FLAG is 1,
  1998. the generator is restarted by calling the UNIX function `srand(0)'; if
  1999. FLAG has any other value, it is used as a new seed with `srand()'.
  2000.  
  2001.    *Note SRand Intrinsic::.
  2002.  
  2003.    *Note:* As typically implemented (by the routine of the same name in
  2004. the C library), this random number generator is a very poor one, though
  2005. the BSD and GNU libraries provide a much better implementation than the
  2006. `traditional' one.  On a different system you almost certainly want to
  2007. use something better.
  2008.  
  2009. 
  2010. File: g77.info,  Node: IsaTty Intrinsic,  Next: IShft Intrinsic,  Prev: IRand Intrinsic,  Up: Table of Intrinsic Functions
  2011.  
  2012. IsaTty Intrinsic
  2013. ................
  2014.  
  2015.      IsaTty(UNIT)
  2016.  
  2017. IsaTty: `LOGICAL(KIND=1)' function.
  2018.  
  2019. UNIT: `INTEGER'; scalar; INTENT(IN).
  2020.  
  2021. Intrinsic groups: `unix'.
  2022.  
  2023. Description:
  2024.  
  2025.    Returns `.TRUE.' if and only if the Fortran I/O unit specified by
  2026. UNIT is connected to a terminal device.  See `isatty(3)'.
  2027.  
  2028. 
  2029. File: g77.info,  Node: IShft Intrinsic,  Next: IShftC Intrinsic,  Prev: IsaTty Intrinsic,  Up: Table of Intrinsic Functions
  2030.  
  2031. IShft Intrinsic
  2032. ...............
  2033.  
  2034.      IShft(I, SHIFT)
  2035.  
  2036. IShft: `INTEGER' function, the `KIND=' value of the type being that of
  2037. argument I.
  2038.  
  2039. I: `INTEGER'; scalar; INTENT(IN).
  2040.  
  2041. SHIFT: `INTEGER'; scalar; INTENT(IN).
  2042.  
  2043. Intrinsic groups: `mil', `f90', `vxt'.
  2044.  
  2045. Description:
  2046.  
  2047.    All bits representing I are shifted SHIFT places.  `SHIFT.GT.0'
  2048. indicates a left shift, `SHIFT.EQ.0' indicates no shift and
  2049. `SHIFT.LT.0' indicates a right shift.  If the absolute value of the
  2050. shift count is greater than `BIT_SIZE(I)', the result is undefined.
  2051. Bits shifted out from the left end or the right end, as the case may be,
  2052. are lost.  Zeros are shifted in from the opposite end.
  2053.  
  2054.    *Note IShftC Intrinsic:: for the circular-shift equivalent.
  2055.  
  2056.