* sh.c (prepare_move_operand): Check if operand 0 is an invalid
[official-gcc.git] / gcc / f / intdoc.texi
blob7de42578d1a4c8237c7acd682d34fc704344d2c2
1 @c This file is automatically derived from intdoc.c, intdoc.in,
2 @c ansify.c, intrin.def, and intrin.h.  Edit those files instead.
3 @menu
4 @ifset familyF2U
5 * Abort Intrinsic::     Abort the program.
6 @end ifset
7 @ifset familyF77
8 * Abs Intrinsic::       Absolute value.
9 @end ifset
10 @ifset familyF2U
11 * Access Intrinsic::    Check file accessibility.
12 @end ifset
13 @ifset familyASC
14 * AChar Intrinsic::     ASCII character from code.
15 @end ifset
16 @ifset familyF77
17 * ACos Intrinsic::      Arc cosine.
18 @end ifset
19 @ifset familyVXT
20 * ACosD Intrinsic::     (Reserved for future use.)
21 @end ifset
22 @ifset familyF90
23 * AdjustL Intrinsic::   (Reserved for future use.)
24 * AdjustR Intrinsic::   (Reserved for future use.)
25 @end ifset
26 @ifset familyF77
27 * AImag Intrinsic::     Convert/extract imaginary part of complex.
28 @end ifset
29 @ifset familyVXT
30 * AIMax0 Intrinsic::    (Reserved for future use.)
31 * AIMin0 Intrinsic::    (Reserved for future use.)
32 @end ifset
33 @ifset familyF77
34 * AInt Intrinsic::      Truncate to whole number.
35 @end ifset
36 @ifset familyVXT
37 * AJMax0 Intrinsic::    (Reserved for future use.)
38 * AJMin0 Intrinsic::    (Reserved for future use.)
39 @end ifset
40 @ifset familyF2U
41 * Alarm Intrinsic::     Execute a routine after a given delay.
42 @end ifset
43 @ifset familyF90
44 * All Intrinsic::       (Reserved for future use.)
45 * Allocated Intrinsic:: (Reserved for future use.)
46 @end ifset
47 @ifset familyF77
48 * ALog Intrinsic::      Natural logarithm (archaic).
49 * ALog10 Intrinsic::    Common logarithm (archaic).
50 * AMax0 Intrinsic::     Maximum value (archaic).
51 * AMax1 Intrinsic::     Maximum value (archaic).
52 * AMin0 Intrinsic::     Minimum value (archaic).
53 * AMin1 Intrinsic::     Minimum value (archaic).
54 * AMod Intrinsic::      Remainder (archaic).
55 @end ifset
56 @ifset familyF2C
57 * And Intrinsic::       Boolean AND.
58 @end ifset
59 @ifset familyF77
60 * ANInt Intrinsic::     Round to nearest whole number.
61 @end ifset
62 @ifset familyF90
63 * Any Intrinsic::       (Reserved for future use.)
64 @end ifset
65 @ifset familyF77
66 * ASin Intrinsic::      Arc sine.
67 @end ifset
68 @ifset familyVXT
69 * ASinD Intrinsic::     (Reserved for future use.)
70 @end ifset
71 @ifset familyF90
72 * Associated Intrinsic:: (Reserved for future use.)
73 @end ifset
74 @ifset familyF77
75 * ATan Intrinsic::      Arc tangent.
76 * ATan2 Intrinsic::     Arc tangent.
77 @end ifset
78 @ifset familyVXT
79 * ATan2D Intrinsic::    (Reserved for future use.)
80 * ATanD Intrinsic::     (Reserved for future use.)
81 @end ifset
82 @ifset familyF2U
83 * BesJ0 Intrinsic::     Bessel function.
84 * BesJ1 Intrinsic::     Bessel function.
85 * BesJN Intrinsic::     Bessel function.
86 * BesY0 Intrinsic::     Bessel function.
87 * BesY1 Intrinsic::     Bessel function.
88 * BesYN Intrinsic::     Bessel function.
89 @end ifset
90 @ifset familyVXT
91 * BITest Intrinsic::    (Reserved for future use.)
92 @end ifset
93 @ifset familyF90
94 * Bit_Size Intrinsic::  Number of bits in argument's type.
95 @end ifset
96 @ifset familyVXT
97 * BJTest Intrinsic::    (Reserved for future use.)
98 @end ifset
99 @ifset familyMIL
100 * BTest Intrinsic::     Test bit.
101 @end ifset
102 @ifset familyF77
103 * CAbs Intrinsic::      Absolute value (archaic).
104 * CCos Intrinsic::      Cosine (archaic).
105 @end ifset
106 @ifset familyFVZ
107 * CDAbs Intrinsic::     Absolute value (archaic).
108 * CDCos Intrinsic::     Cosine (archaic).
109 * CDExp Intrinsic::     Exponential (archaic).
110 * CDLog Intrinsic::     Natural logarithm (archaic).
111 * CDSin Intrinsic::     Sine (archaic).
112 * CDSqRt Intrinsic::    Square root (archaic).
113 @end ifset
114 @ifset familyF90
115 * Ceiling Intrinsic::   (Reserved for future use.)
116 @end ifset
117 @ifset familyF77
118 * CExp Intrinsic::      Exponential (archaic).
119 * Char Intrinsic::      Character from code.
120 @end ifset
121 @ifset familyF2U
122 * ChDir Intrinsic (subroutine):: Change directory.
123 @end ifset
124 @ifset familyBADU77
125 * ChDir Intrinsic (function):: Change directory.
126 @end ifset
127 @ifset familyF2U
128 * ChMod Intrinsic (subroutine):: Change file modes.
129 @end ifset
130 @ifset familyBADU77
131 * ChMod Intrinsic (function):: Change file modes.
132 @end ifset
133 @ifset familyF77
134 * CLog Intrinsic::      Natural logarithm (archaic).
135 * Cmplx Intrinsic::     Construct @code{COMPLEX(KIND=1)} value.
136 @end ifset
137 @ifset familyGNU
138 * Complex Intrinsic::   Build complex value from real and
139                          imaginary parts.
140 @end ifset
141 @ifset familyF77
142 * Conjg Intrinsic::     Complex conjugate.
143 * Cos Intrinsic::       Cosine.
144 @end ifset
145 @ifset familyVXT
146 * CosD Intrinsic::      (Reserved for future use.)
147 @end ifset
148 @ifset familyF77
149 * CosH Intrinsic::      Hyperbolic cosine.
150 @end ifset
151 @ifset familyF90
152 * Count Intrinsic::     (Reserved for future use.)
153 * CPU_Time Intrinsic::  Get current CPU time.
154 * CShift Intrinsic::    (Reserved for future use.)
155 @end ifset
156 @ifset familyF77
157 * CSin Intrinsic::      Sine (archaic).
158 * CSqRt Intrinsic::     Square root (archaic).
159 @end ifset
160 @ifset familyF2U
161 * CTime Intrinsic (subroutine):: Convert time to Day Mon dd hh:mm:ss yyyy.
162 * CTime Intrinsic (function):: Convert time to Day Mon dd hh:mm:ss yyyy.
163 @end ifset
164 @ifset familyF77
165 * DAbs Intrinsic::      Absolute value (archaic).
166 * DACos Intrinsic::     Arc cosine (archaic).
167 @end ifset
168 @ifset familyVXT
169 * DACosD Intrinsic::    (Reserved for future use.)
170 @end ifset
171 @ifset familyF77
172 * DASin Intrinsic::     Arc sine (archaic).
173 @end ifset
174 @ifset familyVXT
175 * DASinD Intrinsic::    (Reserved for future use.)
176 @end ifset
177 @ifset familyF77
178 * DATan Intrinsic::     Arc tangent (archaic).
179 * DATan2 Intrinsic::    Arc tangent (archaic).
180 @end ifset
181 @ifset familyVXT
182 * DATan2D Intrinsic::   (Reserved for future use.)
183 * DATanD Intrinsic::    (Reserved for future use.)
184 * Date Intrinsic::      Get current date as dd-Mon-yy.
185 @end ifset
186 @ifset familyF90
187 * Date_and_Time Intrinsic:: Get the current date and time.
188 @end ifset
189 @ifset familyF2U
190 * DbesJ0 Intrinsic::    Bessel function (archaic).
191 * DbesJ1 Intrinsic::    Bessel function (archaic).
192 * DbesJN Intrinsic::    Bessel function (archaic).
193 * DbesY0 Intrinsic::    Bessel function (archaic).
194 * DbesY1 Intrinsic::    Bessel function (archaic).
195 * DbesYN Intrinsic::    Bessel function (archaic).
196 @end ifset
197 @ifset familyF77
198 * Dble Intrinsic::      Convert to double precision.
199 @end ifset
200 @ifset familyVXT
201 * DbleQ Intrinsic::     (Reserved for future use.)
202 @end ifset
203 @ifset familyFVZ
204 * DCmplx Intrinsic::    Construct @code{COMPLEX(KIND=2)} value.
205 * DConjg Intrinsic::    Complex conjugate (archaic).
206 @end ifset
207 @ifset familyF77
208 * DCos Intrinsic::      Cosine (archaic).
209 @end ifset
210 @ifset familyVXT
211 * DCosD Intrinsic::     (Reserved for future use.)
212 @end ifset
213 @ifset familyF77
214 * DCosH Intrinsic::     Hyperbolic cosine (archaic).
215 * DDiM Intrinsic::      Difference magnitude (archaic).
216 @end ifset
217 @ifset familyF2U
218 * DErF Intrinsic::      Error function (archaic).
219 * DErFC Intrinsic::     Complementary error function (archaic).
220 @end ifset
221 @ifset familyF77
222 * DExp Intrinsic::      Exponential (archaic).
223 @end ifset
224 @ifset familyFVZ
225 * DFloat Intrinsic::    Conversion (archaic).
226 @end ifset
227 @ifset familyVXT
228 * DFlotI Intrinsic::    (Reserved for future use.)
229 * DFlotJ Intrinsic::    (Reserved for future use.)
230 @end ifset
231 @ifset familyF90
232 * Digits Intrinsic::    (Reserved for future use.)
233 @end ifset
234 @ifset familyF77
235 * DiM Intrinsic::       Difference magnitude (non-negative subtract).
236 @end ifset
237 @ifset familyFVZ
238 * DImag Intrinsic::     Convert/extract imaginary part of complex (archaic).
239 @end ifset
240 @ifset familyF77
241 * DInt Intrinsic::      Truncate to whole number (archaic).
242 * DLog Intrinsic::      Natural logarithm (archaic).
243 * DLog10 Intrinsic::    Common logarithm (archaic).
244 * DMax1 Intrinsic::     Maximum value (archaic).
245 * DMin1 Intrinsic::     Minimum value (archaic).
246 * DMod Intrinsic::      Remainder (archaic).
247 * DNInt Intrinsic::     Round to nearest whole number (archaic).
248 @end ifset
249 @ifset familyF90
250 * Dot_Product Intrinsic:: (Reserved for future use.)
251 @end ifset
252 @ifset familyF77
253 * DProd Intrinsic::     Double-precision product.
254 @end ifset
255 @ifset familyVXT
256 * DReal Intrinsic::     Convert value to type @code{REAL(KIND=2)}.
257 @end ifset
258 @ifset familyF77
259 * DSign Intrinsic::     Apply sign to magnitude (archaic).
260 * DSin Intrinsic::      Sine (archaic).
261 @end ifset
262 @ifset familyVXT
263 * DSinD Intrinsic::     (Reserved for future use.)
264 @end ifset
265 @ifset familyF77
266 * DSinH Intrinsic::     Hyperbolic sine (archaic).
267 * DSqRt Intrinsic::     Square root (archaic).
268 * DTan Intrinsic::      Tangent (archaic).
269 @end ifset
270 @ifset familyVXT
271 * DTanD Intrinsic::     (Reserved for future use.)
272 @end ifset
273 @ifset familyF77
274 * DTanH Intrinsic::     Hyperbolic tangent (archaic).
275 @end ifset
276 @ifset familyF2U
277 * DTime Intrinsic (subroutine):: Get elapsed time since last time.
278 @end ifset
279 @ifset familyBADU77
280 * DTime Intrinsic (function):: Get elapsed time since last time.
281 @end ifset
282 @ifset familyF90
283 * EOShift Intrinsic::   (Reserved for future use.)
284 * Epsilon Intrinsic::   (Reserved for future use.)
285 @end ifset
286 @ifset familyF2U
287 * ErF Intrinsic::       Error function.
288 * ErFC Intrinsic::      Complementary error function.
289 * ETime Intrinsic (subroutine):: Get elapsed time for process.
290 * ETime Intrinsic (function):: Get elapsed time for process.
291 * Exit Intrinsic::      Terminate the program.
292 @end ifset
293 @ifset familyF77
294 * Exp Intrinsic::       Exponential.
295 @end ifset
296 @ifset familyF90
297 * Exponent Intrinsic::  (Reserved for future use.)
298 @end ifset
299 @ifset familyF2U
300 * FDate Intrinsic (subroutine):: Get current time as Day Mon dd hh:mm:ss yyyy.
301 * FDate Intrinsic (function):: Get current time as Day Mon dd hh:mm:ss yyyy.
302 * FGet Intrinsic (subroutine):: Read a character from unit 5 stream-wise.
303 @end ifset
304 @ifset familyBADU77
305 * FGet Intrinsic (function):: Read a character from unit 5 stream-wise.
306 @end ifset
307 @ifset familyF2U
308 * FGetC Intrinsic (subroutine):: Read a character stream-wise.
309 @end ifset
310 @ifset familyBADU77
311 * FGetC Intrinsic (function):: Read a character stream-wise.
312 @end ifset
313 @ifset familyF77
314 * Float Intrinsic::     Conversion (archaic).
315 @end ifset
316 @ifset familyVXT
317 * FloatI Intrinsic::    (Reserved for future use.)
318 * FloatJ Intrinsic::    (Reserved for future use.)
319 @end ifset
320 @ifset familyF90
321 * Floor Intrinsic::     (Reserved for future use.)
322 @end ifset
323 @ifset familyF2U
324 * Flush Intrinsic::     Flush buffered output.
325 * FNum Intrinsic::      Get file descriptor from Fortran unit number.
326 * FPut Intrinsic (subroutine):: Write a character to unit 6 stream-wise.
327 @end ifset
328 @ifset familyBADU77
329 * FPut Intrinsic (function):: Write a character to unit 6 stream-wise.
330 @end ifset
331 @ifset familyF2U
332 * FPutC Intrinsic (subroutine):: Write a character stream-wise.
333 @end ifset
334 @ifset familyBADU77
335 * FPutC Intrinsic (function):: Write a character stream-wise.
336 @end ifset
337 @ifset familyF90
338 * Fraction Intrinsic::  (Reserved for future use.)
339 @end ifset
340 @ifset familyF2U
341 * FSeek Intrinsic::     Position file (low-level).
342 * FStat Intrinsic (subroutine):: Get file information.
343 * FStat Intrinsic (function):: Get file information.
344 * FTell Intrinsic (subroutine):: Get file position (low-level).
345 * FTell Intrinsic (function):: Get file position (low-level).
346 * GError Intrinsic::    Get error message for last error.
347 * GetArg Intrinsic::    Obtain command-line argument.
348 * GetCWD Intrinsic (subroutine):: Get current working directory.
349 * GetCWD Intrinsic (function):: Get current working directory.
350 * GetEnv Intrinsic::    Get environment variable.
351 * GetGId Intrinsic::    Get process group id.
352 * GetLog Intrinsic::    Get login name.
353 * GetPId Intrinsic::    Get process id.
354 * GetUId Intrinsic::    Get process user id.
355 * GMTime Intrinsic::    Convert time to GMT time info.
356 * HostNm Intrinsic (subroutine):: Get host name.
357 * HostNm Intrinsic (function):: Get host name.
358 @end ifset
359 @ifset familyF90
360 * Huge Intrinsic::      (Reserved for future use.)
361 @end ifset
362 @ifset familyF77
363 * IAbs Intrinsic::      Absolute value (archaic).
364 @end ifset
365 @ifset familyASC
366 * IAChar Intrinsic::    ASCII code for character.
367 @end ifset
368 @ifset familyMIL
369 * IAnd Intrinsic::      Boolean AND.
370 @end ifset
371 @ifset familyF2U
372 * IArgC Intrinsic::     Obtain count of command-line arguments.
373 @end ifset
374 @ifset familyMIL
375 * IBClr Intrinsic::     Clear a bit.
376 * IBits Intrinsic::     Extract a bit subfield of a variable.
377 * IBSet Intrinsic::     Set a bit.
378 @end ifset
379 @ifset familyF77
380 * IChar Intrinsic::     Code for character.
381 @end ifset
382 @ifset familyF2U
383 * IDate Intrinsic (UNIX):: Get local time info.
384 @end ifset
385 @ifset familyVXT
386 * IDate Intrinsic (VXT):: Get local time info (VAX/VMS).
387 @end ifset
388 @ifset familyF77
389 * IDiM Intrinsic::      Difference magnitude (archaic).
390 * IDInt Intrinsic::     Convert to @code{INTEGER} value truncated
391                          to whole number (archaic).
392 * IDNInt Intrinsic::    Convert to @code{INTEGER} value rounded
393                          to nearest whole number (archaic).
394 @end ifset
395 @ifset familyMIL
396 * IEOr Intrinsic::      Boolean XOR.
397 @end ifset
398 @ifset familyF2U
399 * IErrNo Intrinsic::    Get error number for last error.
400 @end ifset
401 @ifset familyF77
402 * IFix Intrinsic::      Conversion (archaic).
403 @end ifset
404 @ifset familyVXT
405 * IIAbs Intrinsic::     (Reserved for future use.)
406 * IIAnd Intrinsic::     (Reserved for future use.)
407 * IIBClr Intrinsic::    (Reserved for future use.)
408 * IIBits Intrinsic::    (Reserved for future use.)
409 * IIBSet Intrinsic::    (Reserved for future use.)
410 * IIDiM Intrinsic::     (Reserved for future use.)
411 * IIDInt Intrinsic::    (Reserved for future use.)
412 * IIDNnt Intrinsic::    (Reserved for future use.)
413 * IIEOr Intrinsic::     (Reserved for future use.)
414 * IIFix Intrinsic::     (Reserved for future use.)
415 * IInt Intrinsic::      (Reserved for future use.)
416 * IIOr Intrinsic::      (Reserved for future use.)
417 * IIQint Intrinsic::    (Reserved for future use.)
418 * IIQNnt Intrinsic::    (Reserved for future use.)
419 * IIShftC Intrinsic::   (Reserved for future use.)
420 * IISign Intrinsic::    (Reserved for future use.)
421 @end ifset
422 @ifset familyF2C
423 * Imag Intrinsic::      Extract imaginary part of complex.
424 @end ifset
425 @ifset familyGNU
426 * ImagPart Intrinsic::  Extract imaginary part of complex.
427 @end ifset
428 @ifset familyVXT
429 * IMax0 Intrinsic::     (Reserved for future use.)
430 * IMax1 Intrinsic::     (Reserved for future use.)
431 * IMin0 Intrinsic::     (Reserved for future use.)
432 * IMin1 Intrinsic::     (Reserved for future use.)
433 * IMod Intrinsic::      (Reserved for future use.)
434 @end ifset
435 @ifset familyF77
436 * Index Intrinsic::     Locate a CHARACTER substring.
437 @end ifset
438 @ifset familyVXT
439 * INInt Intrinsic::     (Reserved for future use.)
440 * INot Intrinsic::      (Reserved for future use.)
441 @end ifset
442 @ifset familyF77
443 * Int Intrinsic::       Convert to @code{INTEGER} value truncated
444                          to whole number.
445 @end ifset
446 @ifset familyGNU
447 * Int2 Intrinsic::      Convert to @code{INTEGER(KIND=6)} value
448                          truncated to whole number.
449 * Int8 Intrinsic::      Convert to @code{INTEGER(KIND=2)} value
450                          truncated to whole number.
451 @end ifset
452 @ifset familyMIL
453 * IOr Intrinsic::       Boolean OR.
454 @end ifset
455 @ifset familyF2U
456 * IRand Intrinsic::     Random number.
457 * IsaTty Intrinsic::    Is unit connected to a terminal?
458 @end ifset
459 @ifset familyMIL
460 * IShft Intrinsic::     Logical bit shift.
461 * IShftC Intrinsic::    Circular bit shift.
462 @end ifset
463 @ifset familyF77
464 * ISign Intrinsic::     Apply sign to magnitude (archaic).
465 @end ifset
466 @ifset familyF2U
467 * ITime Intrinsic::     Get local time of day.
468 @end ifset
469 @ifset familyVXT
470 * IZExt Intrinsic::     (Reserved for future use.)
471 * JIAbs Intrinsic::     (Reserved for future use.)
472 * JIAnd Intrinsic::     (Reserved for future use.)
473 * JIBClr Intrinsic::    (Reserved for future use.)
474 * JIBits Intrinsic::    (Reserved for future use.)
475 * JIBSet Intrinsic::    (Reserved for future use.)
476 * JIDiM Intrinsic::     (Reserved for future use.)
477 * JIDInt Intrinsic::    (Reserved for future use.)
478 * JIDNnt Intrinsic::    (Reserved for future use.)
479 * JIEOr Intrinsic::     (Reserved for future use.)
480 * JIFix Intrinsic::     (Reserved for future use.)
481 * JInt Intrinsic::      (Reserved for future use.)
482 * JIOr Intrinsic::      (Reserved for future use.)
483 * JIQint Intrinsic::    (Reserved for future use.)
484 * JIQNnt Intrinsic::    (Reserved for future use.)
485 * JIShft Intrinsic::    (Reserved for future use.)
486 * JIShftC Intrinsic::   (Reserved for future use.)
487 * JISign Intrinsic::    (Reserved for future use.)
488 * JMax0 Intrinsic::     (Reserved for future use.)
489 * JMax1 Intrinsic::     (Reserved for future use.)
490 * JMin0 Intrinsic::     (Reserved for future use.)
491 * JMin1 Intrinsic::     (Reserved for future use.)
492 * JMod Intrinsic::      (Reserved for future use.)
493 * JNInt Intrinsic::     (Reserved for future use.)
494 * JNot Intrinsic::      (Reserved for future use.)
495 * JZExt Intrinsic::     (Reserved for future use.)
496 @end ifset
497 @ifset familyF2U
498 * Kill Intrinsic (subroutine):: Signal a process.
499 @end ifset
500 @ifset familyBADU77
501 * Kill Intrinsic (function):: Signal a process.
502 @end ifset
503 @ifset familyF90
504 * Kind Intrinsic::      (Reserved for future use.)
505 * LBound Intrinsic::    (Reserved for future use.)
506 @end ifset
507 @ifset familyF77
508 * Len Intrinsic::       Length of character entity.
509 @end ifset
510 @ifset familyF90
511 * Len_Trim Intrinsic::  Get last non-blank character in string.
512 @end ifset
513 @ifset familyF77
514 * LGe Intrinsic::       Lexically greater than or equal.
515 * LGt Intrinsic::       Lexically greater than.
516 @end ifset
517 @ifset familyF2U
518 * Link Intrinsic (subroutine):: Make hard link in file system.
519 @end ifset
520 @ifset familyBADU77
521 * Link Intrinsic (function):: Make hard link in file system.
522 @end ifset
523 @ifset familyF77
524 * LLe Intrinsic::       Lexically less than or equal.
525 * LLt Intrinsic::       Lexically less than.
526 @end ifset
527 @ifset familyF2U
528 * LnBlnk Intrinsic::    Get last non-blank character in string.
529 * Loc Intrinsic::       Address of entity in core.
530 @end ifset
531 @ifset familyF77
532 * Log Intrinsic::       Natural logarithm.
533 * Log10 Intrinsic::     Common logarithm.
534 @end ifset
535 @ifset familyF90
536 * Logical Intrinsic::   (Reserved for future use.)
537 @end ifset
538 @ifset familyF2U
539 * Long Intrinsic::      Conversion to @code{INTEGER(KIND=1)} (archaic).
540 @end ifset
541 @ifset familyF2C
542 * LShift Intrinsic::    Left-shift bits.
543 @end ifset
544 @ifset familyF2U
545 * LStat Intrinsic (subroutine):: Get file information.
546 * LStat Intrinsic (function):: Get file information.
547 * LTime Intrinsic::     Convert time to local time info.
548 @end ifset
549 @ifset familyF90
550 * MatMul Intrinsic::    (Reserved for future use.)
551 @end ifset
552 @ifset familyF77
553 * Max Intrinsic::       Maximum value.
554 * Max0 Intrinsic::      Maximum value (archaic).
555 * Max1 Intrinsic::      Maximum value (archaic).
556 @end ifset
557 @ifset familyF90
558 * MaxExponent Intrinsic:: (Reserved for future use.)
559 * MaxLoc Intrinsic::    (Reserved for future use.)
560 * MaxVal Intrinsic::    (Reserved for future use.)
561 @end ifset
562 @ifset familyF2U
563 * MClock Intrinsic::    Get number of clock ticks for process.
564 * MClock8 Intrinsic::   Get number of clock ticks for process.
565 @end ifset
566 @ifset familyF90
567 * Merge Intrinsic::     (Reserved for future use.)
568 @end ifset
569 @ifset familyF77
570 * Min Intrinsic::       Minimum value.
571 * Min0 Intrinsic::      Minimum value (archaic).
572 * Min1 Intrinsic::      Minimum value (archaic).
573 @end ifset
574 @ifset familyF90
575 * MinExponent Intrinsic:: (Reserved for future use.)
576 * MinLoc Intrinsic::    (Reserved for future use.)
577 * MinVal Intrinsic::    (Reserved for future use.)
578 @end ifset
579 @ifset familyF77
580 * Mod Intrinsic::       Remainder.
581 @end ifset
582 @ifset familyF90
583 * Modulo Intrinsic::    (Reserved for future use.)
584 @end ifset
585 @ifset familyMIL
586 * MvBits Intrinsic::    Moving a bit field.
587 @end ifset
588 @ifset familyF90
589 * Nearest Intrinsic::   (Reserved for future use.)
590 @end ifset
591 @ifset familyF77
592 * NInt Intrinsic::      Convert to @code{INTEGER} value rounded
593                          to nearest whole number.
594 @end ifset
595 @ifset familyMIL
596 * Not Intrinsic::       Boolean NOT.
597 @end ifset
598 @ifset familyF2C
599 * Or Intrinsic::        Boolean OR.
600 @end ifset
601 @ifset familyF90
602 * Pack Intrinsic::      (Reserved for future use.)
603 @end ifset
604 @ifset familyF2U
605 * PError Intrinsic::    Print error message for last error.
606 @end ifset
607 @ifset familyF90
608 * Precision Intrinsic:: (Reserved for future use.)
609 * Present Intrinsic::   (Reserved for future use.)
610 * Product Intrinsic::   (Reserved for future use.)
611 @end ifset
612 @ifset familyVXT
613 * QAbs Intrinsic::      (Reserved for future use.)
614 * QACos Intrinsic::     (Reserved for future use.)
615 * QACosD Intrinsic::    (Reserved for future use.)
616 * QASin Intrinsic::     (Reserved for future use.)
617 * QASinD Intrinsic::    (Reserved for future use.)
618 * QATan Intrinsic::     (Reserved for future use.)
619 * QATan2 Intrinsic::    (Reserved for future use.)
620 * QATan2D Intrinsic::   (Reserved for future use.)
621 * QATanD Intrinsic::    (Reserved for future use.)
622 * QCos Intrinsic::      (Reserved for future use.)
623 * QCosD Intrinsic::     (Reserved for future use.)
624 * QCosH Intrinsic::     (Reserved for future use.)
625 * QDiM Intrinsic::      (Reserved for future use.)
626 * QExp Intrinsic::      (Reserved for future use.)
627 * QExt Intrinsic::      (Reserved for future use.)
628 * QExtD Intrinsic::     (Reserved for future use.)
629 * QFloat Intrinsic::    (Reserved for future use.)
630 * QInt Intrinsic::      (Reserved for future use.)
631 * QLog Intrinsic::      (Reserved for future use.)
632 * QLog10 Intrinsic::    (Reserved for future use.)
633 * QMax1 Intrinsic::     (Reserved for future use.)
634 * QMin1 Intrinsic::     (Reserved for future use.)
635 * QMod Intrinsic::      (Reserved for future use.)
636 * QNInt Intrinsic::     (Reserved for future use.)
637 * QSin Intrinsic::      (Reserved for future use.)
638 * QSinD Intrinsic::     (Reserved for future use.)
639 * QSinH Intrinsic::     (Reserved for future use.)
640 * QSqRt Intrinsic::     (Reserved for future use.)
641 * QTan Intrinsic::      (Reserved for future use.)
642 * QTanD Intrinsic::     (Reserved for future use.)
643 * QTanH Intrinsic::     (Reserved for future use.)
644 @end ifset
645 @ifset familyF90
646 * Radix Intrinsic::     (Reserved for future use.)
647 @end ifset
648 @ifset familyF2U
649 * Rand Intrinsic::      Random number.
650 @end ifset
651 @ifset familyF90
652 * Random_Number Intrinsic:: (Reserved for future use.)
653 * Random_Seed Intrinsic:: (Reserved for future use.)
654 * Range Intrinsic::     (Reserved for future use.)
655 @end ifset
656 @ifset familyF77
657 * Real Intrinsic::      Convert value to type @code{REAL(KIND=1)}.
658 @end ifset
659 @ifset familyGNU
660 * RealPart Intrinsic::  Extract real part of complex.
661 @end ifset
662 @ifset familyF2U
663 * Rename Intrinsic (subroutine):: Rename file.
664 @end ifset
665 @ifset familyBADU77
666 * Rename Intrinsic (function):: Rename file.
667 @end ifset
668 @ifset familyF90
669 * Repeat Intrinsic::    (Reserved for future use.)
670 * Reshape Intrinsic::   (Reserved for future use.)
671 * RRSpacing Intrinsic:: (Reserved for future use.)
672 @end ifset
673 @ifset familyF2C
674 * RShift Intrinsic::    Right-shift bits.
675 @end ifset
676 @ifset familyF90
677 * Scale Intrinsic::     (Reserved for future use.)
678 * Scan Intrinsic::      (Reserved for future use.)
679 @end ifset
680 @ifset familyVXT
681 * Secnds Intrinsic::    Get local time offset since midnight.
682 @end ifset
683 @ifset familyF2U
684 * Second Intrinsic (function):: Get CPU time for process in seconds.
685 * Second Intrinsic (subroutine):: Get CPU time for process
686                          in seconds.
687 @end ifset
688 @ifset familyF90
689 * Selected_Int_Kind Intrinsic:: (Reserved for future use.)
690 * Selected_Real_Kind Intrinsic:: (Reserved for future use.)
691 * Set_Exponent Intrinsic:: (Reserved for future use.)
692 * Shape Intrinsic::     (Reserved for future use.)
693 @end ifset
694 @ifset familyF2U
695 * Short Intrinsic::     Convert to @code{INTEGER(KIND=6)} value
696                          truncated to whole number.
697 @end ifset
698 @ifset familyF77
699 * Sign Intrinsic::      Apply sign to magnitude.
700 @end ifset
701 @ifset familyF2U
702 * Signal Intrinsic (subroutine):: Muck with signal handling.
703 @end ifset
704 @ifset familyBADU77
705 * Signal Intrinsic (function):: Muck with signal handling.
706 @end ifset
707 @ifset familyF77
708 * Sin Intrinsic::       Sine.
709 @end ifset
710 @ifset familyVXT
711 * SinD Intrinsic::      (Reserved for future use.)
712 @end ifset
713 @ifset familyF77
714 * SinH Intrinsic::      Hyperbolic sine.
715 @end ifset
716 @ifset familyF2U
717 * Sleep Intrinsic::     Sleep for a specified time.
718 @end ifset
719 @ifset familyF77
720 * Sngl Intrinsic::      Convert (archaic).
721 @end ifset
722 @ifset familyVXT
723 * SnglQ Intrinsic::     (Reserved for future use.)
724 @end ifset
725 @ifset familyF90
726 * Spacing Intrinsic::   (Reserved for future use.)
727 * Spread Intrinsic::    (Reserved for future use.)
728 @end ifset
729 @ifset familyF77
730 * SqRt Intrinsic::      Square root.
731 @end ifset
732 @ifset familyF2U
733 * SRand Intrinsic::     Random seed.
734 * Stat Intrinsic (subroutine):: Get file information.
735 * Stat Intrinsic (function):: Get file information.
736 @end ifset
737 @ifset familyF90
738 * Sum Intrinsic::       (Reserved for future use.)
739 @end ifset
740 @ifset familyF2U
741 * SymLnk Intrinsic (subroutine):: Make symbolic link in file system.
742 @end ifset
743 @ifset familyBADU77
744 * SymLnk Intrinsic (function):: Make symbolic link in file system.
745 @end ifset
746 @ifset familyF2U
747 * System Intrinsic (subroutine):: Invoke shell (system) command.
748 @end ifset
749 @ifset familyBADU77
750 * System Intrinsic (function):: Invoke shell (system) command.
751 @end ifset
752 @ifset familyF90
753 * System_Clock Intrinsic:: Get current system clock value.
754 @end ifset
755 @ifset familyF77
756 * Tan Intrinsic::       Tangent.
757 @end ifset
758 @ifset familyVXT
759 * TanD Intrinsic::      (Reserved for future use.)
760 @end ifset
761 @ifset familyF77
762 * TanH Intrinsic::      Hyperbolic tangent.
763 @end ifset
764 @ifset familyF2U
765 * Time Intrinsic (UNIX):: Get current time as time value.
766 @end ifset
767 @ifset familyVXT
768 * Time Intrinsic (VXT):: Get the time as a character value.
769 @end ifset
770 @ifset familyF2U
771 * Time8 Intrinsic::     Get current time as time value.
772 @end ifset
773 @ifset familyF90
774 * Tiny Intrinsic::      (Reserved for future use.)
775 * Transfer Intrinsic::  (Reserved for future use.)
776 * Transpose Intrinsic:: (Reserved for future use.)
777 * Trim Intrinsic::      (Reserved for future use.)
778 @end ifset
779 @ifset familyF2U
780 * TtyNam Intrinsic (subroutine):: Get name of terminal device for unit.
781 * TtyNam Intrinsic (function):: Get name of terminal device for unit.
782 @end ifset
783 @ifset familyF90
784 * UBound Intrinsic::    (Reserved for future use.)
785 @end ifset
786 @ifset familyF2U
787 * UMask Intrinsic (subroutine):: Set file creation permissions mask.
788 @end ifset
789 @ifset familyBADU77
790 * UMask Intrinsic (function):: Set file creation permissions mask.
791 @end ifset
792 @ifset familyF2U
793 * Unlink Intrinsic (subroutine):: Unlink file.
794 @end ifset
795 @ifset familyBADU77
796 * Unlink Intrinsic (function):: Unlink file.
797 @end ifset
798 @ifset familyF90
799 * Unpack Intrinsic::    (Reserved for future use.)
800 * Verify Intrinsic::    (Reserved for future use.)
801 @end ifset
802 @ifset familyF2C
803 * XOr Intrinsic::       Boolean XOR.
804 * ZAbs Intrinsic::      Absolute value (archaic).
805 * ZCos Intrinsic::      Cosine (archaic).
806 * ZExp Intrinsic::      Exponential (archaic).
807 @end ifset
808 @ifset familyVXT
809 * ZExt Intrinsic::      (Reserved for future use.)
810 @end ifset
811 @ifset familyF2C
812 * ZLog Intrinsic::      Natural logarithm (archaic).
813 * ZSin Intrinsic::      Sine (archaic).
814 * ZSqRt Intrinsic::     Square root (archaic).
815 @end ifset
816 @end menu
818 @ifset familyF2U
819 @node Abort Intrinsic
820 @subsubsection Abort Intrinsic
821 @cindex Abort intrinsic
822 @cindex intrinsics, Abort
824 @noindent
825 @example
826 CALL Abort()
827 @end example
829 @noindent
830 Intrinsic groups: @code{unix}.
832 @noindent
833 Description:
835 Prints a message and potentially causes a core dump via @code{abort(3)}.
837 @end ifset
838 @ifset familyF77
839 @node Abs Intrinsic
840 @subsubsection Abs Intrinsic
841 @cindex Abs intrinsic
842 @cindex intrinsics, Abs
844 @noindent
845 @example
846 Abs(@var{A})
847 @end example
849 @noindent
850 Abs: @code{INTEGER} or @code{REAL} function.
851 The exact type depends on that of argument @var{A}---if @var{A} is
852 @code{COMPLEX}, this function's type is @code{REAL}
853 with the same @samp{KIND=} value as the type of @var{A}.
854 Otherwise, this function's type is the same as that of @var{A}.
856 @noindent
857 @var{A}: @code{INTEGER}, @code{REAL}, or @code{COMPLEX}; scalar; INTENT(IN).
859 @noindent
860 Intrinsic groups: (standard FORTRAN 77).
862 @noindent
863 Description:
865 Returns the absolute value of @var{A}.
867 If @var{A} is type @code{COMPLEX}, the absolute
868 value is computed as:
870 @example
871 SQRT(REALPART(@var{A})**2+IMAGPART(@var{A})**2)
872 @end example
874 @noindent
875 Otherwise, it is computed by negating @var{A} if
876 it is negative, or returning @var{A}.
878 @xref{Sign Intrinsic}, for how to explicitly
879 compute the positive or negative form of the absolute
880 value of an expression.
882 @end ifset
883 @ifset familyF2U
884 @node Access Intrinsic
885 @subsubsection Access Intrinsic
886 @cindex Access intrinsic
887 @cindex intrinsics, Access
889 @noindent
890 @example
891 Access(@var{Name}, @var{Mode})
892 @end example
894 @noindent
895 Access: @code{INTEGER(KIND=1)} function.
897 @noindent
898 @var{Name}: @code{CHARACTER}; scalar; INTENT(IN).
900 @noindent
901 @var{Mode}: @code{CHARACTER}; scalar; INTENT(IN).
903 @noindent
904 Intrinsic groups: @code{unix}.
906 @noindent
907 Description:
909 Checks file @var{Name} for accessibility in the mode specified by @var{Mode} and
910 returns 0 if the file is accessible in that mode, otherwise an error
911 code if the file is inaccessible or @var{Mode} is invalid.
912 See @code{access(2)}.
913 A null character (@samp{CHAR(0)}) marks the end of
914 the name in @var{Name}---otherwise,
915 trailing blanks in @var{Name} are ignored.
916 @var{Mode} may be a concatenation of any of the following characters:
918 @table @samp
919 @item r
920 Read permission
922 @item w
923 Write permission
925 @item x
926 Execute permission
928 @item @kbd{SPC}
929 Existence
930 @end table
932 @end ifset
933 @ifset familyASC
934 @node AChar Intrinsic
935 @subsubsection AChar Intrinsic
936 @cindex AChar intrinsic
937 @cindex intrinsics, AChar
939 @noindent
940 @example
941 AChar(@var{I})
942 @end example
944 @noindent
945 AChar: @code{CHARACTER*1} function.
947 @noindent
948 @var{I}: @code{INTEGER}; scalar; INTENT(IN).
950 @noindent
951 Intrinsic groups: @code{f2c}, @code{f90}.
953 @noindent
954 Description:
956 Returns the ASCII character corresponding to the
957 code specified by @var{I}.
959 @xref{IAChar Intrinsic}, for the inverse of this function.
961 @xref{Char Intrinsic}, for the function corresponding
962 to the system's native character set.
964 @end ifset
965 @ifset familyF77
966 @node ACos Intrinsic
967 @subsubsection ACos Intrinsic
968 @cindex ACos intrinsic
969 @cindex intrinsics, ACos
971 @noindent
972 @example
973 ACos(@var{X})
974 @end example
976 @noindent
977 ACos: @code{REAL} function, the @samp{KIND=} value of the type being that of argument @var{X}.
979 @noindent
980 @var{X}: @code{REAL}; scalar; INTENT(IN).
982 @noindent
983 Intrinsic groups: (standard FORTRAN 77).
985 @noindent
986 Description:
988 Returns the arc-cosine (inverse cosine) of @var{X}
989 in radians.
991 @xref{Cos Intrinsic}, for the inverse of this function.
993 @end ifset
994 @ifset familyVXT
995 @node ACosD Intrinsic
996 @subsubsection ACosD Intrinsic
997 @cindex ACosD intrinsic
998 @cindex intrinsics, ACosD
1000 This intrinsic is not yet implemented.
1001 The name is, however, reserved as an intrinsic.
1002 Use @samp{EXTERNAL ACosD} to use this name for an
1003 external procedure.
1005 @end ifset
1006 @ifset familyF90
1007 @node AdjustL Intrinsic
1008 @subsubsection AdjustL Intrinsic
1009 @cindex AdjustL intrinsic
1010 @cindex intrinsics, AdjustL
1012 This intrinsic is not yet implemented.
1013 The name is, however, reserved as an intrinsic.
1014 Use @samp{EXTERNAL AdjustL} to use this name for an
1015 external procedure.
1017 @node AdjustR Intrinsic
1018 @subsubsection AdjustR Intrinsic
1019 @cindex AdjustR intrinsic
1020 @cindex intrinsics, AdjustR
1022 This intrinsic is not yet implemented.
1023 The name is, however, reserved as an intrinsic.
1024 Use @samp{EXTERNAL AdjustR} to use this name for an
1025 external procedure.
1027 @end ifset
1028 @ifset familyF77
1029 @node AImag Intrinsic
1030 @subsubsection AImag Intrinsic
1031 @cindex AImag intrinsic
1032 @cindex intrinsics, AImag
1034 @noindent
1035 @example
1036 AImag(@var{Z})
1037 @end example
1039 @noindent
1040 AImag: @code{REAL} function.
1041 This intrinsic is valid when argument @var{Z} is
1042 @code{COMPLEX(KIND=1)}.
1043 When @var{Z} is any other @code{COMPLEX} type,
1044 this intrinsic is valid only when used as the argument to
1045 @code{REAL()}, as explained below.
1047 @noindent
1048 @var{Z}: @code{COMPLEX}; scalar; INTENT(IN).
1050 @noindent
1051 Intrinsic groups: (standard FORTRAN 77).
1053 @noindent
1054 Description:
1056 Returns the (possibly converted) imaginary part of @var{Z}.
1058 Use of @code{AIMAG()} with an argument of a type
1059 other than @code{COMPLEX(KIND=1)} is restricted to the following case:
1061 @example
1062 REAL(AIMAG(Z))
1063 @end example
1065 @noindent
1066 This expression converts the imaginary part of Z to
1067 @code{REAL(KIND=1)}.
1069 @xref{REAL() and AIMAG() of Complex}, for more information.
1071 @end ifset
1072 @ifset familyVXT
1073 @node AIMax0 Intrinsic
1074 @subsubsection AIMax0 Intrinsic
1075 @cindex AIMax0 intrinsic
1076 @cindex intrinsics, AIMax0
1078 This intrinsic is not yet implemented.
1079 The name is, however, reserved as an intrinsic.
1080 Use @samp{EXTERNAL AIMax0} to use this name for an
1081 external procedure.
1083 @node AIMin0 Intrinsic
1084 @subsubsection AIMin0 Intrinsic
1085 @cindex AIMin0 intrinsic
1086 @cindex intrinsics, AIMin0
1088 This intrinsic is not yet implemented.
1089 The name is, however, reserved as an intrinsic.
1090 Use @samp{EXTERNAL AIMin0} to use this name for an
1091 external procedure.
1093 @end ifset
1094 @ifset familyF77
1095 @node AInt Intrinsic
1096 @subsubsection AInt Intrinsic
1097 @cindex AInt intrinsic
1098 @cindex intrinsics, AInt
1100 @noindent
1101 @example
1102 AInt(@var{A})
1103 @end example
1105 @noindent
1106 AInt: @code{REAL} function, the @samp{KIND=} value of the type being that of argument @var{A}.
1108 @noindent
1109 @var{A}: @code{REAL}; scalar; INTENT(IN).
1111 @noindent
1112 Intrinsic groups: (standard FORTRAN 77).
1114 @noindent
1115 Description:
1117 Returns @var{A} with the fractional portion of its
1118 magnitude truncated and its sign preserved.
1119 (Also called ``truncation towards zero''.)
1121 @xref{ANInt Intrinsic}, for how to round to nearest
1122 whole number.
1124 @xref{Int Intrinsic}, for how to truncate and then convert
1125 number to @code{INTEGER}.
1127 @end ifset
1128 @ifset familyVXT
1129 @node AJMax0 Intrinsic
1130 @subsubsection AJMax0 Intrinsic
1131 @cindex AJMax0 intrinsic
1132 @cindex intrinsics, AJMax0
1134 This intrinsic is not yet implemented.
1135 The name is, however, reserved as an intrinsic.
1136 Use @samp{EXTERNAL AJMax0} to use this name for an
1137 external procedure.
1139 @node AJMin0 Intrinsic
1140 @subsubsection AJMin0 Intrinsic
1141 @cindex AJMin0 intrinsic
1142 @cindex intrinsics, AJMin0
1144 This intrinsic is not yet implemented.
1145 The name is, however, reserved as an intrinsic.
1146 Use @samp{EXTERNAL AJMin0} to use this name for an
1147 external procedure.
1149 @end ifset
1150 @ifset familyF2U
1151 @node Alarm Intrinsic
1152 @subsubsection Alarm Intrinsic
1153 @cindex Alarm intrinsic
1154 @cindex intrinsics, Alarm
1156 @noindent
1157 @example
1158 CALL Alarm(@var{Seconds}, @var{Handler}, @var{Status})
1159 @end example
1161 @noindent
1162 @var{Seconds}: @code{INTEGER}; scalar; INTENT(IN).
1164 @noindent
1165 @var{Handler}: Signal handler (@code{INTEGER FUNCTION} or @code{SUBROUTINE})
1166 or dummy/global @code{INTEGER(KIND=1)} scalar.
1168 @noindent
1169 @var{Status}: @code{INTEGER(KIND=1)}; OPTIONAL; scalar; INTENT(OUT).
1171 @noindent
1172 Intrinsic groups: @code{unix}.
1174 @noindent
1175 Description:
1177 Causes external subroutine @var{Handler} to be executed after a delay of
1178 @var{Seconds} seconds by using @code{alarm(1)} to set up a signal and
1179 @code{signal(2)} to catch it.
1180 If @var{Status} is supplied, it will be
1181 returned with the number of seconds remaining until any previously
1182 scheduled alarm was due to be delivered, or zero if there was no
1183 previously scheduled alarm.
1184 @xref{Signal Intrinsic (subroutine)}.
1186 @end ifset
1187 @ifset familyF90
1188 @node All Intrinsic
1189 @subsubsection All Intrinsic
1190 @cindex All intrinsic
1191 @cindex intrinsics, All
1193 This intrinsic is not yet implemented.
1194 The name is, however, reserved as an intrinsic.
1195 Use @samp{EXTERNAL All} to use this name for an
1196 external procedure.
1198 @node Allocated Intrinsic
1199 @subsubsection Allocated Intrinsic
1200 @cindex Allocated intrinsic
1201 @cindex intrinsics, Allocated
1203 This intrinsic is not yet implemented.
1204 The name is, however, reserved as an intrinsic.
1205 Use @samp{EXTERNAL Allocated} to use this name for an
1206 external procedure.
1208 @end ifset
1209 @ifset familyF77
1210 @node ALog Intrinsic
1211 @subsubsection ALog Intrinsic
1212 @cindex ALog intrinsic
1213 @cindex intrinsics, ALog
1215 @noindent
1216 @example
1217 ALog(@var{X})
1218 @end example
1220 @noindent
1221 ALog: @code{REAL(KIND=1)} function.
1223 @noindent
1224 @var{X}: @code{REAL(KIND=1)}; scalar; INTENT(IN).
1226 @noindent
1227 Intrinsic groups: (standard FORTRAN 77).
1229 @noindent
1230 Description:
1232 Archaic form of @code{LOG()} that is specific
1233 to one type for @var{X}.
1234 @xref{Log Intrinsic}.
1236 @node ALog10 Intrinsic
1237 @subsubsection ALog10 Intrinsic
1238 @cindex ALog10 intrinsic
1239 @cindex intrinsics, ALog10
1241 @noindent
1242 @example
1243 ALog10(@var{X})
1244 @end example
1246 @noindent
1247 ALog10: @code{REAL(KIND=1)} function.
1249 @noindent
1250 @var{X}: @code{REAL(KIND=1)}; scalar; INTENT(IN).
1252 @noindent
1253 Intrinsic groups: (standard FORTRAN 77).
1255 @noindent
1256 Description:
1258 Archaic form of @code{LOG10()} that is specific
1259 to one type for @var{X}.
1260 @xref{Log10 Intrinsic}.
1262 @node AMax0 Intrinsic
1263 @subsubsection AMax0 Intrinsic
1264 @cindex AMax0 intrinsic
1265 @cindex intrinsics, AMax0
1267 @noindent
1268 @example
1269 AMax0(@var{A}-1, @var{A}-2, @dots{}, @var{A}-n)
1270 @end example
1272 @noindent
1273 AMax0: @code{REAL(KIND=1)} function.
1275 @noindent
1276 @var{A}: @code{INTEGER(KIND=1)}; at least two such arguments must be provided; scalar; INTENT(IN).
1278 @noindent
1279 Intrinsic groups: (standard FORTRAN 77).
1281 @noindent
1282 Description:
1284 Archaic form of @code{MAX()} that is specific
1285 to one type for @var{A} and a different return type.
1286 @xref{Max Intrinsic}.
1288 @node AMax1 Intrinsic
1289 @subsubsection AMax1 Intrinsic
1290 @cindex AMax1 intrinsic
1291 @cindex intrinsics, AMax1
1293 @noindent
1294 @example
1295 AMax1(@var{A}-1, @var{A}-2, @dots{}, @var{A}-n)
1296 @end example
1298 @noindent
1299 AMax1: @code{REAL(KIND=1)} function.
1301 @noindent
1302 @var{A}: @code{REAL(KIND=1)}; at least two such arguments must be provided; scalar; INTENT(IN).
1304 @noindent
1305 Intrinsic groups: (standard FORTRAN 77).
1307 @noindent
1308 Description:
1310 Archaic form of @code{MAX()} that is specific
1311 to one type for @var{A}.
1312 @xref{Max Intrinsic}.
1314 @node AMin0 Intrinsic
1315 @subsubsection AMin0 Intrinsic
1316 @cindex AMin0 intrinsic
1317 @cindex intrinsics, AMin0
1319 @noindent
1320 @example
1321 AMin0(@var{A}-1, @var{A}-2, @dots{}, @var{A}-n)
1322 @end example
1324 @noindent
1325 AMin0: @code{REAL(KIND=1)} function.
1327 @noindent
1328 @var{A}: @code{INTEGER(KIND=1)}; at least two such arguments must be provided; scalar; INTENT(IN).
1330 @noindent
1331 Intrinsic groups: (standard FORTRAN 77).
1333 @noindent
1334 Description:
1336 Archaic form of @code{MIN()} that is specific
1337 to one type for @var{A} and a different return type.
1338 @xref{Min Intrinsic}.
1340 @node AMin1 Intrinsic
1341 @subsubsection AMin1 Intrinsic
1342 @cindex AMin1 intrinsic
1343 @cindex intrinsics, AMin1
1345 @noindent
1346 @example
1347 AMin1(@var{A}-1, @var{A}-2, @dots{}, @var{A}-n)
1348 @end example
1350 @noindent
1351 AMin1: @code{REAL(KIND=1)} function.
1353 @noindent
1354 @var{A}: @code{REAL(KIND=1)}; at least two such arguments must be provided; scalar; INTENT(IN).
1356 @noindent
1357 Intrinsic groups: (standard FORTRAN 77).
1359 @noindent
1360 Description:
1362 Archaic form of @code{MIN()} that is specific
1363 to one type for @var{A}.
1364 @xref{Min Intrinsic}.
1366 @node AMod Intrinsic
1367 @subsubsection AMod Intrinsic
1368 @cindex AMod intrinsic
1369 @cindex intrinsics, AMod
1371 @noindent
1372 @example
1373 AMod(@var{A}, @var{P})
1374 @end example
1376 @noindent
1377 AMod: @code{REAL(KIND=1)} function.
1379 @noindent
1380 @var{A}: @code{REAL(KIND=1)}; scalar; INTENT(IN).
1382 @noindent
1383 @var{P}: @code{REAL(KIND=1)}; scalar; INTENT(IN).
1385 @noindent
1386 Intrinsic groups: (standard FORTRAN 77).
1388 @noindent
1389 Description:
1391 Archaic form of @code{MOD()} that is specific
1392 to one type for @var{A}.
1393 @xref{Mod Intrinsic}.
1395 @end ifset
1396 @ifset familyF2C
1397 @node And Intrinsic
1398 @subsubsection And Intrinsic
1399 @cindex And intrinsic
1400 @cindex intrinsics, And
1402 @noindent
1403 @example
1404 And(@var{I}, @var{J})
1405 @end example
1407 @noindent
1408 And: @code{INTEGER} or @code{LOGICAL} function, the exact type being the result of cross-promoting the
1409 types of all the arguments.
1411 @noindent
1412 @var{I}: @code{INTEGER} or @code{LOGICAL}; scalar; INTENT(IN).
1414 @noindent
1415 @var{J}: @code{INTEGER} or @code{LOGICAL}; scalar; INTENT(IN).
1417 @noindent
1418 Intrinsic groups: @code{f2c}.
1420 @noindent
1421 Description:
1423 Returns value resulting from boolean AND of
1424 pair of bits in each of @var{I} and @var{J}.
1426 @end ifset
1427 @ifset familyF77
1428 @node ANInt Intrinsic
1429 @subsubsection ANInt Intrinsic
1430 @cindex ANInt intrinsic
1431 @cindex intrinsics, ANInt
1433 @noindent
1434 @example
1435 ANInt(@var{A})
1436 @end example
1438 @noindent
1439 ANInt: @code{REAL} function, the @samp{KIND=} value of the type being that of argument @var{A}.
1441 @noindent
1442 @var{A}: @code{REAL}; scalar; INTENT(IN).
1444 @noindent
1445 Intrinsic groups: (standard FORTRAN 77).
1447 @noindent
1448 Description:
1450 Returns @var{A} with the fractional portion of its
1451 magnitude eliminated by rounding to the nearest whole
1452 number and with its sign preserved.
1454 A fractional portion exactly equal to
1455 @samp{.5} is rounded to the whole number that
1456 is larger in magnitude.
1457 (Also called ``Fortran round''.)
1459 @xref{AInt Intrinsic}, for how to truncate to
1460 whole number.
1462 @xref{NInt Intrinsic}, for how to round and then convert
1463 number to @code{INTEGER}.
1465 @end ifset
1466 @ifset familyF90
1467 @node Any Intrinsic
1468 @subsubsection Any Intrinsic
1469 @cindex Any intrinsic
1470 @cindex intrinsics, Any
1472 This intrinsic is not yet implemented.
1473 The name is, however, reserved as an intrinsic.
1474 Use @samp{EXTERNAL Any} to use this name for an
1475 external procedure.
1477 @end ifset
1478 @ifset familyF77
1479 @node ASin Intrinsic
1480 @subsubsection ASin Intrinsic
1481 @cindex ASin intrinsic
1482 @cindex intrinsics, ASin
1484 @noindent
1485 @example
1486 ASin(@var{X})
1487 @end example
1489 @noindent
1490 ASin: @code{REAL} function, the @samp{KIND=} value of the type being that of argument @var{X}.
1492 @noindent
1493 @var{X}: @code{REAL}; scalar; INTENT(IN).
1495 @noindent
1496 Intrinsic groups: (standard FORTRAN 77).
1498 @noindent
1499 Description:
1501 Returns the arc-sine (inverse sine) of @var{X}
1502 in radians.
1504 @xref{Sin Intrinsic}, for the inverse of this function.
1506 @end ifset
1507 @ifset familyVXT
1508 @node ASinD Intrinsic
1509 @subsubsection ASinD Intrinsic
1510 @cindex ASinD intrinsic
1511 @cindex intrinsics, ASinD
1513 This intrinsic is not yet implemented.
1514 The name is, however, reserved as an intrinsic.
1515 Use @samp{EXTERNAL ASinD} to use this name for an
1516 external procedure.
1518 @end ifset
1519 @ifset familyF90
1520 @node Associated Intrinsic
1521 @subsubsection Associated Intrinsic
1522 @cindex Associated intrinsic
1523 @cindex intrinsics, Associated
1525 This intrinsic is not yet implemented.
1526 The name is, however, reserved as an intrinsic.
1527 Use @samp{EXTERNAL Associated} to use this name for an
1528 external procedure.
1530 @end ifset
1531 @ifset familyF77
1532 @node ATan Intrinsic
1533 @subsubsection ATan Intrinsic
1534 @cindex ATan intrinsic
1535 @cindex intrinsics, ATan
1537 @noindent
1538 @example
1539 ATan(@var{X})
1540 @end example
1542 @noindent
1543 ATan: @code{REAL} function, the @samp{KIND=} value of the type being that of argument @var{X}.
1545 @noindent
1546 @var{X}: @code{REAL}; scalar; INTENT(IN).
1548 @noindent
1549 Intrinsic groups: (standard FORTRAN 77).
1551 @noindent
1552 Description:
1554 Returns the arc-tangent (inverse tangent) of @var{X}
1555 in radians.
1557 @xref{Tan Intrinsic}, for the inverse of this function.
1559 @node ATan2 Intrinsic
1560 @subsubsection ATan2 Intrinsic
1561 @cindex ATan2 intrinsic
1562 @cindex intrinsics, ATan2
1564 @noindent
1565 @example
1566 ATan2(@var{Y}, @var{X})
1567 @end example
1569 @noindent
1570 ATan2: @code{REAL} function, the exact type being the result of cross-promoting the
1571 types of all the arguments.
1573 @noindent
1574 @var{Y}: @code{REAL}; scalar; INTENT(IN).
1576 @noindent
1577 @var{X}: @code{REAL}; scalar; INTENT(IN).
1579 @noindent
1580 Intrinsic groups: (standard FORTRAN 77).
1582 @noindent
1583 Description:
1585 Returns the arc-tangent (inverse tangent) of the complex
1586 number (@var{Y}, @var{X}) in radians.
1588 @xref{Tan Intrinsic}, for the inverse of this function.
1590 @end ifset
1591 @ifset familyVXT
1592 @node ATan2D Intrinsic
1593 @subsubsection ATan2D Intrinsic
1594 @cindex ATan2D intrinsic
1595 @cindex intrinsics, ATan2D
1597 This intrinsic is not yet implemented.
1598 The name is, however, reserved as an intrinsic.
1599 Use @samp{EXTERNAL ATan2D} to use this name for an
1600 external procedure.
1602 @node ATanD Intrinsic
1603 @subsubsection ATanD Intrinsic
1604 @cindex ATanD intrinsic
1605 @cindex intrinsics, ATanD
1607 This intrinsic is not yet implemented.
1608 The name is, however, reserved as an intrinsic.
1609 Use @samp{EXTERNAL ATanD} to use this name for an
1610 external procedure.
1612 @end ifset
1613 @ifset familyF2U
1614 @node BesJ0 Intrinsic
1615 @subsubsection BesJ0 Intrinsic
1616 @cindex BesJ0 intrinsic
1617 @cindex intrinsics, BesJ0
1619 @noindent
1620 @example
1621 BesJ0(@var{X})
1622 @end example
1624 @noindent
1625 BesJ0: @code{REAL} function, the @samp{KIND=} value of the type being that of argument @var{X}.
1627 @noindent
1628 @var{X}: @code{REAL}; scalar; INTENT(IN).
1630 @noindent
1631 Intrinsic groups: @code{unix}.
1633 @noindent
1634 Description:
1636 Calculates the Bessel function of the first kind of order 0 of @var{X}.
1637 See @code{bessel(3m)}, on whose implementation the function depends.
1638 @node BesJ1 Intrinsic
1639 @subsubsection BesJ1 Intrinsic
1640 @cindex BesJ1 intrinsic
1641 @cindex intrinsics, BesJ1
1643 @noindent
1644 @example
1645 BesJ1(@var{X})
1646 @end example
1648 @noindent
1649 BesJ1: @code{REAL} function, the @samp{KIND=} value of the type being that of argument @var{X}.
1651 @noindent
1652 @var{X}: @code{REAL}; scalar; INTENT(IN).
1654 @noindent
1655 Intrinsic groups: @code{unix}.
1657 @noindent
1658 Description:
1660 Calculates the Bessel function of the first kind of order 1 of @var{X}.
1661 See @code{bessel(3m)}, on whose implementation the function depends.
1662 @node BesJN Intrinsic
1663 @subsubsection BesJN Intrinsic
1664 @cindex BesJN intrinsic
1665 @cindex intrinsics, BesJN
1667 @noindent
1668 @example
1669 BesJN(@var{N}, @var{X})
1670 @end example
1672 @noindent
1673 BesJN: @code{REAL} function, the @samp{KIND=} value of the type being that of argument @var{X}.
1675 @noindent
1676 @var{N}: @code{INTEGER} not wider than the default kind; scalar; INTENT(IN).
1678 @noindent
1679 @var{X}: @code{REAL}; scalar; INTENT(IN).
1681 @noindent
1682 Intrinsic groups: @code{unix}.
1684 @noindent
1685 Description:
1687 Calculates the Bessel function of the first kind of order @var{N} of @var{X}.
1688 See @code{bessel(3m)}, on whose implementation the function depends.
1689 @node BesY0 Intrinsic
1690 @subsubsection BesY0 Intrinsic
1691 @cindex BesY0 intrinsic
1692 @cindex intrinsics, BesY0
1694 @noindent
1695 @example
1696 BesY0(@var{X})
1697 @end example
1699 @noindent
1700 BesY0: @code{REAL} function, the @samp{KIND=} value of the type being that of argument @var{X}.
1702 @noindent
1703 @var{X}: @code{REAL}; scalar; INTENT(IN).
1705 @noindent
1706 Intrinsic groups: @code{unix}.
1708 @noindent
1709 Description:
1711 Calculates the Bessel function of the second kind of order 0 of @var{X}.
1712 See @code{bessel(3m)}, on whose implementation the function depends.
1713 @node BesY1 Intrinsic
1714 @subsubsection BesY1 Intrinsic
1715 @cindex BesY1 intrinsic
1716 @cindex intrinsics, BesY1
1718 @noindent
1719 @example
1720 BesY1(@var{X})
1721 @end example
1723 @noindent
1724 BesY1: @code{REAL} function, the @samp{KIND=} value of the type being that of argument @var{X}.
1726 @noindent
1727 @var{X}: @code{REAL}; scalar; INTENT(IN).
1729 @noindent
1730 Intrinsic groups: @code{unix}.
1732 @noindent
1733 Description:
1735 Calculates the Bessel function of the second kind of order 1 of @var{X}.
1736 See @code{bessel(3m)}, on whose implementation the function depends.
1737 @node BesYN Intrinsic
1738 @subsubsection BesYN Intrinsic
1739 @cindex BesYN intrinsic
1740 @cindex intrinsics, BesYN
1742 @noindent
1743 @example
1744 BesYN(@var{N}, @var{X})
1745 @end example
1747 @noindent
1748 BesYN: @code{REAL} function, the @samp{KIND=} value of the type being that of argument @var{X}.
1750 @noindent
1751 @var{N}: @code{INTEGER} not wider than the default kind; scalar; INTENT(IN).
1753 @noindent
1754 @var{X}: @code{REAL}; scalar; INTENT(IN).
1756 @noindent
1757 Intrinsic groups: @code{unix}.
1759 @noindent
1760 Description:
1762 Calculates the Bessel function of the second kind of order @var{N} of @var{X}.
1763 See @code{bessel(3m)}, on whose implementation the function depends.
1764 @end ifset
1765 @ifset familyVXT
1766 @node BITest Intrinsic
1767 @subsubsection BITest Intrinsic
1768 @cindex BITest intrinsic
1769 @cindex intrinsics, BITest
1771 This intrinsic is not yet implemented.
1772 The name is, however, reserved as an intrinsic.
1773 Use @samp{EXTERNAL BITest} to use this name for an
1774 external procedure.
1776 @end ifset
1777 @ifset familyF90
1778 @node Bit_Size Intrinsic
1779 @subsubsection Bit_Size Intrinsic
1780 @cindex Bit_Size intrinsic
1781 @cindex intrinsics, Bit_Size
1783 @noindent
1784 @example
1785 Bit_Size(@var{I})
1786 @end example
1788 @noindent
1789 Bit_Size: @code{INTEGER} function, the @samp{KIND=} value of the type being that of argument @var{I}.
1791 @noindent
1792 @var{I}: @code{INTEGER}; scalar.
1794 @noindent
1795 Intrinsic groups: @code{f90}.
1797 @noindent
1798 Description:
1800 Returns the number of bits (integer precision plus sign bit)
1801 represented by the type for @var{I}.
1803 @xref{BTest Intrinsic}, for how to test the value of a
1804 bit in a variable or array.
1806 @xref{IBSet Intrinsic}, for how to set a bit in a variable to 1.
1808 @xref{IBClr Intrinsic}, for how to set a bit in a variable to 0.
1811 @end ifset
1812 @ifset familyVXT
1813 @node BJTest Intrinsic
1814 @subsubsection BJTest Intrinsic
1815 @cindex BJTest intrinsic
1816 @cindex intrinsics, BJTest
1818 This intrinsic is not yet implemented.
1819 The name is, however, reserved as an intrinsic.
1820 Use @samp{EXTERNAL BJTest} to use this name for an
1821 external procedure.
1823 @end ifset
1824 @ifset familyMIL
1825 @node BTest Intrinsic
1826 @subsubsection BTest Intrinsic
1827 @cindex BTest intrinsic
1828 @cindex intrinsics, BTest
1830 @noindent
1831 @example
1832 BTest(@var{I}, @var{Pos})
1833 @end example
1835 @noindent
1836 BTest: @code{LOGICAL(KIND=1)} function.
1838 @noindent
1839 @var{I}: @code{INTEGER}; scalar; INTENT(IN).
1841 @noindent
1842 @var{Pos}: @code{INTEGER}; scalar; INTENT(IN).
1844 @noindent
1845 Intrinsic groups: @code{mil}, @code{f90}, @code{vxt}.
1847 @noindent
1848 Description:
1850 Returns @code{.TRUE.} if bit @var{Pos} in @var{I} is
1851 1, @code{.FALSE.} otherwise.
1853 (Bit 0 is the low-order (rightmost) bit, adding the value 
1854 @ifinfo
1855 2**0,
1856 @end ifinfo
1857 @iftex
1858 @tex
1859 $2^0$,
1860 @end tex
1861 @end iftex
1862 or 1,
1863 to the number if set to 1;
1864 bit 1 is the next-higher-order bit, adding 
1865 @ifinfo
1866 2**1,
1867 @end ifinfo
1868 @iftex
1869 @tex
1870 $2^1$,
1871 @end tex
1872 @end iftex
1873 or 2;
1874 bit 2 adds 
1875 @ifinfo
1876 2**2,
1877 @end ifinfo
1878 @iftex
1879 @tex
1880 $2^2$,
1881 @end tex
1882 @end iftex
1883 or 4; and so on.)
1885 @xref{Bit_Size Intrinsic}, for how to obtain the number of bits
1886 in a type.
1887 The leftmost bit of @var{I} is @samp{BIT_SIZE(@var{I}-1)}.
1889 @end ifset
1890 @ifset familyF77
1891 @node CAbs Intrinsic
1892 @subsubsection CAbs Intrinsic
1893 @cindex CAbs intrinsic
1894 @cindex intrinsics, CAbs
1896 @noindent
1897 @example
1898 CAbs(@var{A})
1899 @end example
1901 @noindent
1902 CAbs: @code{REAL(KIND=1)} function.
1904 @noindent
1905 @var{A}: @code{COMPLEX(KIND=1)}; scalar; INTENT(IN).
1907 @noindent
1908 Intrinsic groups: (standard FORTRAN 77).
1910 @noindent
1911 Description:
1913 Archaic form of @code{ABS()} that is specific
1914 to one type for @var{A}.
1915 @xref{Abs Intrinsic}.
1917 @node CCos Intrinsic
1918 @subsubsection CCos Intrinsic
1919 @cindex CCos intrinsic
1920 @cindex intrinsics, CCos
1922 @noindent
1923 @example
1924 CCos(@var{X})
1925 @end example
1927 @noindent
1928 CCos: @code{COMPLEX(KIND=1)} function.
1930 @noindent
1931 @var{X}: @code{COMPLEX(KIND=1)}; scalar; INTENT(IN).
1933 @noindent
1934 Intrinsic groups: (standard FORTRAN 77).
1936 @noindent
1937 Description:
1939 Archaic form of @code{COS()} that is specific
1940 to one type for @var{X}.
1941 @xref{Cos Intrinsic}.
1943 @end ifset
1944 @ifset familyFVZ
1945 @node CDAbs Intrinsic
1946 @subsubsection CDAbs Intrinsic
1947 @cindex CDAbs intrinsic
1948 @cindex intrinsics, CDAbs
1950 @noindent
1951 @example
1952 CDAbs(@var{A})
1953 @end example
1955 @noindent
1956 CDAbs: @code{REAL(KIND=2)} function.
1958 @noindent
1959 @var{A}: @code{COMPLEX(KIND=2)}; scalar; INTENT(IN).
1961 @noindent
1962 Intrinsic groups: @code{f2c}, @code{vxt}.
1964 @noindent
1965 Description:
1967 Archaic form of @code{ABS()} that is specific
1968 to one type for @var{A}.
1969 @xref{Abs Intrinsic}.
1971 @node CDCos Intrinsic
1972 @subsubsection CDCos Intrinsic
1973 @cindex CDCos intrinsic
1974 @cindex intrinsics, CDCos
1976 @noindent
1977 @example
1978 CDCos(@var{X})
1979 @end example
1981 @noindent
1982 CDCos: @code{COMPLEX(KIND=2)} function.
1984 @noindent
1985 @var{X}: @code{COMPLEX(KIND=2)}; scalar; INTENT(IN).
1987 @noindent
1988 Intrinsic groups: @code{f2c}, @code{vxt}.
1990 @noindent
1991 Description:
1993 Archaic form of @code{COS()} that is specific
1994 to one type for @var{X}.
1995 @xref{Cos Intrinsic}.
1997 @node CDExp Intrinsic
1998 @subsubsection CDExp Intrinsic
1999 @cindex CDExp intrinsic
2000 @cindex intrinsics, CDExp
2002 @noindent
2003 @example
2004 CDExp(@var{X})
2005 @end example
2007 @noindent
2008 CDExp: @code{COMPLEX(KIND=2)} function.
2010 @noindent
2011 @var{X}: @code{COMPLEX(KIND=2)}; scalar; INTENT(IN).
2013 @noindent
2014 Intrinsic groups: @code{f2c}, @code{vxt}.
2016 @noindent
2017 Description:
2019 Archaic form of @code{EXP()} that is specific
2020 to one type for @var{X}.
2021 @xref{Exp Intrinsic}.
2023 @node CDLog Intrinsic
2024 @subsubsection CDLog Intrinsic
2025 @cindex CDLog intrinsic
2026 @cindex intrinsics, CDLog
2028 @noindent
2029 @example
2030 CDLog(@var{X})
2031 @end example
2033 @noindent
2034 CDLog: @code{COMPLEX(KIND=2)} function.
2036 @noindent
2037 @var{X}: @code{COMPLEX(KIND=2)}; scalar; INTENT(IN).
2039 @noindent
2040 Intrinsic groups: @code{f2c}, @code{vxt}.
2042 @noindent
2043 Description:
2045 Archaic form of @code{LOG()} that is specific
2046 to one type for @var{X}.
2047 @xref{Log Intrinsic}.
2049 @node CDSin Intrinsic
2050 @subsubsection CDSin Intrinsic
2051 @cindex CDSin intrinsic
2052 @cindex intrinsics, CDSin
2054 @noindent
2055 @example
2056 CDSin(@var{X})
2057 @end example
2059 @noindent
2060 CDSin: @code{COMPLEX(KIND=2)} function.
2062 @noindent
2063 @var{X}: @code{COMPLEX(KIND=2)}; scalar; INTENT(IN).
2065 @noindent
2066 Intrinsic groups: @code{f2c}, @code{vxt}.
2068 @noindent
2069 Description:
2071 Archaic form of @code{SIN()} that is specific
2072 to one type for @var{X}.
2073 @xref{Sin Intrinsic}.
2075 @node CDSqRt Intrinsic
2076 @subsubsection CDSqRt Intrinsic
2077 @cindex CDSqRt intrinsic
2078 @cindex intrinsics, CDSqRt
2080 @noindent
2081 @example
2082 CDSqRt(@var{X})
2083 @end example
2085 @noindent
2086 CDSqRt: @code{COMPLEX(KIND=2)} function.
2088 @noindent
2089 @var{X}: @code{COMPLEX(KIND=2)}; scalar; INTENT(IN).
2091 @noindent
2092 Intrinsic groups: @code{f2c}, @code{vxt}.
2094 @noindent
2095 Description:
2097 Archaic form of @code{SQRT()} that is specific
2098 to one type for @var{X}.
2099 @xref{SqRt Intrinsic}.
2101 @end ifset
2102 @ifset familyF90
2103 @node Ceiling Intrinsic
2104 @subsubsection Ceiling Intrinsic
2105 @cindex Ceiling intrinsic
2106 @cindex intrinsics, Ceiling
2108 This intrinsic is not yet implemented.
2109 The name is, however, reserved as an intrinsic.
2110 Use @samp{EXTERNAL Ceiling} to use this name for an
2111 external procedure.
2113 @end ifset
2114 @ifset familyF77
2115 @node CExp Intrinsic
2116 @subsubsection CExp Intrinsic
2117 @cindex CExp intrinsic
2118 @cindex intrinsics, CExp
2120 @noindent
2121 @example
2122 CExp(@var{X})
2123 @end example
2125 @noindent
2126 CExp: @code{COMPLEX(KIND=1)} function.
2128 @noindent
2129 @var{X}: @code{COMPLEX(KIND=1)}; scalar; INTENT(IN).
2131 @noindent
2132 Intrinsic groups: (standard FORTRAN 77).
2134 @noindent
2135 Description:
2137 Archaic form of @code{EXP()} that is specific
2138 to one type for @var{X}.
2139 @xref{Exp Intrinsic}.
2141 @node Char Intrinsic
2142 @subsubsection Char Intrinsic
2143 @cindex Char intrinsic
2144 @cindex intrinsics, Char
2146 @noindent
2147 @example
2148 Char(@var{I})
2149 @end example
2151 @noindent
2152 Char: @code{CHARACTER*1} function.
2154 @noindent
2155 @var{I}: @code{INTEGER}; scalar; INTENT(IN).
2157 @noindent
2158 Intrinsic groups: (standard FORTRAN 77).
2160 @noindent
2161 Description:
2163 Returns the character corresponding to the
2164 code specified by @var{I}, using the system's
2165 native character set.
2167 Because the system's native character set is used,
2168 the correspondence between character and their codes
2169 is not necessarily the same between GNU Fortran
2170 implementations.
2172 Note that no intrinsic exists to convert a numerical
2173 value to a printable character string.
2174 For example, there is no intrinsic that, given
2175 an @code{INTEGER} or @code{REAL} argument with the
2176 value @samp{154}, returns the @code{CHARACTER}
2177 result @samp{'154'}.
2179 Instead, you can use internal-file I/O to do this kind
2180 of conversion.
2181 For example:
2183 @smallexample
2184 INTEGER VALUE
2185 CHARACTER*10 STRING
2186 VALUE = 154
2187 WRITE (STRING, '(I10)'), VALUE
2188 PRINT *, STRING
2190 @end smallexample
2192 The above program, when run, prints:
2194 @smallexample
2195         154
2196 @end smallexample
2198 @xref{IChar Intrinsic}, for the inverse of the @code{CHAR} function.
2200 @xref{AChar Intrinsic}, for the function corresponding
2201 to the ASCII character set.
2203 @end ifset
2204 @ifset familyF2U
2205 @node ChDir Intrinsic (subroutine)
2206 @subsubsection ChDir Intrinsic (subroutine)
2207 @cindex ChDir intrinsic
2208 @cindex intrinsics, ChDir
2210 @noindent
2211 @example
2212 CALL ChDir(@var{Dir}, @var{Status})
2213 @end example
2215 @noindent
2216 @var{Dir}: @code{CHARACTER}; scalar; INTENT(IN).
2218 @noindent
2219 @var{Status}: @code{INTEGER(KIND=1)}; OPTIONAL; scalar; INTENT(OUT).
2221 @noindent
2222 Intrinsic groups: @code{unix}.
2224 @noindent
2225 Description:
2227 Sets the current working directory to be @var{Dir}.
2228 If the @var{Status} argument is supplied, it contains 0
2229 on success or a nonzero error code otherwise upon return.
2230 See @code{chdir(3)}.
2232 @emph{Caution:} Using this routine during I/O to a unit connected with a
2233 non-absolute file name can cause subsequent I/O on such a unit to fail
2234 because the I/O library might reopen files by name.
2236 Some non-GNU implementations of Fortran provide this intrinsic as
2237 only a function, not as a subroutine, or do not support the
2238 (optional) @var{Status} argument.
2240 For information on other intrinsics with the same name:
2241 @xref{ChDir Intrinsic (function)}.
2243 @end ifset
2244 @ifset familyBADU77
2245 @node ChDir Intrinsic (function)
2246 @subsubsection ChDir Intrinsic (function)
2247 @cindex ChDir intrinsic
2248 @cindex intrinsics, ChDir
2250 @noindent
2251 @example
2252 ChDir(@var{Dir})
2253 @end example
2255 @noindent
2256 ChDir: @code{INTEGER(KIND=1)} function.
2258 @noindent
2259 @var{Dir}: @code{CHARACTER}; scalar; INTENT(IN).
2261 @noindent
2262 Intrinsic groups: @code{badu77}.
2264 @noindent
2265 Description:
2267 Sets the current working directory to be @var{Dir}.
2268 Returns 0 on success or a nonzero error code.
2269 See @code{chdir(3)}.
2271 @emph{Caution:} Using this routine during I/O to a unit connected with a
2272 non-absolute file name can cause subsequent I/O on such a unit to fail
2273 because the I/O library might reopen files by name.
2275 Due to the side effects performed by this intrinsic, the function
2276 form is not recommended.
2278 For information on other intrinsics with the same name:
2279 @xref{ChDir Intrinsic (subroutine)}.
2281 @end ifset
2282 @ifset familyF2U
2283 @node ChMod Intrinsic (subroutine)
2284 @subsubsection ChMod Intrinsic (subroutine)
2285 @cindex ChMod intrinsic
2286 @cindex intrinsics, ChMod
2288 @noindent
2289 @example
2290 CALL ChMod(@var{Name}, @var{Mode}, @var{Status})
2291 @end example
2293 @noindent
2294 @var{Name}: @code{CHARACTER}; scalar; INTENT(IN).
2296 @noindent
2297 @var{Mode}: @code{CHARACTER}; scalar; INTENT(IN).
2299 @noindent
2300 @var{Status}: @code{INTEGER(KIND=1)}; OPTIONAL; scalar; INTENT(OUT).
2302 @noindent
2303 Intrinsic groups: @code{unix}.
2305 @noindent
2306 Description:
2308 Changes the access mode of file @var{Name} according to the
2309 specification @var{Mode}, which is given in the format of
2310 @code{chmod(1)}.
2311 A null character (@samp{CHAR(0)}) marks the end of
2312 the name in @var{Name}---otherwise,
2313 trailing blanks in @var{Name} are ignored.
2314 Currently, @var{Name} must not contain the single quote
2315 character.
2317 If the @var{Status} argument is supplied, it contains
2318 0 on success or a nonzero error code upon return.
2320 Note that this currently works
2321 by actually invoking @code{/bin/chmod} (or the @code{chmod} found when
2322 the library was configured) and so might fail in some circumstances and
2323 will, anyway, be slow.
2325 Some non-GNU implementations of Fortran provide this intrinsic as
2326 only a function, not as a subroutine, or do not support the
2327 (optional) @var{Status} argument.
2329 For information on other intrinsics with the same name:
2330 @xref{ChMod Intrinsic (function)}.
2332 @end ifset
2333 @ifset familyBADU77
2334 @node ChMod Intrinsic (function)
2335 @subsubsection ChMod Intrinsic (function)
2336 @cindex ChMod intrinsic
2337 @cindex intrinsics, ChMod
2339 @noindent
2340 @example
2341 ChMod(@var{Name}, @var{Mode})
2342 @end example
2344 @noindent
2345 ChMod: @code{INTEGER(KIND=1)} function.
2347 @noindent
2348 @var{Name}: @code{CHARACTER}; scalar; INTENT(IN).
2350 @noindent
2351 @var{Mode}: @code{CHARACTER}; scalar; INTENT(IN).
2353 @noindent
2354 Intrinsic groups: @code{badu77}.
2356 @noindent
2357 Description:
2359 Changes the access mode of file @var{Name} according to the
2360 specification @var{Mode}, which is given in the format of
2361 @code{chmod(1)}.
2362 A null character (@samp{CHAR(0)}) marks the end of
2363 the name in @var{Name}---otherwise,
2364 trailing blanks in @var{Name} are ignored.
2365 Currently, @var{Name} must not contain the single quote
2366 character.
2368 Returns 0 on success or a nonzero error code otherwise.
2370 Note that this currently works
2371 by actually invoking @code{/bin/chmod} (or the @code{chmod} found when
2372 the library was configured) and so might fail in some circumstances and
2373 will, anyway, be slow.
2375 Due to the side effects performed by this intrinsic, the function
2376 form is not recommended.
2378 For information on other intrinsics with the same name:
2379 @xref{ChMod Intrinsic (subroutine)}.
2381 @end ifset
2382 @ifset familyF77
2383 @node CLog Intrinsic
2384 @subsubsection CLog Intrinsic
2385 @cindex CLog intrinsic
2386 @cindex intrinsics, CLog
2388 @noindent
2389 @example
2390 CLog(@var{X})
2391 @end example
2393 @noindent
2394 CLog: @code{COMPLEX(KIND=1)} function.
2396 @noindent
2397 @var{X}: @code{COMPLEX(KIND=1)}; scalar; INTENT(IN).
2399 @noindent
2400 Intrinsic groups: (standard FORTRAN 77).
2402 @noindent
2403 Description:
2405 Archaic form of @code{LOG()} that is specific
2406 to one type for @var{X}.
2407 @xref{Log Intrinsic}.
2409 @node Cmplx Intrinsic
2410 @subsubsection Cmplx Intrinsic
2411 @cindex Cmplx intrinsic
2412 @cindex intrinsics, Cmplx
2414 @noindent
2415 @example
2416 Cmplx(@var{X}, @var{Y})
2417 @end example
2419 @noindent
2420 Cmplx: @code{COMPLEX(KIND=1)} function.
2422 @noindent
2423 @var{X}: @code{INTEGER}, @code{REAL}, or @code{COMPLEX}; scalar; INTENT(IN).
2425 @noindent
2426 @var{Y}: @code{INTEGER} or @code{REAL}; OPTIONAL (must be omitted if @var{X} is @code{COMPLEX}); scalar; INTENT(IN).
2428 @noindent
2429 Intrinsic groups: (standard FORTRAN 77).
2431 @noindent
2432 Description:
2434 If @var{X} is not type @code{COMPLEX},
2435 constructs a value of type @code{COMPLEX(KIND=1)} from the
2436 real and imaginary values specified by @var{X} and
2437 @var{Y}, respectively.
2438 If @var{Y} is omitted, @samp{0.} is assumed.
2440 If @var{X} is type @code{COMPLEX},
2441 converts it to type @code{COMPLEX(KIND=1)}.
2443 @xref{Complex Intrinsic}, for information on easily constructing
2444 a @code{COMPLEX} value of arbitrary precision from @code{REAL}
2445 arguments.
2447 @end ifset
2448 @ifset familyGNU
2449 @node Complex Intrinsic
2450 @subsubsection Complex Intrinsic
2451 @cindex Complex intrinsic
2452 @cindex intrinsics, Complex
2454 @noindent
2455 @example
2456 Complex(@var{Real}, @var{Imag})
2457 @end example
2459 @noindent
2460 Complex: @code{COMPLEX} function, the exact type being the result of cross-promoting the
2461 types of all the arguments.
2463 @noindent
2464 @var{Real}: @code{INTEGER} or @code{REAL}; scalar; INTENT(IN).
2466 @noindent
2467 @var{Imag}: @code{INTEGER} or @code{REAL}; scalar; INTENT(IN).
2469 @noindent
2470 Intrinsic groups: @code{gnu}.
2472 @noindent
2473 Description:
2475 Returns a @code{COMPLEX} value that has @samp{Real} and @samp{Imag} as its
2476 real and imaginary parts, respectively.
2478 If @var{Real} and @var{Imag} are the same type, and that type is not
2479 @code{INTEGER}, no data conversion is performed, and the type of
2480 the resulting value has the same kind value as the types
2481 of @var{Real} and @var{Imag}.
2483 If @var{Real} and @var{Imag} are not the same type, the usual type-promotion
2484 rules are applied to both, converting either or both to the
2485 appropriate @code{REAL} type.
2486 The type of the resulting value has the same kind value as the
2487 type to which both @var{Real} and @var{Imag} were converted, in this case.
2489 If @var{Real} and @var{Imag} are both @code{INTEGER}, they are both converted
2490 to @code{REAL(KIND=1)}, and the result of the @code{COMPLEX()}
2491 invocation is type @code{COMPLEX(KIND=1)}.
2493 @emph{Note:} The way to do this in standard Fortran 90
2494 is too hairy to describe here, but it is important to
2495 note that @samp{CMPLX(D1,D2)} returns a @code{COMPLEX(KIND=1)}
2496 result even if @samp{D1} and @samp{D2} are type @code{REAL(KIND=2)}.
2497 Hence the availability of @code{COMPLEX()} in GNU Fortran.
2499 @end ifset
2500 @ifset familyF77
2501 @node Conjg Intrinsic
2502 @subsubsection Conjg Intrinsic
2503 @cindex Conjg intrinsic
2504 @cindex intrinsics, Conjg
2506 @noindent
2507 @example
2508 Conjg(@var{Z})
2509 @end example
2511 @noindent
2512 Conjg: @code{COMPLEX} function, the @samp{KIND=} value of the type being that of argument @var{Z}.
2514 @noindent
2515 @var{Z}: @code{COMPLEX}; scalar; INTENT(IN).
2517 @noindent
2518 Intrinsic groups: (standard FORTRAN 77).
2520 @noindent
2521 Description:
2523 Returns the complex conjugate:
2525 @example
2526 COMPLEX(REALPART(@var{Z}), -IMAGPART(@var{Z}))
2527 @end example
2529 @node Cos Intrinsic
2530 @subsubsection Cos Intrinsic
2531 @cindex Cos intrinsic
2532 @cindex intrinsics, Cos
2534 @noindent
2535 @example
2536 Cos(@var{X})
2537 @end example
2539 @noindent
2540 Cos: @code{REAL} or @code{COMPLEX} function, the exact type being that of argument @var{X}.
2542 @noindent
2543 @var{X}: @code{REAL} or @code{COMPLEX}; scalar; INTENT(IN).
2545 @noindent
2546 Intrinsic groups: (standard FORTRAN 77).
2548 @noindent
2549 Description:
2551 Returns the cosine of @var{X}, an angle measured
2552 in radians.
2554 @xref{ACos Intrinsic}, for the inverse of this function.
2556 @end ifset
2557 @ifset familyVXT
2558 @node CosD Intrinsic
2559 @subsubsection CosD Intrinsic
2560 @cindex CosD intrinsic
2561 @cindex intrinsics, CosD
2563 This intrinsic is not yet implemented.
2564 The name is, however, reserved as an intrinsic.
2565 Use @samp{EXTERNAL CosD} to use this name for an
2566 external procedure.
2568 @end ifset
2569 @ifset familyF77
2570 @node CosH Intrinsic
2571 @subsubsection CosH Intrinsic
2572 @cindex CosH intrinsic
2573 @cindex intrinsics, CosH
2575 @noindent
2576 @example
2577 CosH(@var{X})
2578 @end example
2580 @noindent
2581 CosH: @code{REAL} function, the @samp{KIND=} value of the type being that of argument @var{X}.
2583 @noindent
2584 @var{X}: @code{REAL}; scalar; INTENT(IN).
2586 @noindent
2587 Intrinsic groups: (standard FORTRAN 77).
2589 @noindent
2590 Description:
2592 Returns the hyperbolic cosine of @var{X}.
2594 @end ifset
2595 @ifset familyF90
2596 @node Count Intrinsic
2597 @subsubsection Count Intrinsic
2598 @cindex Count intrinsic
2599 @cindex intrinsics, Count
2601 This intrinsic is not yet implemented.
2602 The name is, however, reserved as an intrinsic.
2603 Use @samp{EXTERNAL Count} to use this name for an
2604 external procedure.
2606 @node CPU_Time Intrinsic
2607 @subsubsection CPU_Time Intrinsic
2608 @cindex CPU_Time intrinsic
2609 @cindex intrinsics, CPU_Time
2611 @noindent
2612 @example
2613 CALL CPU_Time(@var{Seconds})
2614 @end example
2616 @noindent
2617 @var{Seconds}: @code{REAL}; scalar; INTENT(OUT).
2619 @noindent
2620 Intrinsic groups: @code{f90}.
2622 @noindent
2623 Description:
2625 Returns in @var{Seconds} the current value of the system time.
2626 This implementation of the Fortran 95 intrinsic is just an alias for
2627 @code{second} @xref{Second Intrinsic (subroutine)}.
2629 @cindex wraparound, timings
2630 @cindex limits, timings
2631 On some systems, the underlying timings are represented
2632 using types with sufficiently small limits that overflows
2633 (wraparounds) are possible, such as 32-bit types.
2634 Therefore, the values returned by this intrinsic
2635 might be, or become, negative,
2636 or numerically less than previous values,
2637 during a single run of the compiled program.
2639 @node CShift Intrinsic
2640 @subsubsection CShift Intrinsic
2641 @cindex CShift intrinsic
2642 @cindex intrinsics, CShift
2644 This intrinsic is not yet implemented.
2645 The name is, however, reserved as an intrinsic.
2646 Use @samp{EXTERNAL CShift} to use this name for an
2647 external procedure.
2649 @end ifset
2650 @ifset familyF77
2651 @node CSin Intrinsic
2652 @subsubsection CSin Intrinsic
2653 @cindex CSin intrinsic
2654 @cindex intrinsics, CSin
2656 @noindent
2657 @example
2658 CSin(@var{X})
2659 @end example
2661 @noindent
2662 CSin: @code{COMPLEX(KIND=1)} function.
2664 @noindent
2665 @var{X}: @code{COMPLEX(KIND=1)}; scalar; INTENT(IN).
2667 @noindent
2668 Intrinsic groups: (standard FORTRAN 77).
2670 @noindent
2671 Description:
2673 Archaic form of @code{SIN()} that is specific
2674 to one type for @var{X}.
2675 @xref{Sin Intrinsic}.
2677 @node CSqRt Intrinsic
2678 @subsubsection CSqRt Intrinsic
2679 @cindex CSqRt intrinsic
2680 @cindex intrinsics, CSqRt
2682 @noindent
2683 @example
2684 CSqRt(@var{X})
2685 @end example
2687 @noindent
2688 CSqRt: @code{COMPLEX(KIND=1)} function.
2690 @noindent
2691 @var{X}: @code{COMPLEX(KIND=1)}; scalar; INTENT(IN).
2693 @noindent
2694 Intrinsic groups: (standard FORTRAN 77).
2696 @noindent
2697 Description:
2699 Archaic form of @code{SQRT()} that is specific
2700 to one type for @var{X}.
2701 @xref{SqRt Intrinsic}.
2703 @end ifset
2704 @ifset familyF2U
2705 @node CTime Intrinsic (subroutine)
2706 @subsubsection CTime Intrinsic (subroutine)
2707 @cindex CTime intrinsic
2708 @cindex intrinsics, CTime
2710 @noindent
2711 @example
2712 CALL CTime(@var{STime}, @var{Result})
2713 @end example
2715 @noindent
2716 @var{STime}: @code{INTEGER}; scalar; INTENT(IN).
2718 @noindent
2719 @var{Result}: @code{CHARACTER}; scalar; INTENT(OUT).
2721 @noindent
2722 Intrinsic groups: @code{unix}.
2724 @noindent
2725 Description:
2727 Converts @var{STime}, a system time value, such as returned by
2728 @code{TIME8()}, to a string of the form @samp{Sat Aug 19 18:13:14 1995},
2729 and returns that string in @var{Result}.
2731 @xref{Time8 Intrinsic}.
2733 Some non-GNU implementations of Fortran provide this intrinsic as
2734 only a function, not as a subroutine.
2736 For information on other intrinsics with the same name:
2737 @xref{CTime Intrinsic (function)}.
2739 @node CTime Intrinsic (function)
2740 @subsubsection CTime Intrinsic (function)
2741 @cindex CTime intrinsic
2742 @cindex intrinsics, CTime
2744 @noindent
2745 @example
2746 CTime(@var{STime})
2747 @end example
2749 @noindent
2750 CTime: @code{CHARACTER*(*)} function.
2752 @noindent
2753 @var{STime}: @code{INTEGER}; scalar; INTENT(IN).
2755 @noindent
2756 Intrinsic groups: @code{unix}.
2758 @noindent
2759 Description:
2761 Converts @var{STime}, a system time value, such as returned by
2762 @code{TIME8()}, to a string of the form @samp{Sat Aug 19 18:13:14 1995},
2763 and returns that string as the function value.
2765 @xref{Time8 Intrinsic}.
2767 For information on other intrinsics with the same name:
2768 @xref{CTime Intrinsic (subroutine)}.
2770 @end ifset
2771 @ifset familyF77
2772 @node DAbs Intrinsic
2773 @subsubsection DAbs Intrinsic
2774 @cindex DAbs intrinsic
2775 @cindex intrinsics, DAbs
2777 @noindent
2778 @example
2779 DAbs(@var{A})
2780 @end example
2782 @noindent
2783 DAbs: @code{REAL(KIND=2)} function.
2785 @noindent
2786 @var{A}: @code{REAL(KIND=2)}; scalar; INTENT(IN).
2788 @noindent
2789 Intrinsic groups: (standard FORTRAN 77).
2791 @noindent
2792 Description:
2794 Archaic form of @code{ABS()} that is specific
2795 to one type for @var{A}.
2796 @xref{Abs Intrinsic}.
2798 @node DACos Intrinsic
2799 @subsubsection DACos Intrinsic
2800 @cindex DACos intrinsic
2801 @cindex intrinsics, DACos
2803 @noindent
2804 @example
2805 DACos(@var{X})
2806 @end example
2808 @noindent
2809 DACos: @code{REAL(KIND=2)} function.
2811 @noindent
2812 @var{X}: @code{REAL(KIND=2)}; scalar; INTENT(IN).
2814 @noindent
2815 Intrinsic groups: (standard FORTRAN 77).
2817 @noindent
2818 Description:
2820 Archaic form of @code{ACOS()} that is specific
2821 to one type for @var{X}.
2822 @xref{ACos Intrinsic}.
2824 @end ifset
2825 @ifset familyVXT
2826 @node DACosD Intrinsic
2827 @subsubsection DACosD Intrinsic
2828 @cindex DACosD intrinsic
2829 @cindex intrinsics, DACosD
2831 This intrinsic is not yet implemented.
2832 The name is, however, reserved as an intrinsic.
2833 Use @samp{EXTERNAL DACosD} to use this name for an
2834 external procedure.
2836 @end ifset
2837 @ifset familyF77
2838 @node DASin Intrinsic
2839 @subsubsection DASin Intrinsic
2840 @cindex DASin intrinsic
2841 @cindex intrinsics, DASin
2843 @noindent
2844 @example
2845 DASin(@var{X})
2846 @end example
2848 @noindent
2849 DASin: @code{REAL(KIND=2)} function.
2851 @noindent
2852 @var{X}: @code{REAL(KIND=2)}; scalar; INTENT(IN).
2854 @noindent
2855 Intrinsic groups: (standard FORTRAN 77).
2857 @noindent
2858 Description:
2860 Archaic form of @code{ASIN()} that is specific
2861 to one type for @var{X}.
2862 @xref{ASin Intrinsic}.
2864 @end ifset
2865 @ifset familyVXT
2866 @node DASinD Intrinsic
2867 @subsubsection DASinD Intrinsic
2868 @cindex DASinD intrinsic
2869 @cindex intrinsics, DASinD
2871 This intrinsic is not yet implemented.
2872 The name is, however, reserved as an intrinsic.
2873 Use @samp{EXTERNAL DASinD} to use this name for an
2874 external procedure.
2876 @end ifset
2877 @ifset familyF77
2878 @node DATan Intrinsic
2879 @subsubsection DATan Intrinsic
2880 @cindex DATan intrinsic
2881 @cindex intrinsics, DATan
2883 @noindent
2884 @example
2885 DATan(@var{X})
2886 @end example
2888 @noindent
2889 DATan: @code{REAL(KIND=2)} function.
2891 @noindent
2892 @var{X}: @code{REAL(KIND=2)}; scalar; INTENT(IN).
2894 @noindent
2895 Intrinsic groups: (standard FORTRAN 77).
2897 @noindent
2898 Description:
2900 Archaic form of @code{ATAN()} that is specific
2901 to one type for @var{X}.
2902 @xref{ATan Intrinsic}.
2904 @node DATan2 Intrinsic
2905 @subsubsection DATan2 Intrinsic
2906 @cindex DATan2 intrinsic
2907 @cindex intrinsics, DATan2
2909 @noindent
2910 @example
2911 DATan2(@var{Y}, @var{X})
2912 @end example
2914 @noindent
2915 DATan2: @code{REAL(KIND=2)} function.
2917 @noindent
2918 @var{Y}: @code{REAL(KIND=2)}; scalar; INTENT(IN).
2920 @noindent
2921 @var{X}: @code{REAL(KIND=2)}; scalar; INTENT(IN).
2923 @noindent
2924 Intrinsic groups: (standard FORTRAN 77).
2926 @noindent
2927 Description:
2929 Archaic form of @code{ATAN2()} that is specific
2930 to one type for @var{Y} and @var{X}.
2931 @xref{ATan2 Intrinsic}.
2933 @end ifset
2934 @ifset familyVXT
2935 @node DATan2D Intrinsic
2936 @subsubsection DATan2D Intrinsic
2937 @cindex DATan2D intrinsic
2938 @cindex intrinsics, DATan2D
2940 This intrinsic is not yet implemented.
2941 The name is, however, reserved as an intrinsic.
2942 Use @samp{EXTERNAL DATan2D} to use this name for an
2943 external procedure.
2945 @node DATanD Intrinsic
2946 @subsubsection DATanD Intrinsic
2947 @cindex DATanD intrinsic
2948 @cindex intrinsics, DATanD
2950 This intrinsic is not yet implemented.
2951 The name is, however, reserved as an intrinsic.
2952 Use @samp{EXTERNAL DATanD} to use this name for an
2953 external procedure.
2955 @node Date Intrinsic
2956 @subsubsection Date Intrinsic
2957 @cindex Date intrinsic
2958 @cindex intrinsics, Date
2960 @noindent
2961 @example
2962 CALL Date(@var{Date})
2963 @end example
2965 @noindent
2966 @var{Date}: @code{CHARACTER}; scalar; INTENT(OUT).
2968 @noindent
2969 Intrinsic groups: @code{vxt}.
2971 @noindent
2972 Description:
2974 Returns @var{Date} in the form @samp{@var{dd}-@var{mmm}-@var{yy}},
2975 representing the numeric day of the month @var{dd}, a three-character
2976 abbreviation of the month name @var{mmm} and the last two digits of
2977 the year @var{yy}, e.g.@: @samp{25-Nov-96}.
2979 @cindex Y2K compliance
2980 @cindex Year 2000 compliance
2981 This intrinsic is not recommended, due to the year 2000 approaching.
2982 Therefore, programs making use of this intrinsic
2983 might not be Year 2000 (Y2K) compliant.
2984 @xref{CTime Intrinsic (subroutine)}, for information on obtaining more digits
2985 for the current (or any) date.
2987 @end ifset
2988 @ifset familyF90
2989 @node Date_and_Time Intrinsic
2990 @subsubsection Date_and_Time Intrinsic
2991 @cindex Date_and_Time intrinsic
2992 @cindex intrinsics, Date_and_Time
2994 @noindent
2995 @example
2996 CALL Date_and_Time(@var{Date}, @var{Time}, @var{Zone}, @var{Values})
2997 @end example
2999 @noindent
3000 @var{Date}: @code{CHARACTER}; scalar; INTENT(OUT).
3002 @noindent
3003 @var{Time}: @code{CHARACTER}; OPTIONAL; scalar; INTENT(OUT).
3005 @noindent
3006 @var{Zone}: @code{CHARACTER}; OPTIONAL; scalar; INTENT(OUT).
3008 @noindent
3009 @var{Values}: @code{INTEGER(KIND=1)}; OPTIONAL; DIMENSION(8); INTENT(OUT).
3011 @noindent
3012 Intrinsic groups: @code{f90}.
3014 @noindent
3015 Description:
3017 Returns:
3018 @table @var
3019 @item Date
3020 The date in the form @var{ccyymmdd}: century, year, month and day;
3021 @item Time
3022 The time in the form @samp{@var{hhmmss.ss}}: hours, minutes, seconds
3023 and milliseconds;
3024 @item Zone
3025 The difference between local time and UTC (GMT) in the form @var{Shhmm}:
3026 sign, hours and minutes, e.g.@: @samp{-0500} (winter in New York);
3027 @item Values
3028 The year, month of the year, day of the month, time difference in
3029 minutes from UTC, hour of the day, minutes of the hour, seconds
3030 of the minute, and milliseconds
3031 of the second in successive values of the array.
3032 @end table
3034 @cindex Y10K compliance
3035 @cindex Year 10000 compliance
3036 @cindex wraparound, Y10K
3037 @cindex limits, Y10K
3038 Programs making use of this intrinsic
3039 might not be Year 10000 (Y10K) compliant.
3040 For example, the date might appear,
3041 to such programs, to wrap around
3042 (change from a larger value to a smaller one)
3043 as of the Year 10000.
3045 On systems where a millisecond timer isn't available, the millisecond
3046 value is returned as zero.
3048 @end ifset
3049 @ifset familyF2U
3050 @node DbesJ0 Intrinsic
3051 @subsubsection DbesJ0 Intrinsic
3052 @cindex DbesJ0 intrinsic
3053 @cindex intrinsics, DbesJ0
3055 @noindent
3056 @example
3057 DbesJ0(@var{X})
3058 @end example
3060 @noindent
3061 DbesJ0: @code{REAL(KIND=2)} function.
3063 @noindent
3064 @var{X}: @code{REAL(KIND=2)}; scalar; INTENT(IN).
3066 @noindent
3067 Intrinsic groups: @code{unix}.
3069 @noindent
3070 Description:
3072 Archaic form of @code{BESJ0()} that is specific
3073 to one type for @var{X}.
3074 @xref{BesJ0 Intrinsic}.
3076 @node DbesJ1 Intrinsic
3077 @subsubsection DbesJ1 Intrinsic
3078 @cindex DbesJ1 intrinsic
3079 @cindex intrinsics, DbesJ1
3081 @noindent
3082 @example
3083 DbesJ1(@var{X})
3084 @end example
3086 @noindent
3087 DbesJ1: @code{REAL(KIND=2)} function.
3089 @noindent
3090 @var{X}: @code{REAL(KIND=2)}; scalar; INTENT(IN).
3092 @noindent
3093 Intrinsic groups: @code{unix}.
3095 @noindent
3096 Description:
3098 Archaic form of @code{BESJ1()} that is specific
3099 to one type for @var{X}.
3100 @xref{BesJ1 Intrinsic}.
3102 @node DbesJN Intrinsic
3103 @subsubsection DbesJN Intrinsic
3104 @cindex DbesJN intrinsic
3105 @cindex intrinsics, DbesJN
3107 @noindent
3108 @example
3109 DbesJN(@var{N}, @var{X})
3110 @end example
3112 @noindent
3113 DbesJN: @code{REAL(KIND=2)} function.
3115 @noindent
3116 @var{N}: @code{INTEGER} not wider than the default kind; scalar; INTENT(IN).
3118 @noindent
3119 @var{X}: @code{REAL(KIND=2)}; scalar; INTENT(IN).
3121 @noindent
3122 Intrinsic groups: @code{unix}.
3124 @noindent
3125 Description:
3127 Archaic form of @code{BESJN()} that is specific
3128 to one type for @var{X}.
3129 @xref{BesJN Intrinsic}.
3131 @node DbesY0 Intrinsic
3132 @subsubsection DbesY0 Intrinsic
3133 @cindex DbesY0 intrinsic
3134 @cindex intrinsics, DbesY0
3136 @noindent
3137 @example
3138 DbesY0(@var{X})
3139 @end example
3141 @noindent
3142 DbesY0: @code{REAL(KIND=2)} function.
3144 @noindent
3145 @var{X}: @code{REAL(KIND=2)}; scalar; INTENT(IN).
3147 @noindent
3148 Intrinsic groups: @code{unix}.
3150 @noindent
3151 Description:
3153 Archaic form of @code{BESY0()} that is specific
3154 to one type for @var{X}.
3155 @xref{BesY0 Intrinsic}.
3157 @node DbesY1 Intrinsic
3158 @subsubsection DbesY1 Intrinsic
3159 @cindex DbesY1 intrinsic
3160 @cindex intrinsics, DbesY1
3162 @noindent
3163 @example
3164 DbesY1(@var{X})
3165 @end example
3167 @noindent
3168 DbesY1: @code{REAL(KIND=2)} function.
3170 @noindent
3171 @var{X}: @code{REAL(KIND=2)}; scalar; INTENT(IN).
3173 @noindent
3174 Intrinsic groups: @code{unix}.
3176 @noindent
3177 Description:
3179 Archaic form of @code{BESY1()} that is specific
3180 to one type for @var{X}.
3181 @xref{BesY1 Intrinsic}.
3183 @node DbesYN Intrinsic
3184 @subsubsection DbesYN Intrinsic
3185 @cindex DbesYN intrinsic
3186 @cindex intrinsics, DbesYN
3188 @noindent
3189 @example
3190 DbesYN(@var{N}, @var{X})
3191 @end example
3193 @noindent
3194 DbesYN: @code{REAL(KIND=2)} function.
3196 @noindent
3197 @var{N}: @code{INTEGER} not wider than the default kind; scalar; INTENT(IN).
3199 @noindent
3200 @var{X}: @code{REAL(KIND=2)}; scalar; INTENT(IN).
3202 @noindent
3203 Intrinsic groups: @code{unix}.
3205 @noindent
3206 Description:
3208 Archaic form of @code{BESYN()} that is specific
3209 to one type for @var{X}.
3210 @xref{BesYN Intrinsic}.
3212 @end ifset
3213 @ifset familyF77
3214 @node Dble Intrinsic
3215 @subsubsection Dble Intrinsic
3216 @cindex Dble intrinsic
3217 @cindex intrinsics, Dble
3219 @noindent
3220 @example
3221 Dble(@var{A})
3222 @end example
3224 @noindent
3225 Dble: @code{REAL(KIND=2)} function.
3227 @noindent
3228 @var{A}: @code{INTEGER}, @code{REAL}, or @code{COMPLEX}; scalar; INTENT(IN).
3230 @noindent
3231 Intrinsic groups: (standard FORTRAN 77).
3233 @noindent
3234 Description:
3236 Returns @var{A} converted to double precision
3237 (@code{REAL(KIND=2)}).
3238 If @var{A} is @code{COMPLEX}, the real part of
3239 @var{A} is used for the conversion
3240 and the imaginary part disregarded.
3242 @xref{Sngl Intrinsic}, for the function that converts
3243 to single precision.
3245 @xref{Int Intrinsic}, for the function that converts
3246 to @code{INTEGER}.
3248 @xref{Complex Intrinsic}, for the function that converts
3249 to @code{COMPLEX}.
3251 @end ifset
3252 @ifset familyVXT
3253 @node DbleQ Intrinsic
3254 @subsubsection DbleQ Intrinsic
3255 @cindex DbleQ intrinsic
3256 @cindex intrinsics, DbleQ
3258 This intrinsic is not yet implemented.
3259 The name is, however, reserved as an intrinsic.
3260 Use @samp{EXTERNAL DbleQ} to use this name for an
3261 external procedure.
3263 @end ifset
3264 @ifset familyFVZ
3265 @node DCmplx Intrinsic
3266 @subsubsection DCmplx Intrinsic
3267 @cindex DCmplx intrinsic
3268 @cindex intrinsics, DCmplx
3270 @noindent
3271 @example
3272 DCmplx(@var{X}, @var{Y})
3273 @end example
3275 @noindent
3276 DCmplx: @code{COMPLEX(KIND=2)} function.
3278 @noindent
3279 @var{X}: @code{INTEGER}, @code{REAL}, or @code{COMPLEX}; scalar; INTENT(IN).
3281 @noindent
3282 @var{Y}: @code{INTEGER} or @code{REAL}; OPTIONAL (must be omitted if @var{X} is @code{COMPLEX}); scalar; INTENT(IN).
3284 @noindent
3285 Intrinsic groups: @code{f2c}, @code{vxt}.
3287 @noindent
3288 Description:
3290 If @var{X} is not type @code{COMPLEX},
3291 constructs a value of type @code{COMPLEX(KIND=2)} from the
3292 real and imaginary values specified by @var{X} and
3293 @var{Y}, respectively.
3294 If @var{Y} is omitted, @samp{0D0} is assumed.
3296 If @var{X} is type @code{COMPLEX},
3297 converts it to type @code{COMPLEX(KIND=2)}.
3299 Although this intrinsic is not standard Fortran,
3300 it is a popular extension offered by many compilers
3301 that support @code{DOUBLE COMPLEX}, since it offers
3302 the easiest way to convert to @code{DOUBLE COMPLEX}
3303 without using Fortran 90 features (such as the @samp{KIND=}
3304 argument to the @code{CMPLX()} intrinsic).
3306 (@samp{CMPLX(0D0, 0D0)} returns a single-precision
3307 @code{COMPLEX} result, as required by standard FORTRAN 77.
3308 That's why so many compilers provide @code{DCMPLX()}, since
3309 @samp{DCMPLX(0D0, 0D0)} returns a @code{DOUBLE COMPLEX}
3310 result.
3311 Still, @code{DCMPLX()} converts even @code{REAL*16} arguments
3312 to their @code{REAL*8} equivalents in most dialects of
3313 Fortran, so neither it nor @code{CMPLX()} allow easy
3314 construction of arbitrary-precision values without
3315 potentially forcing a conversion involving extending or
3316 reducing precision.
3317 GNU Fortran provides such an intrinsic, called @code{COMPLEX()}.)
3319 @xref{Complex Intrinsic}, for information on easily constructing
3320 a @code{COMPLEX} value of arbitrary precision from @code{REAL}
3321 arguments.
3323 @node DConjg Intrinsic
3324 @subsubsection DConjg Intrinsic
3325 @cindex DConjg intrinsic
3326 @cindex intrinsics, DConjg
3328 @noindent
3329 @example
3330 DConjg(@var{Z})
3331 @end example
3333 @noindent
3334 DConjg: @code{COMPLEX(KIND=2)} function.
3336 @noindent
3337 @var{Z}: @code{COMPLEX(KIND=2)}; scalar; INTENT(IN).
3339 @noindent
3340 Intrinsic groups: @code{f2c}, @code{vxt}.
3342 @noindent
3343 Description:
3345 Archaic form of @code{CONJG()} that is specific
3346 to one type for @var{Z}.
3347 @xref{Conjg Intrinsic}.
3349 @end ifset
3350 @ifset familyF77
3351 @node DCos Intrinsic
3352 @subsubsection DCos Intrinsic
3353 @cindex DCos intrinsic
3354 @cindex intrinsics, DCos
3356 @noindent
3357 @example
3358 DCos(@var{X})
3359 @end example
3361 @noindent
3362 DCos: @code{REAL(KIND=2)} function.
3364 @noindent
3365 @var{X}: @code{REAL(KIND=2)}; scalar; INTENT(IN).
3367 @noindent
3368 Intrinsic groups: (standard FORTRAN 77).
3370 @noindent
3371 Description:
3373 Archaic form of @code{COS()} that is specific
3374 to one type for @var{X}.
3375 @xref{Cos Intrinsic}.
3377 @end ifset
3378 @ifset familyVXT
3379 @node DCosD Intrinsic
3380 @subsubsection DCosD Intrinsic
3381 @cindex DCosD intrinsic
3382 @cindex intrinsics, DCosD
3384 This intrinsic is not yet implemented.
3385 The name is, however, reserved as an intrinsic.
3386 Use @samp{EXTERNAL DCosD} to use this name for an
3387 external procedure.
3389 @end ifset
3390 @ifset familyF77
3391 @node DCosH Intrinsic
3392 @subsubsection DCosH Intrinsic
3393 @cindex DCosH intrinsic
3394 @cindex intrinsics, DCosH
3396 @noindent
3397 @example
3398 DCosH(@var{X})
3399 @end example
3401 @noindent
3402 DCosH: @code{REAL(KIND=2)} function.
3404 @noindent
3405 @var{X}: @code{REAL(KIND=2)}; scalar; INTENT(IN).
3407 @noindent
3408 Intrinsic groups: (standard FORTRAN 77).
3410 @noindent
3411 Description:
3413 Archaic form of @code{COSH()} that is specific
3414 to one type for @var{X}.
3415 @xref{CosH Intrinsic}.
3417 @node DDiM Intrinsic
3418 @subsubsection DDiM Intrinsic
3419 @cindex DDiM intrinsic
3420 @cindex intrinsics, DDiM
3422 @noindent
3423 @example
3424 DDiM(@var{X}, @var{Y})
3425 @end example
3427 @noindent
3428 DDiM: @code{REAL(KIND=2)} function.
3430 @noindent
3431 @var{X}: @code{REAL(KIND=2)}; scalar; INTENT(IN).
3433 @noindent
3434 @var{Y}: @code{REAL(KIND=2)}; scalar; INTENT(IN).
3436 @noindent
3437 Intrinsic groups: (standard FORTRAN 77).
3439 @noindent
3440 Description:
3442 Archaic form of @code{DIM()} that is specific
3443 to one type for @var{X} and @var{Y}.
3444 @xref{DiM Intrinsic}.
3446 @end ifset
3447 @ifset familyF2U
3448 @node DErF Intrinsic
3449 @subsubsection DErF Intrinsic
3450 @cindex DErF intrinsic
3451 @cindex intrinsics, DErF
3453 @noindent
3454 @example
3455 DErF(@var{X})
3456 @end example
3458 @noindent
3459 DErF: @code{REAL(KIND=2)} function.
3461 @noindent
3462 @var{X}: @code{REAL(KIND=2)}; scalar; INTENT(IN).
3464 @noindent
3465 Intrinsic groups: @code{unix}.
3467 @noindent
3468 Description:
3470 Archaic form of @code{ERF()} that is specific
3471 to one type for @var{X}.
3472 @xref{ErF Intrinsic}.
3474 @node DErFC Intrinsic
3475 @subsubsection DErFC Intrinsic
3476 @cindex DErFC intrinsic
3477 @cindex intrinsics, DErFC
3479 @noindent
3480 @example
3481 DErFC(@var{X})
3482 @end example
3484 @noindent
3485 DErFC: @code{REAL(KIND=2)} function.
3487 @noindent
3488 @var{X}: @code{REAL(KIND=2)}; scalar; INTENT(IN).
3490 @noindent
3491 Intrinsic groups: @code{unix}.
3493 @noindent
3494 Description:
3496 Archaic form of @code{ERFC()} that is specific
3497 to one type for @var{X}.
3498 @xref{ErFC Intrinsic}.
3500 @end ifset
3501 @ifset familyF77
3502 @node DExp Intrinsic
3503 @subsubsection DExp Intrinsic
3504 @cindex DExp intrinsic
3505 @cindex intrinsics, DExp
3507 @noindent
3508 @example
3509 DExp(@var{X})
3510 @end example
3512 @noindent
3513 DExp: @code{REAL(KIND=2)} function.
3515 @noindent
3516 @var{X}: @code{REAL(KIND=2)}; scalar; INTENT(IN).
3518 @noindent
3519 Intrinsic groups: (standard FORTRAN 77).
3521 @noindent
3522 Description:
3524 Archaic form of @code{EXP()} that is specific
3525 to one type for @var{X}.
3526 @xref{Exp Intrinsic}.
3528 @end ifset
3529 @ifset familyFVZ
3530 @node DFloat Intrinsic
3531 @subsubsection DFloat Intrinsic
3532 @cindex DFloat intrinsic
3533 @cindex intrinsics, DFloat
3535 @noindent
3536 @example
3537 DFloat(@var{A})
3538 @end example
3540 @noindent
3541 DFloat: @code{REAL(KIND=2)} function.
3543 @noindent
3544 @var{A}: @code{INTEGER}; scalar; INTENT(IN).
3546 @noindent
3547 Intrinsic groups: @code{f2c}, @code{vxt}.
3549 @noindent
3550 Description:
3552 Archaic form of @code{REAL()} that is specific
3553 to one type for @var{A}.
3554 @xref{Real Intrinsic}.
3556 @end ifset
3557 @ifset familyVXT
3558 @node DFlotI Intrinsic
3559 @subsubsection DFlotI Intrinsic
3560 @cindex DFlotI intrinsic
3561 @cindex intrinsics, DFlotI
3563 This intrinsic is not yet implemented.
3564 The name is, however, reserved as an intrinsic.
3565 Use @samp{EXTERNAL DFlotI} to use this name for an
3566 external procedure.
3568 @node DFlotJ Intrinsic
3569 @subsubsection DFlotJ Intrinsic
3570 @cindex DFlotJ intrinsic
3571 @cindex intrinsics, DFlotJ
3573 This intrinsic is not yet implemented.
3574 The name is, however, reserved as an intrinsic.
3575 Use @samp{EXTERNAL DFlotJ} to use this name for an
3576 external procedure.
3578 @end ifset
3579 @ifset familyF90
3580 @node Digits Intrinsic
3581 @subsubsection Digits Intrinsic
3582 @cindex Digits intrinsic
3583 @cindex intrinsics, Digits
3585 This intrinsic is not yet implemented.
3586 The name is, however, reserved as an intrinsic.
3587 Use @samp{EXTERNAL Digits} to use this name for an
3588 external procedure.
3590 @end ifset
3591 @ifset familyF77
3592 @node DiM Intrinsic
3593 @subsubsection DiM Intrinsic
3594 @cindex DiM intrinsic
3595 @cindex intrinsics, DiM
3597 @noindent
3598 @example
3599 DiM(@var{X}, @var{Y})
3600 @end example
3602 @noindent
3603 DiM: @code{INTEGER} or @code{REAL} function, the exact type being the result of cross-promoting the
3604 types of all the arguments.
3606 @noindent
3607 @var{X}: @code{INTEGER} or @code{REAL}; scalar; INTENT(IN).
3609 @noindent
3610 @var{Y}: @code{INTEGER} or @code{REAL}; scalar; INTENT(IN).
3612 @noindent
3613 Intrinsic groups: (standard FORTRAN 77).
3615 @noindent
3616 Description:
3618 Returns @samp{@var{X}-@var{Y}} if @var{X} is greater than
3619 @var{Y}; otherwise returns zero.
3621 @end ifset
3622 @ifset familyFVZ
3623 @node DImag Intrinsic
3624 @subsubsection DImag Intrinsic
3625 @cindex DImag intrinsic
3626 @cindex intrinsics, DImag
3628 @noindent
3629 @example
3630 DImag(@var{Z})
3631 @end example
3633 @noindent
3634 DImag: @code{REAL(KIND=2)} function.
3636 @noindent
3637 @var{Z}: @code{COMPLEX(KIND=2)}; scalar; INTENT(IN).
3639 @noindent
3640 Intrinsic groups: @code{f2c}, @code{vxt}.
3642 @noindent
3643 Description:
3645 Archaic form of @code{AIMAG()} that is specific
3646 to one type for @var{Z}.
3647 @xref{AImag Intrinsic}.
3649 @end ifset
3650 @ifset familyF77
3651 @node DInt Intrinsic
3652 @subsubsection DInt Intrinsic
3653 @cindex DInt intrinsic
3654 @cindex intrinsics, DInt
3656 @noindent
3657 @example
3658 DInt(@var{A})
3659 @end example
3661 @noindent
3662 DInt: @code{REAL(KIND=2)} function.
3664 @noindent
3665 @var{A}: @code{REAL(KIND=2)}; scalar; INTENT(IN).
3667 @noindent
3668 Intrinsic groups: (standard FORTRAN 77).
3670 @noindent
3671 Description:
3673 Archaic form of @code{AINT()} that is specific
3674 to one type for @var{A}.
3675 @xref{AInt Intrinsic}.
3677 @node DLog Intrinsic
3678 @subsubsection DLog Intrinsic
3679 @cindex DLog intrinsic
3680 @cindex intrinsics, DLog
3682 @noindent
3683 @example
3684 DLog(@var{X})
3685 @end example
3687 @noindent
3688 DLog: @code{REAL(KIND=2)} function.
3690 @noindent
3691 @var{X}: @code{REAL(KIND=2)}; scalar; INTENT(IN).
3693 @noindent
3694 Intrinsic groups: (standard FORTRAN 77).
3696 @noindent
3697 Description:
3699 Archaic form of @code{LOG()} that is specific
3700 to one type for @var{X}.
3701 @xref{Log Intrinsic}.
3703 @node DLog10 Intrinsic
3704 @subsubsection DLog10 Intrinsic
3705 @cindex DLog10 intrinsic
3706 @cindex intrinsics, DLog10
3708 @noindent
3709 @example
3710 DLog10(@var{X})
3711 @end example
3713 @noindent
3714 DLog10: @code{REAL(KIND=2)} function.
3716 @noindent
3717 @var{X}: @code{REAL(KIND=2)}; scalar; INTENT(IN).
3719 @noindent
3720 Intrinsic groups: (standard FORTRAN 77).
3722 @noindent
3723 Description:
3725 Archaic form of @code{LOG10()} that is specific
3726 to one type for @var{X}.
3727 @xref{Log10 Intrinsic}.
3729 @node DMax1 Intrinsic
3730 @subsubsection DMax1 Intrinsic
3731 @cindex DMax1 intrinsic
3732 @cindex intrinsics, DMax1
3734 @noindent
3735 @example
3736 DMax1(@var{A}-1, @var{A}-2, @dots{}, @var{A}-n)
3737 @end example
3739 @noindent
3740 DMax1: @code{REAL(KIND=2)} function.
3742 @noindent
3743 @var{A}: @code{REAL(KIND=2)}; at least two such arguments must be provided; scalar; INTENT(IN).
3745 @noindent
3746 Intrinsic groups: (standard FORTRAN 77).
3748 @noindent
3749 Description:
3751 Archaic form of @code{MAX()} that is specific
3752 to one type for @var{A}.
3753 @xref{Max Intrinsic}.
3755 @node DMin1 Intrinsic
3756 @subsubsection DMin1 Intrinsic
3757 @cindex DMin1 intrinsic
3758 @cindex intrinsics, DMin1
3760 @noindent
3761 @example
3762 DMin1(@var{A}-1, @var{A}-2, @dots{}, @var{A}-n)
3763 @end example
3765 @noindent
3766 DMin1: @code{REAL(KIND=2)} function.
3768 @noindent
3769 @var{A}: @code{REAL(KIND=2)}; at least two such arguments must be provided; scalar; INTENT(IN).
3771 @noindent
3772 Intrinsic groups: (standard FORTRAN 77).
3774 @noindent
3775 Description:
3777 Archaic form of @code{MIN()} that is specific
3778 to one type for @var{A}.
3779 @xref{Min Intrinsic}.
3781 @node DMod Intrinsic
3782 @subsubsection DMod Intrinsic
3783 @cindex DMod intrinsic
3784 @cindex intrinsics, DMod
3786 @noindent
3787 @example
3788 DMod(@var{A}, @var{P})
3789 @end example
3791 @noindent
3792 DMod: @code{REAL(KIND=2)} function.
3794 @noindent
3795 @var{A}: @code{REAL(KIND=2)}; scalar; INTENT(IN).
3797 @noindent
3798 @var{P}: @code{REAL(KIND=2)}; scalar; INTENT(IN).
3800 @noindent
3801 Intrinsic groups: (standard FORTRAN 77).
3803 @noindent
3804 Description:
3806 Archaic form of @code{MOD()} that is specific
3807 to one type for @var{A}.
3808 @xref{Mod Intrinsic}.
3810 @node DNInt Intrinsic
3811 @subsubsection DNInt Intrinsic
3812 @cindex DNInt intrinsic
3813 @cindex intrinsics, DNInt
3815 @noindent
3816 @example
3817 DNInt(@var{A})
3818 @end example
3820 @noindent
3821 DNInt: @code{REAL(KIND=2)} function.
3823 @noindent
3824 @var{A}: @code{REAL(KIND=2)}; scalar; INTENT(IN).
3826 @noindent
3827 Intrinsic groups: (standard FORTRAN 77).
3829 @noindent
3830 Description:
3832 Archaic form of @code{ANINT()} that is specific
3833 to one type for @var{A}.
3834 @xref{ANInt Intrinsic}.
3836 @end ifset
3837 @ifset familyF90
3838 @node Dot_Product Intrinsic
3839 @subsubsection Dot_Product Intrinsic
3840 @cindex Dot_Product intrinsic
3841 @cindex intrinsics, Dot_Product
3843 This intrinsic is not yet implemented.
3844 The name is, however, reserved as an intrinsic.
3845 Use @samp{EXTERNAL Dot_Product} to use this name for an
3846 external procedure.
3848 @end ifset
3849 @ifset familyF77
3850 @node DProd Intrinsic
3851 @subsubsection DProd Intrinsic
3852 @cindex DProd intrinsic
3853 @cindex intrinsics, DProd
3855 @noindent
3856 @example
3857 DProd(@var{X}, @var{Y})
3858 @end example
3860 @noindent
3861 DProd: @code{REAL(KIND=2)} function.
3863 @noindent
3864 @var{X}: @code{REAL(KIND=1)}; scalar; INTENT(IN).
3866 @noindent
3867 @var{Y}: @code{REAL(KIND=1)}; scalar; INTENT(IN).
3869 @noindent
3870 Intrinsic groups: (standard FORTRAN 77).
3872 @noindent
3873 Description:
3875 Returns @samp{DBLE(@var{X})*DBLE(@var{Y})}.
3877 @end ifset
3878 @ifset familyVXT
3879 @node DReal Intrinsic
3880 @subsubsection DReal Intrinsic
3881 @cindex DReal intrinsic
3882 @cindex intrinsics, DReal
3884 @noindent
3885 @example
3886 DReal(@var{A})
3887 @end example
3889 @noindent
3890 DReal: @code{REAL(KIND=2)} function.
3892 @noindent
3893 @var{A}: @code{INTEGER}, @code{REAL}, or @code{COMPLEX}; scalar; INTENT(IN).
3895 @noindent
3896 Intrinsic groups: @code{vxt}.
3898 @noindent
3899 Description:
3901 Converts @var{A} to @code{REAL(KIND=2)}.
3903 If @var{A} is type @code{COMPLEX}, its real part
3904 is converted (if necessary) to @code{REAL(KIND=2)},
3905 and its imaginary part is disregarded.
3907 Although this intrinsic is not standard Fortran,
3908 it is a popular extension offered by many compilers
3909 that support @code{DOUBLE COMPLEX}, since it offers
3910 the easiest way to extract the real part of a @code{DOUBLE COMPLEX}
3911 value without using the Fortran 90 @code{REAL()} intrinsic
3912 in a way that produces a return value inconsistent with
3913 the way many FORTRAN 77 compilers handle @code{REAL()} of
3914 a @code{DOUBLE COMPLEX} value.
3916 @xref{RealPart Intrinsic}, for information on a GNU Fortran
3917 intrinsic that avoids these areas of confusion.
3919 @xref{Dble Intrinsic}, for information on the standard FORTRAN 77
3920 replacement for @code{DREAL()}.
3922 @xref{REAL() and AIMAG() of Complex}, for more information on
3923 this issue.
3925 @end ifset
3926 @ifset familyF77
3927 @node DSign Intrinsic
3928 @subsubsection DSign Intrinsic
3929 @cindex DSign intrinsic
3930 @cindex intrinsics, DSign
3932 @noindent
3933 @example
3934 DSign(@var{A}, @var{B})
3935 @end example
3937 @noindent
3938 DSign: @code{REAL(KIND=2)} function.
3940 @noindent
3941 @var{A}: @code{REAL(KIND=2)}; scalar; INTENT(IN).
3943 @noindent
3944 @var{B}: @code{REAL(KIND=2)}; scalar; INTENT(IN).
3946 @noindent
3947 Intrinsic groups: (standard FORTRAN 77).
3949 @noindent
3950 Description:
3952 Archaic form of @code{SIGN()} that is specific
3953 to one type for @var{A} and @var{B}.
3954 @xref{Sign Intrinsic}.
3956 @node DSin Intrinsic
3957 @subsubsection DSin Intrinsic
3958 @cindex DSin intrinsic
3959 @cindex intrinsics, DSin
3961 @noindent
3962 @example
3963 DSin(@var{X})
3964 @end example
3966 @noindent
3967 DSin: @code{REAL(KIND=2)} function.
3969 @noindent
3970 @var{X}: @code{REAL(KIND=2)}; scalar; INTENT(IN).
3972 @noindent
3973 Intrinsic groups: (standard FORTRAN 77).
3975 @noindent
3976 Description:
3978 Archaic form of @code{SIN()} that is specific
3979 to one type for @var{X}.
3980 @xref{Sin Intrinsic}.
3982 @end ifset
3983 @ifset familyVXT
3984 @node DSinD Intrinsic
3985 @subsubsection DSinD Intrinsic
3986 @cindex DSinD intrinsic
3987 @cindex intrinsics, DSinD
3989 This intrinsic is not yet implemented.
3990 The name is, however, reserved as an intrinsic.
3991 Use @samp{EXTERNAL DSinD} to use this name for an
3992 external procedure.
3994 @end ifset
3995 @ifset familyF77
3996 @node DSinH Intrinsic
3997 @subsubsection DSinH Intrinsic
3998 @cindex DSinH intrinsic
3999 @cindex intrinsics, DSinH
4001 @noindent
4002 @example
4003 DSinH(@var{X})
4004 @end example
4006 @noindent
4007 DSinH: @code{REAL(KIND=2)} function.
4009 @noindent
4010 @var{X}: @code{REAL(KIND=2)}; scalar; INTENT(IN).
4012 @noindent
4013 Intrinsic groups: (standard FORTRAN 77).
4015 @noindent
4016 Description:
4018 Archaic form of @code{SINH()} that is specific
4019 to one type for @var{X}.
4020 @xref{SinH Intrinsic}.
4022 @node DSqRt Intrinsic
4023 @subsubsection DSqRt Intrinsic
4024 @cindex DSqRt intrinsic
4025 @cindex intrinsics, DSqRt
4027 @noindent
4028 @example
4029 DSqRt(@var{X})
4030 @end example
4032 @noindent
4033 DSqRt: @code{REAL(KIND=2)} function.
4035 @noindent
4036 @var{X}: @code{REAL(KIND=2)}; scalar; INTENT(IN).
4038 @noindent
4039 Intrinsic groups: (standard FORTRAN 77).
4041 @noindent
4042 Description:
4044 Archaic form of @code{SQRT()} that is specific
4045 to one type for @var{X}.
4046 @xref{SqRt Intrinsic}.
4048 @node DTan Intrinsic
4049 @subsubsection DTan Intrinsic
4050 @cindex DTan intrinsic
4051 @cindex intrinsics, DTan
4053 @noindent
4054 @example
4055 DTan(@var{X})
4056 @end example
4058 @noindent
4059 DTan: @code{REAL(KIND=2)} function.
4061 @noindent
4062 @var{X}: @code{REAL(KIND=2)}; scalar; INTENT(IN).
4064 @noindent
4065 Intrinsic groups: (standard FORTRAN 77).
4067 @noindent
4068 Description:
4070 Archaic form of @code{TAN()} that is specific
4071 to one type for @var{X}.
4072 @xref{Tan Intrinsic}.
4074 @end ifset
4075 @ifset familyVXT
4076 @node DTanD Intrinsic
4077 @subsubsection DTanD Intrinsic
4078 @cindex DTanD intrinsic
4079 @cindex intrinsics, DTanD
4081 This intrinsic is not yet implemented.
4082 The name is, however, reserved as an intrinsic.
4083 Use @samp{EXTERNAL DTanD} to use this name for an
4084 external procedure.
4086 @end ifset
4087 @ifset familyF77
4088 @node DTanH Intrinsic
4089 @subsubsection DTanH Intrinsic
4090 @cindex DTanH intrinsic
4091 @cindex intrinsics, DTanH
4093 @noindent
4094 @example
4095 DTanH(@var{X})
4096 @end example
4098 @noindent
4099 DTanH: @code{REAL(KIND=2)} function.
4101 @noindent
4102 @var{X}: @code{REAL(KIND=2)}; scalar; INTENT(IN).
4104 @noindent
4105 Intrinsic groups: (standard FORTRAN 77).
4107 @noindent
4108 Description:
4110 Archaic form of @code{TANH()} that is specific
4111 to one type for @var{X}.
4112 @xref{TanH Intrinsic}.
4114 @end ifset
4115 @ifset familyF2U
4116 @node DTime Intrinsic (subroutine)
4117 @subsubsection DTime Intrinsic (subroutine)
4118 @cindex DTime intrinsic
4119 @cindex intrinsics, DTime
4121 @noindent
4122 @example
4123 CALL DTime(@var{TArray}, @var{Result})
4124 @end example
4126 @noindent
4127 @var{TArray}: @code{REAL(KIND=1)}; DIMENSION(2); INTENT(OUT).
4129 @noindent
4130 @var{Result}: @code{REAL(KIND=1)}; scalar; INTENT(OUT).
4132 @noindent
4133 Intrinsic groups: @code{unix}.
4135 @noindent
4136 Description:
4138 Initially, return the number of seconds of runtime
4139 since the start of the process's execution
4140 in @var{Result},
4141 and the user and system components of this in @samp{@var{TArray}(1)}
4142 and @samp{@var{TArray}(2)} respectively.
4143 The value of @var{Result} is equal to @samp{@var{TArray}(1) + @var{TArray}(2)}.
4145 Subsequent invocations of @samp{DTIME()} set values based on accumulations
4146 since the previous invocation.
4148 @cindex wraparound, timings
4149 @cindex limits, timings
4150 On some systems, the underlying timings are represented
4151 using types with sufficiently small limits that overflows
4152 (wraparounds) are possible, such as 32-bit types.
4153 Therefore, the values returned by this intrinsic
4154 might be, or become, negative,
4155 or numerically less than previous values,
4156 during a single run of the compiled program.
4158 Some non-GNU implementations of Fortran provide this intrinsic as
4159 only a function, not as a subroutine.
4161 For information on other intrinsics with the same name:
4162 @xref{DTime Intrinsic (function)}.
4164 @end ifset
4165 @ifset familyBADU77
4166 @node DTime Intrinsic (function)
4167 @subsubsection DTime Intrinsic (function)
4168 @cindex DTime intrinsic
4169 @cindex intrinsics, DTime
4171 @noindent
4172 @example
4173 DTime(@var{TArray})
4174 @end example
4176 @noindent
4177 DTime: @code{REAL(KIND=1)} function.
4179 @noindent
4180 @var{TArray}: @code{REAL(KIND=1)}; DIMENSION(2); INTENT(OUT).
4182 @noindent
4183 Intrinsic groups: @code{badu77}.
4185 @noindent
4186 Description:
4188 Initially, return the number of seconds of runtime
4189 since the start of the process's execution
4190 as the function value,
4191 and the user and system components of this in @samp{@var{TArray}(1)}
4192 and @samp{@var{TArray}(2)} respectively.
4193 The functions' value is equal to @samp{@var{TArray}(1) + @var{TArray}(2)}.
4195 Subsequent invocations of @samp{DTIME()} return values accumulated since the
4196 previous invocation.
4198 @cindex wraparound, timings
4199 @cindex limits, timings
4200 On some systems, the underlying timings are represented
4201 using types with sufficiently small limits that overflows
4202 (wraparounds) are possible, such as 32-bit types.
4203 Therefore, the values returned by this intrinsic
4204 might be, or become, negative,
4205 or numerically less than previous values,
4206 during a single run of the compiled program.
4208 Due to the side effects performed by this intrinsic, the function
4209 form is not recommended.
4211 For information on other intrinsics with the same name:
4212 @xref{DTime Intrinsic (subroutine)}.
4214 @end ifset
4215 @ifset familyF90
4216 @node EOShift Intrinsic
4217 @subsubsection EOShift Intrinsic
4218 @cindex EOShift intrinsic
4219 @cindex intrinsics, EOShift
4221 This intrinsic is not yet implemented.
4222 The name is, however, reserved as an intrinsic.
4223 Use @samp{EXTERNAL EOShift} to use this name for an
4224 external procedure.
4226 @node Epsilon Intrinsic
4227 @subsubsection Epsilon Intrinsic
4228 @cindex Epsilon intrinsic
4229 @cindex intrinsics, Epsilon
4231 This intrinsic is not yet implemented.
4232 The name is, however, reserved as an intrinsic.
4233 Use @samp{EXTERNAL Epsilon} to use this name for an
4234 external procedure.
4236 @end ifset
4237 @ifset familyF2U
4238 @node ErF Intrinsic
4239 @subsubsection ErF Intrinsic
4240 @cindex ErF intrinsic
4241 @cindex intrinsics, ErF
4243 @noindent
4244 @example
4245 ErF(@var{X})
4246 @end example
4248 @noindent
4249 ErF: @code{REAL} function, the @samp{KIND=} value of the type being that of argument @var{X}.
4251 @noindent
4252 @var{X}: @code{REAL}; scalar; INTENT(IN).
4254 @noindent
4255 Intrinsic groups: @code{unix}.
4257 @noindent
4258 Description:
4260 Returns the error function of @var{X}.
4261 See @code{erf(3m)}, which provides the implementation.
4263 @node ErFC Intrinsic
4264 @subsubsection ErFC Intrinsic
4265 @cindex ErFC intrinsic
4266 @cindex intrinsics, ErFC
4268 @noindent
4269 @example
4270 ErFC(@var{X})
4271 @end example
4273 @noindent
4274 ErFC: @code{REAL} function, the @samp{KIND=} value of the type being that of argument @var{X}.
4276 @noindent
4277 @var{X}: @code{REAL}; scalar; INTENT(IN).
4279 @noindent
4280 Intrinsic groups: @code{unix}.
4282 @noindent
4283 Description:
4285 Returns the complementary error function of @var{X}:
4286 @samp{ERFC(R) = 1 - ERF(R)} (except that the result might be more
4287 accurate than explicitly evaluating that formulae would give).
4288 See @code{erfc(3m)}, which provides the implementation.
4290 @node ETime Intrinsic (subroutine)
4291 @subsubsection ETime Intrinsic (subroutine)
4292 @cindex ETime intrinsic
4293 @cindex intrinsics, ETime
4295 @noindent
4296 @example
4297 CALL ETime(@var{TArray}, @var{Result})
4298 @end example
4300 @noindent
4301 @var{TArray}: @code{REAL(KIND=1)}; DIMENSION(2); INTENT(OUT).
4303 @noindent
4304 @var{Result}: @code{REAL(KIND=1)}; scalar; INTENT(OUT).
4306 @noindent
4307 Intrinsic groups: @code{unix}.
4309 @noindent
4310 Description:
4312 Return the number of seconds of runtime
4313 since the start of the process's execution
4314 in @var{Result},
4315 and the user and system components of this in @samp{@var{TArray}(1)}
4316 and @samp{@var{TArray}(2)} respectively.
4317 The value of @var{Result} is equal to @samp{@var{TArray}(1) + @var{TArray}(2)}.
4319 @cindex wraparound, timings
4320 @cindex limits, timings
4321 On some systems, the underlying timings are represented
4322 using types with sufficiently small limits that overflows
4323 (wraparounds) are possible, such as 32-bit types.
4324 Therefore, the values returned by this intrinsic
4325 might be, or become, negative,
4326 or numerically less than previous values,
4327 during a single run of the compiled program.
4329 Some non-GNU implementations of Fortran provide this intrinsic as
4330 only a function, not as a subroutine.
4332 For information on other intrinsics with the same name:
4333 @xref{ETime Intrinsic (function)}.
4335 @node ETime Intrinsic (function)
4336 @subsubsection ETime Intrinsic (function)
4337 @cindex ETime intrinsic
4338 @cindex intrinsics, ETime
4340 @noindent
4341 @example
4342 ETime(@var{TArray})
4343 @end example
4345 @noindent
4346 ETime: @code{REAL(KIND=1)} function.
4348 @noindent
4349 @var{TArray}: @code{REAL(KIND=1)}; DIMENSION(2); INTENT(OUT).
4351 @noindent
4352 Intrinsic groups: @code{unix}.
4354 @noindent
4355 Description:
4357 Return the number of seconds of runtime
4358 since the start of the process's execution
4359 as the function value,
4360 and the user and system components of this in @samp{@var{TArray}(1)}
4361 and @samp{@var{TArray}(2)} respectively.
4362 The functions' value is equal to @samp{@var{TArray}(1) + @var{TArray}(2)}.
4364 @cindex wraparound, timings
4365 @cindex limits, timings
4366 On some systems, the underlying timings are represented
4367 using types with sufficiently small limits that overflows
4368 (wraparounds) are possible, such as 32-bit types.
4369 Therefore, the values returned by this intrinsic
4370 might be, or become, negative,
4371 or numerically less than previous values,
4372 during a single run of the compiled program.
4374 For information on other intrinsics with the same name:
4375 @xref{ETime Intrinsic (subroutine)}.
4377 @node Exit Intrinsic
4378 @subsubsection Exit Intrinsic
4379 @cindex Exit intrinsic
4380 @cindex intrinsics, Exit
4382 @noindent
4383 @example
4384 CALL Exit(@var{Status})
4385 @end example
4387 @noindent
4388 @var{Status}: @code{INTEGER} not wider than the default kind; OPTIONAL; scalar; INTENT(IN).
4390 @noindent
4391 Intrinsic groups: @code{unix}.
4393 @noindent
4394 Description:
4396 Exit the program with status @var{Status} after closing open Fortran
4397 I/O units and otherwise behaving as @code{exit(2)}.
4398 If @var{Status} is omitted the canonical `success' value
4399 will be returned to the system.
4401 @end ifset
4402 @ifset familyF77
4403 @node Exp Intrinsic
4404 @subsubsection Exp Intrinsic
4405 @cindex Exp intrinsic
4406 @cindex intrinsics, Exp
4408 @noindent
4409 @example
4410 Exp(@var{X})
4411 @end example
4413 @noindent
4414 Exp: @code{REAL} or @code{COMPLEX} function, the exact type being that of argument @var{X}.
4416 @noindent
4417 @var{X}: @code{REAL} or @code{COMPLEX}; scalar; INTENT(IN).
4419 @noindent
4420 Intrinsic groups: (standard FORTRAN 77).
4422 @noindent
4423 Description:
4425 Returns @samp{@var{e}**@var{X}}, where
4426 @var{e} is approximately 2.7182818.
4428 @xref{Log Intrinsic}, for the inverse of this function.
4430 @end ifset
4431 @ifset familyF90
4432 @node Exponent Intrinsic
4433 @subsubsection Exponent Intrinsic
4434 @cindex Exponent intrinsic
4435 @cindex intrinsics, Exponent
4437 This intrinsic is not yet implemented.
4438 The name is, however, reserved as an intrinsic.
4439 Use @samp{EXTERNAL Exponent} to use this name for an
4440 external procedure.
4442 @end ifset
4443 @ifset familyF2U
4444 @node FDate Intrinsic (subroutine)
4445 @subsubsection FDate Intrinsic (subroutine)
4446 @cindex FDate intrinsic
4447 @cindex intrinsics, FDate
4449 @noindent
4450 @example
4451 CALL FDate(@var{Date})
4452 @end example
4454 @noindent
4455 @var{Date}: @code{CHARACTER}; scalar; INTENT(OUT).
4457 @noindent
4458 Intrinsic groups: @code{unix}.
4460 @noindent
4461 Description:
4463 Returns the current date (using the same format as @code{CTIME()})
4464 in @var{Date}.
4466 Equivalent to:
4468 @example
4469 CALL CTIME(@var{Date}, TIME8())
4470 @end example
4472 @cindex Y10K compliance
4473 @cindex Year 10000 compliance
4474 @cindex wraparound, Y10K
4475 @cindex limits, Y10K
4476 Programs making use of this intrinsic
4477 might not be Year 10000 (Y10K) compliant.
4478 For example, the date might appear,
4479 to such programs, to wrap around
4480 (change from a larger value to a smaller one)
4481 as of the Year 10000.
4483 @xref{CTime Intrinsic (subroutine)}.
4485 Some non-GNU implementations of Fortran provide this intrinsic as
4486 only a function, not as a subroutine.
4488 For information on other intrinsics with the same name:
4489 @xref{FDate Intrinsic (function)}.
4491 @node FDate Intrinsic (function)
4492 @subsubsection FDate Intrinsic (function)
4493 @cindex FDate intrinsic
4494 @cindex intrinsics, FDate
4496 @noindent
4497 @example
4498 FDate()
4499 @end example
4501 @noindent
4502 FDate: @code{CHARACTER*(*)} function.
4504 @noindent
4505 Intrinsic groups: @code{unix}.
4507 @noindent
4508 Description:
4510 Returns the current date (using the same format as @code{CTIME()}).
4512 Equivalent to:
4514 @example
4515 CTIME(TIME8())
4516 @end example
4518 @cindex Y10K compliance
4519 @cindex Year 10000 compliance
4520 @cindex wraparound, Y10K
4521 @cindex limits, Y10K
4522 Programs making use of this intrinsic
4523 might not be Year 10000 (Y10K) compliant.
4524 For example, the date might appear,
4525 to such programs, to wrap around
4526 (change from a larger value to a smaller one)
4527 as of the Year 10000.
4529 @xref{CTime Intrinsic (function)}.
4531 For information on other intrinsics with the same name:
4532 @xref{FDate Intrinsic (subroutine)}.
4534 @node FGet Intrinsic (subroutine)
4535 @subsubsection FGet Intrinsic (subroutine)
4536 @cindex FGet intrinsic
4537 @cindex intrinsics, FGet
4539 @noindent
4540 @example
4541 CALL FGet(@var{C}, @var{Status})
4542 @end example
4544 @noindent
4545 @var{C}: @code{CHARACTER}; scalar; INTENT(OUT).
4547 @noindent
4548 @var{Status}: @code{INTEGER(KIND=1)}; OPTIONAL; scalar; INTENT(OUT).
4550 @noindent
4551 Intrinsic groups: @code{unix}.
4553 @noindent
4554 Description:
4556 Reads a single character into @var{C} in stream mode from unit 5
4557 (by-passing normal formatted output) using @code{getc(3)}.
4558 Returns in
4559 @var{Status} 0 on success, @minus{}1 on end-of-file, and the error code
4560 from @code{ferror(3)} otherwise.
4562 Stream I/O should not be mixed with normal record-oriented (formatted or
4563 unformatted) I/O on the same unit; the results are unpredictable.
4565 For information on other intrinsics with the same name:
4566 @xref{FGet Intrinsic (function)}.
4568 @end ifset
4569 @ifset familyBADU77
4570 @node FGet Intrinsic (function)
4571 @subsubsection FGet Intrinsic (function)
4572 @cindex FGet intrinsic
4573 @cindex intrinsics, FGet
4575 @noindent
4576 @example
4577 FGet(@var{C})
4578 @end example
4580 @noindent
4581 FGet: @code{INTEGER(KIND=1)} function.
4583 @noindent
4584 @var{C}: @code{CHARACTER}; scalar; INTENT(OUT).
4586 @noindent
4587 Intrinsic groups: @code{badu77}.
4589 @noindent
4590 Description:
4592 Reads a single character into @var{C} in stream mode from unit 5
4593 (by-passing normal formatted input) using @code{getc(3)}.
4594 Returns 0 on
4595 success, @minus{}1 on end-of-file, and the error code from
4596 @code{ferror(3)} otherwise.
4598 Stream I/O should not be mixed with normal record-oriented (formatted or
4599 unformatted) I/O on the same unit; the results are unpredictable.
4601 For information on other intrinsics with the same name:
4602 @xref{FGet Intrinsic (subroutine)}.
4604 @end ifset
4605 @ifset familyF2U
4606 @node FGetC Intrinsic (subroutine)
4607 @subsubsection FGetC Intrinsic (subroutine)
4608 @cindex FGetC intrinsic
4609 @cindex intrinsics, FGetC
4611 @noindent
4612 @example
4613 CALL FGetC(@var{Unit}, @var{C}, @var{Status})
4614 @end example
4616 @noindent
4617 @var{Unit}: @code{INTEGER}; scalar; INTENT(IN).
4619 @noindent
4620 @var{C}: @code{CHARACTER}; scalar; INTENT(OUT).
4622 @noindent
4623 @var{Status}: @code{INTEGER(KIND=1)}; OPTIONAL; scalar; INTENT(OUT).
4625 @noindent
4626 Intrinsic groups: @code{unix}.
4628 @noindent
4629 Description:
4631 Reads a single character into @var{C} in stream mode from unit @var{Unit}
4632 (by-passing normal formatted output) using @code{getc(3)}.
4633 Returns in
4634 @var{Status} 0 on success, @minus{}1 on end-of-file, and the error code from
4635 @code{ferror(3)} otherwise.
4637 Stream I/O should not be mixed with normal record-oriented (formatted or
4638 unformatted) I/O on the same unit; the results are unpredictable.
4640 For information on other intrinsics with the same name:
4641 @xref{FGetC Intrinsic (function)}.
4643 @end ifset
4644 @ifset familyBADU77
4645 @node FGetC Intrinsic (function)
4646 @subsubsection FGetC Intrinsic (function)
4647 @cindex FGetC intrinsic
4648 @cindex intrinsics, FGetC
4650 @noindent
4651 @example
4652 FGetC(@var{Unit}, @var{C})
4653 @end example
4655 @noindent
4656 FGetC: @code{INTEGER(KIND=1)} function.
4658 @noindent
4659 @var{Unit}: @code{INTEGER}; scalar; INTENT(IN).
4661 @noindent
4662 @var{C}: @code{CHARACTER}; scalar; INTENT(OUT).
4664 @noindent
4665 Intrinsic groups: @code{badu77}.
4667 @noindent
4668 Description:
4670 Reads a single character into @var{C} in stream mode from unit @var{Unit}
4671 (by-passing normal formatted output) using @code{getc(3)}.
4672 Returns 0 on
4673 success, @minus{}1 on end-of-file, and the error code from
4674 @code{ferror(3)} otherwise.
4676 Stream I/O should not be mixed with normal record-oriented (formatted or
4677 unformatted) I/O on the same unit; the results are unpredictable.
4679 For information on other intrinsics with the same name:
4680 @xref{FGetC Intrinsic (subroutine)}.
4682 @end ifset
4683 @ifset familyF77
4684 @node Float Intrinsic
4685 @subsubsection Float Intrinsic
4686 @cindex Float intrinsic
4687 @cindex intrinsics, Float
4689 @noindent
4690 @example
4691 Float(@var{A})
4692 @end example
4694 @noindent
4695 Float: @code{REAL(KIND=1)} function.
4697 @noindent
4698 @var{A}: @code{INTEGER}; scalar; INTENT(IN).
4700 @noindent
4701 Intrinsic groups: (standard FORTRAN 77).
4703 @noindent
4704 Description:
4706 Archaic form of @code{REAL()} that is specific
4707 to one type for @var{A}.
4708 @xref{Real Intrinsic}.
4710 @end ifset
4711 @ifset familyVXT
4712 @node FloatI Intrinsic
4713 @subsubsection FloatI Intrinsic
4714 @cindex FloatI intrinsic
4715 @cindex intrinsics, FloatI
4717 This intrinsic is not yet implemented.
4718 The name is, however, reserved as an intrinsic.
4719 Use @samp{EXTERNAL FloatI} to use this name for an
4720 external procedure.
4722 @node FloatJ Intrinsic
4723 @subsubsection FloatJ Intrinsic
4724 @cindex FloatJ intrinsic
4725 @cindex intrinsics, FloatJ
4727 This intrinsic is not yet implemented.
4728 The name is, however, reserved as an intrinsic.
4729 Use @samp{EXTERNAL FloatJ} to use this name for an
4730 external procedure.
4732 @end ifset
4733 @ifset familyF90
4734 @node Floor Intrinsic
4735 @subsubsection Floor Intrinsic
4736 @cindex Floor intrinsic
4737 @cindex intrinsics, Floor
4739 This intrinsic is not yet implemented.
4740 The name is, however, reserved as an intrinsic.
4741 Use @samp{EXTERNAL Floor} to use this name for an
4742 external procedure.
4744 @end ifset
4745 @ifset familyF2U
4746 @node Flush Intrinsic
4747 @subsubsection Flush Intrinsic
4748 @cindex Flush intrinsic
4749 @cindex intrinsics, Flush
4751 @noindent
4752 @example
4753 CALL Flush(@var{Unit})
4754 @end example
4756 @noindent
4757 @var{Unit}: @code{INTEGER}; OPTIONAL; scalar; INTENT(IN).
4759 @noindent
4760 Intrinsic groups: @code{unix}.
4762 @noindent
4763 Description:
4765 Flushes Fortran unit(s) currently open for output.
4766 Without the optional argument, all such units are flushed,
4767 otherwise just the unit specified by @var{Unit}.
4769 Some non-GNU implementations of Fortran provide this intrinsic
4770 as a library procedure that might or might not support the
4771 (optional) @var{Unit} argument.
4773 @node FNum Intrinsic
4774 @subsubsection FNum Intrinsic
4775 @cindex FNum intrinsic
4776 @cindex intrinsics, FNum
4778 @noindent
4779 @example
4780 FNum(@var{Unit})
4781 @end example
4783 @noindent
4784 FNum: @code{INTEGER(KIND=1)} function.
4786 @noindent
4787 @var{Unit}: @code{INTEGER}; scalar; INTENT(IN).
4789 @noindent
4790 Intrinsic groups: @code{unix}.
4792 @noindent
4793 Description:
4795 Returns the Unix file descriptor number corresponding to the open
4796 Fortran I/O unit @var{Unit}.
4797 This could be passed to an interface to C I/O routines.
4799 @node FPut Intrinsic (subroutine)
4800 @subsubsection FPut Intrinsic (subroutine)
4801 @cindex FPut intrinsic
4802 @cindex intrinsics, FPut
4804 @noindent
4805 @example
4806 CALL FPut(@var{C}, @var{Status})
4807 @end example
4809 @noindent
4810 @var{C}: @code{CHARACTER}; scalar; INTENT(IN).
4812 @noindent
4813 @var{Status}: @code{INTEGER(KIND=1)}; OPTIONAL; scalar; INTENT(OUT).
4815 @noindent
4816 Intrinsic groups: @code{unix}.
4818 @noindent
4819 Description:
4821 Writes the single character @var{C} in stream mode to unit 6
4822 (by-passing normal formatted output) using @code{putc(3)}.
4823 Returns in
4824 @var{Status} 0 on success, the error code from @code{ferror(3)} otherwise.
4826 Stream I/O should not be mixed with normal record-oriented (formatted or
4827 unformatted) I/O on the same unit; the results are unpredictable.
4829 For information on other intrinsics with the same name:
4830 @xref{FPut Intrinsic (function)}.
4832 @end ifset
4833 @ifset familyBADU77
4834 @node FPut Intrinsic (function)
4835 @subsubsection FPut Intrinsic (function)
4836 @cindex FPut intrinsic
4837 @cindex intrinsics, FPut
4839 @noindent
4840 @example
4841 FPut(@var{C})
4842 @end example
4844 @noindent
4845 FPut: @code{INTEGER(KIND=1)} function.
4847 @noindent
4848 @var{C}: @code{CHARACTER}; scalar; INTENT(IN).
4850 @noindent
4851 Intrinsic groups: @code{badu77}.
4853 @noindent
4854 Description:
4856 Writes the single character @var{C} in stream mode to unit 6
4857 (by-passing normal formatted output) using @code{getc(3)}.
4858 Returns 0 on
4859 success, the error code from @code{ferror(3)} otherwise.
4861 Stream I/O should not be mixed with normal record-oriented (formatted or
4862 unformatted) I/O on the same unit; the results are unpredictable.
4864 For information on other intrinsics with the same name:
4865 @xref{FPut Intrinsic (subroutine)}.
4867 @end ifset
4868 @ifset familyF2U
4869 @node FPutC Intrinsic (subroutine)
4870 @subsubsection FPutC Intrinsic (subroutine)
4871 @cindex FPutC intrinsic
4872 @cindex intrinsics, FPutC
4874 @noindent
4875 @example
4876 CALL FPutC(@var{Unit}, @var{C}, @var{Status})
4877 @end example
4879 @noindent
4880 @var{Unit}: @code{INTEGER}; scalar; INTENT(IN).
4882 @noindent
4883 @var{C}: @code{CHARACTER}; scalar; INTENT(IN).
4885 @noindent
4886 @var{Status}: @code{INTEGER(KIND=1)}; OPTIONAL; scalar; INTENT(OUT).
4888 @noindent
4889 Intrinsic groups: @code{unix}.
4891 @noindent
4892 Description:
4894 Writes the single character @var{Unit} in stream mode to unit 6
4895 (by-passing normal formatted output) using @code{putc(3)}.
4896 Returns in
4897 @var{C} 0 on success, the error code from @code{ferror(3)} otherwise.
4899 Stream I/O should not be mixed with normal record-oriented (formatted or
4900 unformatted) I/O on the same unit; the results are unpredictable.
4902 For information on other intrinsics with the same name:
4903 @xref{FPutC Intrinsic (function)}.
4905 @end ifset
4906 @ifset familyBADU77
4907 @node FPutC Intrinsic (function)
4908 @subsubsection FPutC Intrinsic (function)
4909 @cindex FPutC intrinsic
4910 @cindex intrinsics, FPutC
4912 @noindent
4913 @example
4914 FPutC(@var{Unit}, @var{C})
4915 @end example
4917 @noindent
4918 FPutC: @code{INTEGER(KIND=1)} function.
4920 @noindent
4921 @var{Unit}: @code{INTEGER}; scalar; INTENT(IN).
4923 @noindent
4924 @var{C}: @code{CHARACTER}; scalar; INTENT(IN).
4926 @noindent
4927 Intrinsic groups: @code{badu77}.
4929 @noindent
4930 Description:
4932 Writes the single character @var{C} in stream mode to unit @var{Unit}
4933 (by-passing normal formatted output) using @code{putc(3)}.
4934 Returns 0 on
4935 success, the error code from @code{ferror(3)} otherwise.
4937 Stream I/O should not be mixed with normal record-oriented (formatted or
4938 unformatted) I/O on the same unit; the results are unpredictable.
4940 For information on other intrinsics with the same name:
4941 @xref{FPutC Intrinsic (subroutine)}.
4943 @end ifset
4944 @ifset familyF90
4945 @node Fraction Intrinsic
4946 @subsubsection Fraction Intrinsic
4947 @cindex Fraction intrinsic
4948 @cindex intrinsics, Fraction
4950 This intrinsic is not yet implemented.
4951 The name is, however, reserved as an intrinsic.
4952 Use @samp{EXTERNAL Fraction} to use this name for an
4953 external procedure.
4955 @end ifset
4956 @ifset familyF2U
4957 @node FSeek Intrinsic
4958 @subsubsection FSeek Intrinsic
4959 @cindex FSeek intrinsic
4960 @cindex intrinsics, FSeek
4962 @noindent
4963 @example
4964 CALL FSeek(@var{Unit}, @var{Offset}, @var{Whence}, @var{ErrLab})
4965 @end example
4967 @noindent
4968 @var{Unit}: @code{INTEGER}; scalar; INTENT(IN).
4970 @noindent
4971 @var{Offset}: @code{INTEGER}; scalar; INTENT(IN).
4973 @noindent
4974 @var{Whence}: @code{INTEGER}; scalar; INTENT(IN).
4976 @noindent
4977 @var{ErrLab}: @samp{*@var{label}}, where @var{label} is the label
4978 of an executable statement; OPTIONAL.
4980 @noindent
4981 Intrinsic groups: @code{unix}.
4983 @noindent
4984 Description:
4986 Attempts to move Fortran unit @var{Unit} to the specified
4987 @var{Offset}: absolute offset if @var{Whence}=0; relative to the
4988 current offset if @var{Whence}=1; relative to the end of the file if
4989 @var{Whence}=2.
4990 It branches to label @var{ErrLab} if @var{Unit} is
4991 not open or if the call otherwise fails.
4993 @node FStat Intrinsic (subroutine)
4994 @subsubsection FStat Intrinsic (subroutine)
4995 @cindex FStat intrinsic
4996 @cindex intrinsics, FStat
4998 @noindent
4999 @example
5000 CALL FStat(@var{Unit}, @var{SArray}, @var{Status})
5001 @end example
5003 @noindent
5004 @var{Unit}: @code{INTEGER}; scalar; INTENT(IN).
5006 @noindent
5007 @var{SArray}: @code{INTEGER(KIND=1)}; DIMENSION(13); INTENT(OUT).
5009 @noindent
5010 @var{Status}: @code{INTEGER(KIND=1)}; OPTIONAL; scalar; INTENT(OUT).
5012 @noindent
5013 Intrinsic groups: @code{unix}.
5015 @noindent
5016 Description:
5018 Obtains data about the file open on Fortran I/O unit @var{Unit} and
5019 places them in the array @var{SArray}.
5020 The values in this array are
5021 extracted from the @code{stat} structure as returned by
5022 @code{fstat(2)} q.v., as follows:
5024 @enumerate
5025 @item
5026 Device ID
5028 @item
5029 Inode number
5031 @item
5032 File mode
5034 @item
5035 Number of links
5037 @item
5038 Owner's uid
5040 @item
5041 Owner's gid
5043 @item
5044 ID of device containing directory entry for file
5045 (0 if not available)
5047 @item
5048 File size (bytes)
5050 @item
5051 Last access time
5053 @item
5054 Last modification time
5056 @item
5057 Last file status change time
5059 @item
5060 Preferred I/O block size (-1 if not available)
5062 @item
5063 Number of blocks allocated (-1 if not available)
5064 @end enumerate
5066 Not all these elements are relevant on all systems.
5067 If an element is not relevant, it is returned as 0.
5069 If the @var{Status} argument is supplied, it contains
5070 0 on success or a nonzero error code upon return.
5072 Some non-GNU implementations of Fortran provide this intrinsic as
5073 only a function, not as a subroutine, or do not support the
5074 (optional) @var{Status} argument.
5076 For information on other intrinsics with the same name:
5077 @xref{FStat Intrinsic (function)}.
5079 @node FStat Intrinsic (function)
5080 @subsubsection FStat Intrinsic (function)
5081 @cindex FStat intrinsic
5082 @cindex intrinsics, FStat
5084 @noindent
5085 @example
5086 FStat(@var{Unit}, @var{SArray})
5087 @end example
5089 @noindent
5090 FStat: @code{INTEGER(KIND=1)} function.
5092 @noindent
5093 @var{Unit}: @code{INTEGER}; scalar; INTENT(IN).
5095 @noindent
5096 @var{SArray}: @code{INTEGER(KIND=1)}; DIMENSION(13); INTENT(OUT).
5098 @noindent
5099 Intrinsic groups: @code{unix}.
5101 @noindent
5102 Description:
5104 Obtains data about the file open on Fortran I/O unit @var{Unit} and
5105 places them in the array @var{SArray}.
5106 The values in this array are
5107 extracted from the @code{stat} structure as returned by
5108 @code{fstat(2)} q.v., as follows:
5110 @enumerate
5111 @item
5112 Device ID
5114 @item
5115 Inode number
5117 @item
5118 File mode
5120 @item
5121 Number of links
5123 @item
5124 Owner's uid
5126 @item
5127 Owner's gid
5129 @item
5130 ID of device containing directory entry for file
5131 (0 if not available)
5133 @item
5134 File size (bytes)
5136 @item
5137 Last access time
5139 @item
5140 Last modification time
5142 @item
5143 Last file status change time
5145 @item
5146 Preferred I/O block size (-1 if not available)
5148 @item
5149 Number of blocks allocated (-1 if not available)
5150 @end enumerate
5152 Not all these elements are relevant on all systems.
5153 If an element is not relevant, it is returned as 0.
5155 Returns 0 on success or a nonzero error code.
5157 For information on other intrinsics with the same name:
5158 @xref{FStat Intrinsic (subroutine)}.
5160 @node FTell Intrinsic (subroutine)
5161 @subsubsection FTell Intrinsic (subroutine)
5162 @cindex FTell intrinsic
5163 @cindex intrinsics, FTell
5165 @noindent
5166 @example
5167 CALL FTell(@var{Unit}, @var{Offset})
5168 @end example
5170 @noindent
5171 @var{Unit}: @code{INTEGER}; scalar; INTENT(IN).
5173 @noindent
5174 @var{Offset}: @code{INTEGER(KIND=1)}; scalar; INTENT(OUT).
5176 @noindent
5177 Intrinsic groups: @code{unix}.
5179 @noindent
5180 Description:
5182 Sets @var{Offset} to the current offset of Fortran unit @var{Unit}
5183 (or to @minus{}1 if @var{Unit} is not open).
5185 Some non-GNU implementations of Fortran provide this intrinsic as
5186 only a function, not as a subroutine.
5188 For information on other intrinsics with the same name:
5189 @xref{FTell Intrinsic (function)}.
5191 @node FTell Intrinsic (function)
5192 @subsubsection FTell Intrinsic (function)
5193 @cindex FTell intrinsic
5194 @cindex intrinsics, FTell
5196 @noindent
5197 @example
5198 FTell(@var{Unit})
5199 @end example
5201 @noindent
5202 FTell: @code{INTEGER(KIND=1)} function.
5204 @noindent
5205 @var{Unit}: @code{INTEGER}; scalar; INTENT(IN).
5207 @noindent
5208 Intrinsic groups: @code{unix}.
5210 @noindent
5211 Description:
5213 Returns the current offset of Fortran unit @var{Unit}
5214 (or @minus{}1 if @var{Unit} is not open).
5216 For information on other intrinsics with the same name:
5217 @xref{FTell Intrinsic (subroutine)}.
5219 @node GError Intrinsic
5220 @subsubsection GError Intrinsic
5221 @cindex GError intrinsic
5222 @cindex intrinsics, GError
5224 @noindent
5225 @example
5226 CALL GError(@var{Message})
5227 @end example
5229 @noindent
5230 @var{Message}: @code{CHARACTER}; scalar; INTENT(OUT).
5232 @noindent
5233 Intrinsic groups: @code{unix}.
5235 @noindent
5236 Description:
5238 Returns the system error message corresponding to the last system
5239 error (C @code{errno}).
5241 @node GetArg Intrinsic
5242 @subsubsection GetArg Intrinsic
5243 @cindex GetArg intrinsic
5244 @cindex intrinsics, GetArg
5246 @noindent
5247 @example
5248 CALL GetArg(@var{Pos}, @var{Value})
5249 @end example
5251 @noindent
5252 @var{Pos}: @code{INTEGER} not wider than the default kind; scalar; INTENT(IN).
5254 @noindent
5255 @var{Value}: @code{CHARACTER}; scalar; INTENT(OUT).
5257 @noindent
5258 Intrinsic groups: @code{unix}.
5260 @noindent
5261 Description:
5263 Sets @var{Value} to the @var{Pos}-th command-line argument (or to all
5264 blanks if there are fewer than @var{Value} command-line arguments);
5265 @code{CALL GETARG(0, @var{value})} sets @var{value} to the name of the
5266 program (on systems that support this feature).
5268 @xref{IArgC Intrinsic}, for information on how to get the number
5269 of arguments.
5271 @node GetCWD Intrinsic (subroutine)
5272 @subsubsection GetCWD Intrinsic (subroutine)
5273 @cindex GetCWD intrinsic
5274 @cindex intrinsics, GetCWD
5276 @noindent
5277 @example
5278 CALL GetCWD(@var{Name}, @var{Status})
5279 @end example
5281 @noindent
5282 @var{Name}: @code{CHARACTER}; scalar; INTENT(OUT).
5284 @noindent
5285 @var{Status}: @code{INTEGER(KIND=1)}; OPTIONAL; scalar; INTENT(OUT).
5287 @noindent
5288 Intrinsic groups: @code{unix}.
5290 @noindent
5291 Description:
5293 Places the current working directory in @var{Name}.
5294 If the @var{Status} argument is supplied, it contains 0
5295 success or a nonzero error code upon return
5296 (@code{ENOSYS} if the system does not provide @code{getcwd(3)}
5297 or @code{getwd(3)}).
5299 Some non-GNU implementations of Fortran provide this intrinsic as
5300 only a function, not as a subroutine, or do not support the
5301 (optional) @var{Status} argument.
5303 For information on other intrinsics with the same name:
5304 @xref{GetCWD Intrinsic (function)}.
5306 @node GetCWD Intrinsic (function)
5307 @subsubsection GetCWD Intrinsic (function)
5308 @cindex GetCWD intrinsic
5309 @cindex intrinsics, GetCWD
5311 @noindent
5312 @example
5313 GetCWD(@var{Name})
5314 @end example
5316 @noindent
5317 GetCWD: @code{INTEGER(KIND=1)} function.
5319 @noindent
5320 @var{Name}: @code{CHARACTER}; scalar; INTENT(OUT).
5322 @noindent
5323 Intrinsic groups: @code{unix}.
5325 @noindent
5326 Description:
5328 Places the current working directory in @var{Name}.
5329 Returns 0 on
5330 success, otherwise a nonzero error code
5331 (@code{ENOSYS} if the system does not provide @code{getcwd(3)}
5332 or @code{getwd(3)}).
5334 For information on other intrinsics with the same name:
5335 @xref{GetCWD Intrinsic (subroutine)}.
5337 @node GetEnv Intrinsic
5338 @subsubsection GetEnv Intrinsic
5339 @cindex GetEnv intrinsic
5340 @cindex intrinsics, GetEnv
5342 @noindent
5343 @example
5344 CALL GetEnv(@var{Name}, @var{Value})
5345 @end example
5347 @noindent
5348 @var{Name}: @code{CHARACTER}; scalar; INTENT(IN).
5350 @noindent
5351 @var{Value}: @code{CHARACTER}; scalar; INTENT(OUT).
5353 @noindent
5354 Intrinsic groups: @code{unix}.
5356 @noindent
5357 Description:
5359 Sets @var{Value} to the value of environment variable given by the
5360 value of @var{Name} (@code{$name} in shell terms) or to blanks if
5361 @code{$name} has not been set.
5362 A null character (@samp{CHAR(0)}) marks the end of
5363 the name in @var{Name}---otherwise,
5364 trailing blanks in @var{Name} are ignored.
5366 @node GetGId Intrinsic
5367 @subsubsection GetGId Intrinsic
5368 @cindex GetGId intrinsic
5369 @cindex intrinsics, GetGId
5371 @noindent
5372 @example
5373 GetGId()
5374 @end example
5376 @noindent
5377 GetGId: @code{INTEGER(KIND=1)} function.
5379 @noindent
5380 Intrinsic groups: @code{unix}.
5382 @noindent
5383 Description:
5385 Returns the group id for the current process.
5387 @node GetLog Intrinsic
5388 @subsubsection GetLog Intrinsic
5389 @cindex GetLog intrinsic
5390 @cindex intrinsics, GetLog
5392 @noindent
5393 @example
5394 CALL GetLog(@var{Login})
5395 @end example
5397 @noindent
5398 @var{Login}: @code{CHARACTER}; scalar; INTENT(OUT).
5400 @noindent
5401 Intrinsic groups: @code{unix}.
5403 @noindent
5404 Description:
5406 Returns the login name for the process in @var{Login}.
5408 @emph{Caution:} On some systems, the @code{getlogin(3)}
5409 function, which this intrinsic calls at run time,
5410 is either not implemented or returns a null pointer.
5411 In the latter case, this intrinsic returns blanks
5412 in @var{Login}.
5414 @node GetPId Intrinsic
5415 @subsubsection GetPId Intrinsic
5416 @cindex GetPId intrinsic
5417 @cindex intrinsics, GetPId
5419 @noindent
5420 @example
5421 GetPId()
5422 @end example
5424 @noindent
5425 GetPId: @code{INTEGER(KIND=1)} function.
5427 @noindent
5428 Intrinsic groups: @code{unix}.
5430 @noindent
5431 Description:
5433 Returns the process id for the current process.
5435 @node GetUId Intrinsic
5436 @subsubsection GetUId Intrinsic
5437 @cindex GetUId intrinsic
5438 @cindex intrinsics, GetUId
5440 @noindent
5441 @example
5442 GetUId()
5443 @end example
5445 @noindent
5446 GetUId: @code{INTEGER(KIND=1)} function.
5448 @noindent
5449 Intrinsic groups: @code{unix}.
5451 @noindent
5452 Description:
5454 Returns the user id for the current process.
5456 @node GMTime Intrinsic
5457 @subsubsection GMTime Intrinsic
5458 @cindex GMTime intrinsic
5459 @cindex intrinsics, GMTime
5461 @noindent
5462 @example
5463 CALL GMTime(@var{STime}, @var{TArray})
5464 @end example
5466 @noindent
5467 @var{STime}: @code{INTEGER(KIND=1)}; scalar; INTENT(IN).
5469 @noindent
5470 @var{TArray}: @code{INTEGER(KIND=1)}; DIMENSION(9); INTENT(OUT).
5472 @noindent
5473 Intrinsic groups: @code{unix}.
5475 @noindent
5476 Description:
5478 Given a system time value @var{STime}, fills @var{TArray} with values
5479 extracted from it appropriate to the GMT time zone using
5480 @code{gmtime(3)}.
5482 The array elements are as follows:
5484 @enumerate
5485 @item
5486 Seconds after the minute, range 0--59 or 0--61 to allow for leap
5487 seconds
5489 @item
5490 Minutes after the hour, range 0--59
5492 @item
5493 Hours past midnight, range 0--23
5495 @item
5496 Day of month, range 0--31
5498 @item
5499 Number of months since January, range 0--12
5501 @item
5502 Years since 1900
5504 @item
5505 Number of days since Sunday, range 0--6
5507 @item
5508 Days since January 1
5510 @item
5511 Daylight savings indicator: positive if daylight savings is in effect,
5512 zero if not, and negative if the information isn't available.
5513 @end enumerate
5515 @node HostNm Intrinsic (subroutine)
5516 @subsubsection HostNm Intrinsic (subroutine)
5517 @cindex HostNm intrinsic
5518 @cindex intrinsics, HostNm
5520 @noindent
5521 @example
5522 CALL HostNm(@var{Name}, @var{Status})
5523 @end example
5525 @noindent
5526 @var{Name}: @code{CHARACTER}; scalar; INTENT(OUT).
5528 @noindent
5529 @var{Status}: @code{INTEGER(KIND=1)}; OPTIONAL; scalar; INTENT(OUT).
5531 @noindent
5532 Intrinsic groups: @code{unix}.
5534 @noindent
5535 Description:
5537 Fills @var{Name} with the system's host name returned by
5538 @code{gethostname(2)}.
5539 If the @var{Status} argument is supplied, it contains
5540 0 on success or a nonzero error code upon return
5541 (@code{ENOSYS} if the system does not provide @code{gethostname(2)}).
5543 Some non-GNU implementations of Fortran provide this intrinsic as
5544 only a function, not as a subroutine, or do not support the
5545 (optional) @var{Status} argument.
5547 On some systems (specifically SCO) it might be necessary to link the
5548 ``socket'' library if you call this routine.
5549 Typically this means adding @samp{-lg2c -lsocket -lm}
5550 to the @code{g77} command line when linking the program.
5552 For information on other intrinsics with the same name:
5553 @xref{HostNm Intrinsic (function)}.
5555 @node HostNm Intrinsic (function)
5556 @subsubsection HostNm Intrinsic (function)
5557 @cindex HostNm intrinsic
5558 @cindex intrinsics, HostNm
5560 @noindent
5561 @example
5562 HostNm(@var{Name})
5563 @end example
5565 @noindent
5566 HostNm: @code{INTEGER(KIND=1)} function.
5568 @noindent
5569 @var{Name}: @code{CHARACTER}; scalar; INTENT(OUT).
5571 @noindent
5572 Intrinsic groups: @code{unix}.
5574 @noindent
5575 Description:
5577 Fills @var{Name} with the system's host name returned by
5578 @code{gethostname(2)}, returning 0 on success or a nonzero error code
5579 (@code{ENOSYS} if the system does not provide @code{gethostname(2)}).
5581 On some systems (specifically SCO) it might be necessary to link the
5582 ``socket'' library if you call this routine.
5583 Typically this means adding @samp{-lg2c -lsocket -lm}
5584 to the @code{g77} command line when linking the program.
5586 For information on other intrinsics with the same name:
5587 @xref{HostNm Intrinsic (subroutine)}.
5589 @end ifset
5590 @ifset familyF90
5591 @node Huge Intrinsic
5592 @subsubsection Huge Intrinsic
5593 @cindex Huge intrinsic
5594 @cindex intrinsics, Huge
5596 This intrinsic is not yet implemented.
5597 The name is, however, reserved as an intrinsic.
5598 Use @samp{EXTERNAL Huge} to use this name for an
5599 external procedure.
5601 @end ifset
5602 @ifset familyF77
5603 @node IAbs Intrinsic
5604 @subsubsection IAbs Intrinsic
5605 @cindex IAbs intrinsic
5606 @cindex intrinsics, IAbs
5608 @noindent
5609 @example
5610 IAbs(@var{A})
5611 @end example
5613 @noindent
5614 IAbs: @code{INTEGER(KIND=1)} function.
5616 @noindent
5617 @var{A}: @code{INTEGER(KIND=1)}; scalar; INTENT(IN).
5619 @noindent
5620 Intrinsic groups: (standard FORTRAN 77).
5622 @noindent
5623 Description:
5625 Archaic form of @code{ABS()} that is specific
5626 to one type for @var{A}.
5627 @xref{Abs Intrinsic}.
5629 @end ifset
5630 @ifset familyASC
5631 @node IAChar Intrinsic
5632 @subsubsection IAChar Intrinsic
5633 @cindex IAChar intrinsic
5634 @cindex intrinsics, IAChar
5636 @noindent
5637 @example
5638 IAChar(@var{C})
5639 @end example
5641 @noindent
5642 IAChar: @code{INTEGER(KIND=1)} function.
5644 @noindent
5645 @var{C}: @code{CHARACTER}; scalar; INTENT(IN).
5647 @noindent
5648 Intrinsic groups: @code{f2c}, @code{f90}.
5650 @noindent
5651 Description:
5653 Returns the code for the ASCII character in the
5654 first character position of @var{C}.
5656 @xref{AChar Intrinsic}, for the inverse of this function.
5658 @xref{IChar Intrinsic}, for the function corresponding
5659 to the system's native character set.
5661 @end ifset
5662 @ifset familyMIL
5663 @node IAnd Intrinsic
5664 @subsubsection IAnd Intrinsic
5665 @cindex IAnd intrinsic
5666 @cindex intrinsics, IAnd
5668 @noindent
5669 @example
5670 IAnd(@var{I}, @var{J})
5671 @end example
5673 @noindent
5674 IAnd: @code{INTEGER} function, the exact type being the result of cross-promoting the
5675 types of all the arguments.
5677 @noindent
5678 @var{I}: @code{INTEGER}; scalar; INTENT(IN).
5680 @noindent
5681 @var{J}: @code{INTEGER}; scalar; INTENT(IN).
5683 @noindent
5684 Intrinsic groups: @code{mil}, @code{f90}, @code{vxt}.
5686 @noindent
5687 Description:
5689 Returns value resulting from boolean AND of
5690 pair of bits in each of @var{I} and @var{J}.
5692 @end ifset
5693 @ifset familyF2U
5694 @node IArgC Intrinsic
5695 @subsubsection IArgC Intrinsic
5696 @cindex IArgC intrinsic
5697 @cindex intrinsics, IArgC
5699 @noindent
5700 @example
5701 IArgC()
5702 @end example
5704 @noindent
5705 IArgC: @code{INTEGER(KIND=1)} function.
5707 @noindent
5708 Intrinsic groups: @code{unix}.
5710 @noindent
5711 Description:
5713 Returns the number of command-line arguments.
5715 This count does not include the specification of the program
5716 name itself.
5718 @end ifset
5719 @ifset familyMIL
5720 @node IBClr Intrinsic
5721 @subsubsection IBClr Intrinsic
5722 @cindex IBClr intrinsic
5723 @cindex intrinsics, IBClr
5725 @noindent
5726 @example
5727 IBClr(@var{I}, @var{Pos})
5728 @end example
5730 @noindent
5731 IBClr: @code{INTEGER} function, the @samp{KIND=} value of the type being that of argument @var{I}.
5733 @noindent
5734 @var{I}: @code{INTEGER}; scalar; INTENT(IN).
5736 @noindent
5737 @var{Pos}: @code{INTEGER}; scalar; INTENT(IN).
5739 @noindent
5740 Intrinsic groups: @code{mil}, @code{f90}, @code{vxt}.
5742 @noindent
5743 Description:
5745 Returns the value of @var{I} with bit @var{Pos} cleared (set to
5746 zero).
5747 @xref{BTest Intrinsic}, for information on bit positions.
5749 @node IBits Intrinsic
5750 @subsubsection IBits Intrinsic
5751 @cindex IBits intrinsic
5752 @cindex intrinsics, IBits
5754 @noindent
5755 @example
5756 IBits(@var{I}, @var{Pos}, @var{Len})
5757 @end example
5759 @noindent
5760 IBits: @code{INTEGER} function, the @samp{KIND=} value of the type being that of argument @var{I}.
5762 @noindent
5763 @var{I}: @code{INTEGER}; scalar; INTENT(IN).
5765 @noindent
5766 @var{Pos}: @code{INTEGER}; scalar; INTENT(IN).
5768 @noindent
5769 @var{Len}: @code{INTEGER}; scalar; INTENT(IN).
5771 @noindent
5772 Intrinsic groups: @code{mil}, @code{f90}, @code{vxt}.
5774 @noindent
5775 Description:
5777 Extracts a subfield of length @var{Len} from @var{I}, starting from
5778 bit position @var{Pos} and extending left for @var{Len} bits.
5779 The result is right-justified and the remaining bits are zeroed.
5780 The value
5781 of @samp{@var{Pos}+@var{Len}} must be less than or equal to the value
5782 @samp{BIT_SIZE(@var{I})}.
5783 @xref{Bit_Size Intrinsic}.
5785 @node IBSet Intrinsic
5786 @subsubsection IBSet Intrinsic
5787 @cindex IBSet intrinsic
5788 @cindex intrinsics, IBSet
5790 @noindent
5791 @example
5792 IBSet(@var{I}, @var{Pos})
5793 @end example
5795 @noindent
5796 IBSet: @code{INTEGER} function, the @samp{KIND=} value of the type being that of argument @var{I}.
5798 @noindent
5799 @var{I}: @code{INTEGER}; scalar; INTENT(IN).
5801 @noindent
5802 @var{Pos}: @code{INTEGER}; scalar; INTENT(IN).
5804 @noindent
5805 Intrinsic groups: @code{mil}, @code{f90}, @code{vxt}.
5807 @noindent
5808 Description:
5810 Returns the value of @var{I} with bit @var{Pos} set (to one).
5811 @xref{BTest Intrinsic}, for information on bit positions.
5813 @end ifset
5814 @ifset familyF77
5815 @node IChar Intrinsic
5816 @subsubsection IChar Intrinsic
5817 @cindex IChar intrinsic
5818 @cindex intrinsics, IChar
5820 @noindent
5821 @example
5822 IChar(@var{C})
5823 @end example
5825 @noindent
5826 IChar: @code{INTEGER(KIND=1)} function.
5828 @noindent
5829 @var{C}: @code{CHARACTER}; scalar; INTENT(IN).
5831 @noindent
5832 Intrinsic groups: (standard FORTRAN 77).
5834 @noindent
5835 Description:
5837 Returns the code for the character in the
5838 first character position of @var{C}.
5840 Because the system's native character set is used,
5841 the correspondence between character and their codes
5842 is not necessarily the same between GNU Fortran
5843 implementations.
5845 Note that no intrinsic exists to convert a printable
5846 character string to a numerical value.
5847 For example, there is no intrinsic that, given
5848 the @code{CHARACTER} value @samp{'154'}, returns an
5849 @code{INTEGER} or @code{REAL} value with the value @samp{154}.
5851 Instead, you can use internal-file I/O to do this kind
5852 of conversion.
5853 For example:
5855 @smallexample
5856 INTEGER VALUE
5857 CHARACTER*10 STRING
5858 STRING = '154'
5859 READ (STRING, '(I10)'), VALUE
5860 PRINT *, VALUE
5862 @end smallexample
5864 The above program, when run, prints:
5866 @smallexample
5867  154
5868 @end smallexample
5870 @xref{Char Intrinsic}, for the inverse of the @code{ICHAR} function.
5872 @xref{IAChar Intrinsic}, for the function corresponding
5873 to the ASCII character set.
5875 @end ifset
5876 @ifset familyF2U
5877 @node IDate Intrinsic (UNIX)
5878 @subsubsection IDate Intrinsic (UNIX)
5879 @cindex IDate intrinsic
5880 @cindex intrinsics, IDate
5882 @noindent
5883 @example
5884 CALL IDate(@var{TArray})
5885 @end example
5887 @noindent
5888 @var{TArray}: @code{INTEGER(KIND=1)}; DIMENSION(3); INTENT(OUT).
5890 @noindent
5891 Intrinsic groups: @code{unix}.
5893 @noindent
5894 Description:
5896 Fills @var{TArray} with the numerical values at the current local time.
5897 The day (in the range 1--31), month (in the range 1--12),
5898 and year appear in elements 1, 2, and 3 of @var{TArray}, respectively.
5899 The year has four significant digits.
5901 @cindex Y10K compliance
5902 @cindex Year 10000 compliance
5903 @cindex wraparound, Y10K
5904 @cindex limits, Y10K
5905 Programs making use of this intrinsic
5906 might not be Year 10000 (Y10K) compliant.
5907 For example, the date might appear,
5908 to such programs, to wrap around
5909 (change from a larger value to a smaller one)
5910 as of the Year 10000.
5912 For information on other intrinsics with the same name:
5913 @xref{IDate Intrinsic (VXT)}.
5915 @end ifset
5916 @ifset familyVXT
5917 @node IDate Intrinsic (VXT)
5918 @subsubsection IDate Intrinsic (VXT)
5919 @cindex IDate intrinsic
5920 @cindex intrinsics, IDate
5922 @noindent
5923 @example
5924 CALL IDate(@var{M}, @var{D}, @var{Y})
5925 @end example
5927 @noindent
5928 @var{M}: @code{INTEGER(KIND=1)}; scalar; INTENT(OUT).
5930 @noindent
5931 @var{D}: @code{INTEGER(KIND=1)}; scalar; INTENT(OUT).
5933 @noindent
5934 @var{Y}: @code{INTEGER(KIND=1)}; scalar; INTENT(OUT).
5936 @noindent
5937 Intrinsic groups: @code{vxt}.
5939 @noindent
5940 Description:
5942 Returns the numerical values of the current local time.
5943 The month (in the range 1--12) is returned in @var{M},
5944 the day (in the range 1--31) in @var{D},
5945 and the year in @var{Y} (in the range 0--99).
5947 @cindex Y2K compliance
5948 @cindex Year 2000 compliance
5949 @cindex wraparound, Y2K
5950 @cindex limits, Y2K
5951 This intrinsic is not recommended, due to the fact that
5952 its return value for year wraps around century boundaries
5953 (change from a larger value to a smaller one).
5954 Therefore, programs making use of this intrinsic, for
5955 instance, might not be Year 2000 (Y2K) compliant.
5956 For example, the date might appear,
5957 to such programs, to wrap around
5958 as of the Year 2000.
5960 @xref{IDate Intrinsic (UNIX)}, for information on obtaining more digits
5961 for the current date.
5963 For information on other intrinsics with the same name:
5964 @xref{IDate Intrinsic (UNIX)}.
5966 @end ifset
5967 @ifset familyF77
5968 @node IDiM Intrinsic
5969 @subsubsection IDiM Intrinsic
5970 @cindex IDiM intrinsic
5971 @cindex intrinsics, IDiM
5973 @noindent
5974 @example
5975 IDiM(@var{X}, @var{Y})
5976 @end example
5978 @noindent
5979 IDiM: @code{INTEGER(KIND=1)} function.
5981 @noindent
5982 @var{X}: @code{INTEGER(KIND=1)}; scalar; INTENT(IN).
5984 @noindent
5985 @var{Y}: @code{INTEGER(KIND=1)}; scalar; INTENT(IN).
5987 @noindent
5988 Intrinsic groups: (standard FORTRAN 77).
5990 @noindent
5991 Description:
5993 Archaic form of @code{DIM()} that is specific
5994 to one type for @var{X} and @var{Y}.
5995 @xref{DiM Intrinsic}.
5997 @node IDInt Intrinsic
5998 @subsubsection IDInt Intrinsic
5999 @cindex IDInt intrinsic
6000 @cindex intrinsics, IDInt
6002 @noindent
6003 @example
6004 IDInt(@var{A})
6005 @end example
6007 @noindent
6008 IDInt: @code{INTEGER(KIND=1)} function.
6010 @noindent
6011 @var{A}: @code{REAL(KIND=2)}; scalar; INTENT(IN).
6013 @noindent
6014 Intrinsic groups: (standard FORTRAN 77).
6016 @noindent
6017 Description:
6019 Archaic form of @code{INT()} that is specific
6020 to one type for @var{A}.
6021 @xref{Int Intrinsic}.
6023 @node IDNInt Intrinsic
6024 @subsubsection IDNInt Intrinsic
6025 @cindex IDNInt intrinsic
6026 @cindex intrinsics, IDNInt
6028 @noindent
6029 @example
6030 IDNInt(@var{A})
6031 @end example
6033 @noindent
6034 IDNInt: @code{INTEGER(KIND=1)} function.
6036 @noindent
6037 @var{A}: @code{REAL(KIND=2)}; scalar; INTENT(IN).
6039 @noindent
6040 Intrinsic groups: (standard FORTRAN 77).
6042 @noindent
6043 Description:
6045 Archaic form of @code{NINT()} that is specific
6046 to one type for @var{A}.
6047 @xref{NInt Intrinsic}.
6049 @end ifset
6050 @ifset familyMIL
6051 @node IEOr Intrinsic
6052 @subsubsection IEOr Intrinsic
6053 @cindex IEOr intrinsic
6054 @cindex intrinsics, IEOr
6056 @noindent
6057 @example
6058 IEOr(@var{I}, @var{J})
6059 @end example
6061 @noindent
6062 IEOr: @code{INTEGER} function, the exact type being the result of cross-promoting the
6063 types of all the arguments.
6065 @noindent
6066 @var{I}: @code{INTEGER}; scalar; INTENT(IN).
6068 @noindent
6069 @var{J}: @code{INTEGER}; scalar; INTENT(IN).
6071 @noindent
6072 Intrinsic groups: @code{mil}, @code{f90}, @code{vxt}.
6074 @noindent
6075 Description:
6077 Returns value resulting from boolean exclusive-OR of
6078 pair of bits in each of @var{I} and @var{J}.
6080 @end ifset
6081 @ifset familyF2U
6082 @node IErrNo Intrinsic
6083 @subsubsection IErrNo Intrinsic
6084 @cindex IErrNo intrinsic
6085 @cindex intrinsics, IErrNo
6087 @noindent
6088 @example
6089 IErrNo()
6090 @end example
6092 @noindent
6093 IErrNo: @code{INTEGER(KIND=1)} function.
6095 @noindent
6096 Intrinsic groups: @code{unix}.
6098 @noindent
6099 Description:
6101 Returns the last system error number (corresponding to the C
6102 @code{errno}).
6104 @end ifset
6105 @ifset familyF77
6106 @node IFix Intrinsic
6107 @subsubsection IFix Intrinsic
6108 @cindex IFix intrinsic
6109 @cindex intrinsics, IFix
6111 @noindent
6112 @example
6113 IFix(@var{A})
6114 @end example
6116 @noindent
6117 IFix: @code{INTEGER(KIND=1)} function.
6119 @noindent
6120 @var{A}: @code{REAL(KIND=1)}; scalar; INTENT(IN).
6122 @noindent
6123 Intrinsic groups: (standard FORTRAN 77).
6125 @noindent
6126 Description:
6128 Archaic form of @code{INT()} that is specific
6129 to one type for @var{A}.
6130 @xref{Int Intrinsic}.
6132 @end ifset
6133 @ifset familyVXT
6134 @node IIAbs Intrinsic
6135 @subsubsection IIAbs Intrinsic
6136 @cindex IIAbs intrinsic
6137 @cindex intrinsics, IIAbs
6139 This intrinsic is not yet implemented.
6140 The name is, however, reserved as an intrinsic.
6141 Use @samp{EXTERNAL IIAbs} to use this name for an
6142 external procedure.
6144 @node IIAnd Intrinsic
6145 @subsubsection IIAnd Intrinsic
6146 @cindex IIAnd intrinsic
6147 @cindex intrinsics, IIAnd
6149 This intrinsic is not yet implemented.
6150 The name is, however, reserved as an intrinsic.
6151 Use @samp{EXTERNAL IIAnd} to use this name for an
6152 external procedure.
6154 @node IIBClr Intrinsic
6155 @subsubsection IIBClr Intrinsic
6156 @cindex IIBClr intrinsic
6157 @cindex intrinsics, IIBClr
6159 This intrinsic is not yet implemented.
6160 The name is, however, reserved as an intrinsic.
6161 Use @samp{EXTERNAL IIBClr} to use this name for an
6162 external procedure.
6164 @node IIBits Intrinsic
6165 @subsubsection IIBits Intrinsic
6166 @cindex IIBits intrinsic
6167 @cindex intrinsics, IIBits
6169 This intrinsic is not yet implemented.
6170 The name is, however, reserved as an intrinsic.
6171 Use @samp{EXTERNAL IIBits} to use this name for an
6172 external procedure.
6174 @node IIBSet Intrinsic
6175 @subsubsection IIBSet Intrinsic
6176 @cindex IIBSet intrinsic
6177 @cindex intrinsics, IIBSet
6179 This intrinsic is not yet implemented.
6180 The name is, however, reserved as an intrinsic.
6181 Use @samp{EXTERNAL IIBSet} to use this name for an
6182 external procedure.
6184 @node IIDiM Intrinsic
6185 @subsubsection IIDiM Intrinsic
6186 @cindex IIDiM intrinsic
6187 @cindex intrinsics, IIDiM
6189 This intrinsic is not yet implemented.
6190 The name is, however, reserved as an intrinsic.
6191 Use @samp{EXTERNAL IIDiM} to use this name for an
6192 external procedure.
6194 @node IIDInt Intrinsic
6195 @subsubsection IIDInt Intrinsic
6196 @cindex IIDInt intrinsic
6197 @cindex intrinsics, IIDInt
6199 This intrinsic is not yet implemented.
6200 The name is, however, reserved as an intrinsic.
6201 Use @samp{EXTERNAL IIDInt} to use this name for an
6202 external procedure.
6204 @node IIDNnt Intrinsic
6205 @subsubsection IIDNnt Intrinsic
6206 @cindex IIDNnt intrinsic
6207 @cindex intrinsics, IIDNnt
6209 This intrinsic is not yet implemented.
6210 The name is, however, reserved as an intrinsic.
6211 Use @samp{EXTERNAL IIDNnt} to use this name for an
6212 external procedure.
6214 @node IIEOr Intrinsic
6215 @subsubsection IIEOr Intrinsic
6216 @cindex IIEOr intrinsic
6217 @cindex intrinsics, IIEOr
6219 This intrinsic is not yet implemented.
6220 The name is, however, reserved as an intrinsic.
6221 Use @samp{EXTERNAL IIEOr} to use this name for an
6222 external procedure.
6224 @node IIFix Intrinsic
6225 @subsubsection IIFix Intrinsic
6226 @cindex IIFix intrinsic
6227 @cindex intrinsics, IIFix
6229 This intrinsic is not yet implemented.
6230 The name is, however, reserved as an intrinsic.
6231 Use @samp{EXTERNAL IIFix} to use this name for an
6232 external procedure.
6234 @node IInt Intrinsic
6235 @subsubsection IInt Intrinsic
6236 @cindex IInt intrinsic
6237 @cindex intrinsics, IInt
6239 This intrinsic is not yet implemented.
6240 The name is, however, reserved as an intrinsic.
6241 Use @samp{EXTERNAL IInt} to use this name for an
6242 external procedure.
6244 @node IIOr Intrinsic
6245 @subsubsection IIOr Intrinsic
6246 @cindex IIOr intrinsic
6247 @cindex intrinsics, IIOr
6249 This intrinsic is not yet implemented.
6250 The name is, however, reserved as an intrinsic.
6251 Use @samp{EXTERNAL IIOr} to use this name for an
6252 external procedure.
6254 @node IIQint Intrinsic
6255 @subsubsection IIQint Intrinsic
6256 @cindex IIQint intrinsic
6257 @cindex intrinsics, IIQint
6259 This intrinsic is not yet implemented.
6260 The name is, however, reserved as an intrinsic.
6261 Use @samp{EXTERNAL IIQint} to use this name for an
6262 external procedure.
6264 @node IIQNnt Intrinsic
6265 @subsubsection IIQNnt Intrinsic
6266 @cindex IIQNnt intrinsic
6267 @cindex intrinsics, IIQNnt
6269 This intrinsic is not yet implemented.
6270 The name is, however, reserved as an intrinsic.
6271 Use @samp{EXTERNAL IIQNnt} to use this name for an
6272 external procedure.
6274 @node IIShftC Intrinsic
6275 @subsubsection IIShftC Intrinsic
6276 @cindex IIShftC intrinsic
6277 @cindex intrinsics, IIShftC
6279 This intrinsic is not yet implemented.
6280 The name is, however, reserved as an intrinsic.
6281 Use @samp{EXTERNAL IIShftC} to use this name for an
6282 external procedure.
6284 @node IISign Intrinsic
6285 @subsubsection IISign Intrinsic
6286 @cindex IISign intrinsic
6287 @cindex intrinsics, IISign
6289 This intrinsic is not yet implemented.
6290 The name is, however, reserved as an intrinsic.
6291 Use @samp{EXTERNAL IISign} to use this name for an
6292 external procedure.
6294 @end ifset
6295 @ifset familyF2C
6296 @node Imag Intrinsic
6297 @subsubsection Imag Intrinsic
6298 @cindex Imag intrinsic
6299 @cindex intrinsics, Imag
6301 @noindent
6302 @example
6303 Imag(@var{Z})
6304 @end example
6306 @noindent
6307 Imag: @code{REAL} function, the @samp{KIND=} value of the type being that of argument @var{Z}.
6309 @noindent
6310 @var{Z}: @code{COMPLEX}; scalar; INTENT(IN).
6312 @noindent
6313 Intrinsic groups: @code{f2c}.
6315 @noindent
6316 Description:
6318 The imaginary part of @var{Z} is returned, without conversion.
6320 @emph{Note:} The way to do this in standard Fortran 90
6321 is @samp{AIMAG(@var{Z})}.
6322 However, when, for example, @var{Z} is @code{DOUBLE COMPLEX},
6323 @samp{AIMAG(@var{Z})} means something different for some compilers
6324 that are not true Fortran 90 compilers but offer some
6325 extensions standardized by Fortran 90 (such as the
6326 @code{DOUBLE COMPLEX} type, also known as @code{COMPLEX(KIND=2)}).
6328 The advantage of @code{IMAG()} is that, while not necessarily
6329 more or less portable than @code{AIMAG()}, it is more likely to
6330 cause a compiler that doesn't support it to produce a diagnostic
6331 than generate incorrect code.
6333 @xref{REAL() and AIMAG() of Complex}, for more information.
6335 @end ifset
6336 @ifset familyGNU
6337 @node ImagPart Intrinsic
6338 @subsubsection ImagPart Intrinsic
6339 @cindex ImagPart intrinsic
6340 @cindex intrinsics, ImagPart
6342 @noindent
6343 @example
6344 ImagPart(@var{Z})
6345 @end example
6347 @noindent
6348 ImagPart: @code{REAL} function, the @samp{KIND=} value of the type being that of argument @var{Z}.
6350 @noindent
6351 @var{Z}: @code{COMPLEX}; scalar; INTENT(IN).
6353 @noindent
6354 Intrinsic groups: @code{gnu}.
6356 @noindent
6357 Description:
6359 The imaginary part of @var{Z} is returned, without conversion.
6361 @emph{Note:} The way to do this in standard Fortran 90
6362 is @samp{AIMAG(@var{Z})}.
6363 However, when, for example, @var{Z} is @code{DOUBLE COMPLEX},
6364 @samp{AIMAG(@var{Z})} means something different for some compilers
6365 that are not true Fortran 90 compilers but offer some
6366 extensions standardized by Fortran 90 (such as the
6367 @code{DOUBLE COMPLEX} type, also known as @code{COMPLEX(KIND=2)}).
6369 The advantage of @code{IMAGPART()} is that, while not necessarily
6370 more or less portable than @code{AIMAG()}, it is more likely to
6371 cause a compiler that doesn't support it to produce a diagnostic
6372 than generate incorrect code.
6374 @xref{REAL() and AIMAG() of Complex}, for more information.
6376 @end ifset
6377 @ifset familyVXT
6378 @node IMax0 Intrinsic
6379 @subsubsection IMax0 Intrinsic
6380 @cindex IMax0 intrinsic
6381 @cindex intrinsics, IMax0
6383 This intrinsic is not yet implemented.
6384 The name is, however, reserved as an intrinsic.
6385 Use @samp{EXTERNAL IMax0} to use this name for an
6386 external procedure.
6388 @node IMax1 Intrinsic
6389 @subsubsection IMax1 Intrinsic
6390 @cindex IMax1 intrinsic
6391 @cindex intrinsics, IMax1
6393 This intrinsic is not yet implemented.
6394 The name is, however, reserved as an intrinsic.
6395 Use @samp{EXTERNAL IMax1} to use this name for an
6396 external procedure.
6398 @node IMin0 Intrinsic
6399 @subsubsection IMin0 Intrinsic
6400 @cindex IMin0 intrinsic
6401 @cindex intrinsics, IMin0
6403 This intrinsic is not yet implemented.
6404 The name is, however, reserved as an intrinsic.
6405 Use @samp{EXTERNAL IMin0} to use this name for an
6406 external procedure.
6408 @node IMin1 Intrinsic
6409 @subsubsection IMin1 Intrinsic
6410 @cindex IMin1 intrinsic
6411 @cindex intrinsics, IMin1
6413 This intrinsic is not yet implemented.
6414 The name is, however, reserved as an intrinsic.
6415 Use @samp{EXTERNAL IMin1} to use this name for an
6416 external procedure.
6418 @node IMod Intrinsic
6419 @subsubsection IMod Intrinsic
6420 @cindex IMod intrinsic
6421 @cindex intrinsics, IMod
6423 This intrinsic is not yet implemented.
6424 The name is, however, reserved as an intrinsic.
6425 Use @samp{EXTERNAL IMod} to use this name for an
6426 external procedure.
6428 @end ifset
6429 @ifset familyF77
6430 @node Index Intrinsic
6431 @subsubsection Index Intrinsic
6432 @cindex Index intrinsic
6433 @cindex intrinsics, Index
6435 @noindent
6436 @example
6437 Index(@var{String}, @var{Substring})
6438 @end example
6440 @noindent
6441 Index: @code{INTEGER(KIND=1)} function.
6443 @noindent
6444 @var{String}: @code{CHARACTER}; scalar; INTENT(IN).
6446 @noindent
6447 @var{Substring}: @code{CHARACTER}; scalar; INTENT(IN).
6449 @noindent
6450 Intrinsic groups: (standard FORTRAN 77).
6452 @noindent
6453 Description:
6455 Returns the position of the start of the first occurrence of string
6456 @var{Substring} as a substring in @var{String}, counting from one.
6457 If @var{Substring} doesn't occur in @var{String}, zero is returned.
6459 @end ifset
6460 @ifset familyVXT
6461 @node INInt Intrinsic
6462 @subsubsection INInt Intrinsic
6463 @cindex INInt intrinsic
6464 @cindex intrinsics, INInt
6466 This intrinsic is not yet implemented.
6467 The name is, however, reserved as an intrinsic.
6468 Use @samp{EXTERNAL INInt} to use this name for an
6469 external procedure.
6471 @node INot Intrinsic
6472 @subsubsection INot Intrinsic
6473 @cindex INot intrinsic
6474 @cindex intrinsics, INot
6476 This intrinsic is not yet implemented.
6477 The name is, however, reserved as an intrinsic.
6478 Use @samp{EXTERNAL INot} to use this name for an
6479 external procedure.
6481 @end ifset
6482 @ifset familyF77
6483 @node Int Intrinsic
6484 @subsubsection Int Intrinsic
6485 @cindex Int intrinsic
6486 @cindex intrinsics, Int
6488 @noindent
6489 @example
6490 Int(@var{A})
6491 @end example
6493 @noindent
6494 Int: @code{INTEGER(KIND=1)} function.
6496 @noindent
6497 @var{A}: @code{INTEGER}, @code{REAL}, or @code{COMPLEX}; scalar; INTENT(IN).
6499 @noindent
6500 Intrinsic groups: (standard FORTRAN 77).
6502 @noindent
6503 Description:
6505 Returns @var{A} with the fractional portion of its
6506 magnitude truncated and its sign preserved, converted
6507 to type @code{INTEGER(KIND=1)}.
6509 If @var{A} is type @code{COMPLEX}, its real part is
6510 truncated and converted, and its imaginary part is disregarded.
6512 @xref{NInt Intrinsic}, for how to convert, rounded to nearest
6513 whole number.
6515 @xref{AInt Intrinsic}, for how to truncate to whole number
6516 without converting.
6518 @end ifset
6519 @ifset familyGNU
6520 @node Int2 Intrinsic
6521 @subsubsection Int2 Intrinsic
6522 @cindex Int2 intrinsic
6523 @cindex intrinsics, Int2
6525 @noindent
6526 @example
6527 Int2(@var{A})
6528 @end example
6530 @noindent
6531 Int2: @code{INTEGER(KIND=6)} function.
6533 @noindent
6534 @var{A}: @code{INTEGER}, @code{REAL}, or @code{COMPLEX}; scalar; INTENT(IN).
6536 @noindent
6537 Intrinsic groups: @code{gnu}.
6539 @noindent
6540 Description:
6542 Returns @var{A} with the fractional portion of its
6543 magnitude truncated and its sign preserved, converted
6544 to type @code{INTEGER(KIND=6)}.
6546 If @var{A} is type @code{COMPLEX}, its real part
6547 is truncated and converted, and its imaginary part is disregarded.
6549 @xref{Int Intrinsic}.
6551 The precise meaning of this intrinsic might change
6552 in a future version of the GNU Fortran language,
6553 as more is learned about how it is used.
6555 @node Int8 Intrinsic
6556 @subsubsection Int8 Intrinsic
6557 @cindex Int8 intrinsic
6558 @cindex intrinsics, Int8
6560 @noindent
6561 @example
6562 Int8(@var{A})
6563 @end example
6565 @noindent
6566 Int8: @code{INTEGER(KIND=2)} function.
6568 @noindent
6569 @var{A}: @code{INTEGER}, @code{REAL}, or @code{COMPLEX}; scalar; INTENT(IN).
6571 @noindent
6572 Intrinsic groups: @code{gnu}.
6574 @noindent
6575 Description:
6577 Returns @var{A} with the fractional portion of its
6578 magnitude truncated and its sign preserved, converted
6579 to type @code{INTEGER(KIND=2)}.
6581 If @var{A} is type @code{COMPLEX}, its real part
6582 is truncated and converted, and its imaginary part is disregarded.
6584 @xref{Int Intrinsic}.
6586 The precise meaning of this intrinsic might change
6587 in a future version of the GNU Fortran language,
6588 as more is learned about how it is used.
6590 @end ifset
6591 @ifset familyMIL
6592 @node IOr Intrinsic
6593 @subsubsection IOr Intrinsic
6594 @cindex IOr intrinsic
6595 @cindex intrinsics, IOr
6597 @noindent
6598 @example
6599 IOr(@var{I}, @var{J})
6600 @end example
6602 @noindent
6603 IOr: @code{INTEGER} function, the exact type being the result of cross-promoting the
6604 types of all the arguments.
6606 @noindent
6607 @var{I}: @code{INTEGER}; scalar; INTENT(IN).
6609 @noindent
6610 @var{J}: @code{INTEGER}; scalar; INTENT(IN).
6612 @noindent
6613 Intrinsic groups: @code{mil}, @code{f90}, @code{vxt}.
6615 @noindent
6616 Description:
6618 Returns value resulting from boolean OR of
6619 pair of bits in each of @var{I} and @var{J}.
6621 @end ifset
6622 @ifset familyF2U
6623 @node IRand Intrinsic
6624 @subsubsection IRand Intrinsic
6625 @cindex IRand intrinsic
6626 @cindex intrinsics, IRand
6628 @noindent
6629 @example
6630 IRand(@var{Flag})
6631 @end example
6633 @noindent
6634 IRand: @code{INTEGER(KIND=1)} function.
6636 @noindent
6637 @var{Flag}: @code{INTEGER}; OPTIONAL; scalar; INTENT(IN).
6639 @noindent
6640 Intrinsic groups: @code{unix}.
6642 @noindent
6643 Description:
6645 Returns a uniform quasi-random number up to a system-dependent limit.
6646 If @var{Flag} is 0, the next number in sequence is returned; if
6647 @var{Flag} is 1, the generator is restarted by calling the UNIX function
6648 @samp{srand(0)}; if @var{Flag} has any other value,
6649 it is used as a new seed with @code{srand()}.
6651 @xref{SRand Intrinsic}.
6653 @emph{Note:} As typically implemented (by the routine of the same
6654 name in the C library), this random number generator is a very poor
6655 one, though the BSD and GNU libraries provide a much better
6656 implementation than the `traditional' one.
6657 On a different system you almost certainly want to use something better.
6659 @node IsaTty Intrinsic
6660 @subsubsection IsaTty Intrinsic
6661 @cindex IsaTty intrinsic
6662 @cindex intrinsics, IsaTty
6664 @noindent
6665 @example
6666 IsaTty(@var{Unit})
6667 @end example
6669 @noindent
6670 IsaTty: @code{LOGICAL(KIND=1)} function.
6672 @noindent
6673 @var{Unit}: @code{INTEGER}; scalar; INTENT(IN).
6675 @noindent
6676 Intrinsic groups: @code{unix}.
6678 @noindent
6679 Description:
6681 Returns @code{.TRUE.} if and only if the Fortran I/O unit
6682 specified by @var{Unit} is connected
6683 to a terminal device.
6684 See @code{isatty(3)}.
6686 @end ifset
6687 @ifset familyMIL
6688 @node IShft Intrinsic
6689 @subsubsection IShft Intrinsic
6690 @cindex IShft intrinsic
6691 @cindex intrinsics, IShft
6693 @noindent
6694 @example
6695 IShft(@var{I}, @var{Shift})
6696 @end example
6698 @noindent
6699 IShft: @code{INTEGER} function, the @samp{KIND=} value of the type being that of argument @var{I}.
6701 @noindent
6702 @var{I}: @code{INTEGER}; scalar; INTENT(IN).
6704 @noindent
6705 @var{Shift}: @code{INTEGER}; scalar; INTENT(IN).
6707 @noindent
6708 Intrinsic groups: @code{mil}, @code{f90}, @code{vxt}.
6710 @noindent
6711 Description:
6713 All bits representing @var{I} are shifted @var{Shift} places.
6714 @samp{@var{Shift}.GT.0} indicates a left shift, @samp{@var{Shift}.EQ.0}
6715 indicates no shift and @samp{@var{Shift}.LT.0} indicates a right shift.
6716 If the absolute value of the shift count is greater than
6717 @samp{BIT_SIZE(@var{I})}, the result is undefined.
6718 Bits shifted out from the left end or the right end are lost.
6719 Zeros are shifted in from the opposite end.
6721 @xref{IShftC Intrinsic}, for the circular-shift equivalent.
6723 @node IShftC Intrinsic
6724 @subsubsection IShftC Intrinsic
6725 @cindex IShftC intrinsic
6726 @cindex intrinsics, IShftC
6728 @noindent
6729 @example
6730 IShftC(@var{I}, @var{Shift}, @var{Size})
6731 @end example
6733 @noindent
6734 IShftC: @code{INTEGER} function, the @samp{KIND=} value of the type being that of argument @var{I}.
6736 @noindent
6737 @var{I}: @code{INTEGER}; scalar; INTENT(IN).
6739 @noindent
6740 @var{Shift}: @code{INTEGER}; scalar; INTENT(IN).
6742 @noindent
6743 @var{Size}: @code{INTEGER}; scalar; INTENT(IN).
6745 @noindent
6746 Intrinsic groups: @code{mil}, @code{f90}, @code{vxt}.
6748 @noindent
6749 Description:
6751 The rightmost @var{Size} bits of the argument @var{I}
6752 are shifted circularly @var{Shift}
6753 places, i.e.@: the bits shifted out of one end are shifted into 
6754 the opposite end.
6755 No bits are lost.
6756 The unshifted bits of the result are the same as
6757 the unshifted bits of @var{I}.
6758 The  absolute value of the argument @var{Shift}
6759 must be less than or equal to @var{Size}.  
6760 The value of @var{Size} must be greater than or equal to one and less than 
6761 or equal to @samp{BIT_SIZE(@var{I})}.
6763 @xref{IShft Intrinsic}, for the logical shift equivalent.
6765 @end ifset
6766 @ifset familyF77
6767 @node ISign Intrinsic
6768 @subsubsection ISign Intrinsic
6769 @cindex ISign intrinsic
6770 @cindex intrinsics, ISign
6772 @noindent
6773 @example
6774 ISign(@var{A}, @var{B})
6775 @end example
6777 @noindent
6778 ISign: @code{INTEGER(KIND=1)} function.
6780 @noindent
6781 @var{A}: @code{INTEGER(KIND=1)}; scalar; INTENT(IN).
6783 @noindent
6784 @var{B}: @code{INTEGER(KIND=1)}; scalar; INTENT(IN).
6786 @noindent
6787 Intrinsic groups: (standard FORTRAN 77).
6789 @noindent
6790 Description:
6792 Archaic form of @code{SIGN()} that is specific
6793 to one type for @var{A} and @var{B}.
6794 @xref{Sign Intrinsic}.
6796 @end ifset
6797 @ifset familyF2U
6798 @node ITime Intrinsic
6799 @subsubsection ITime Intrinsic
6800 @cindex ITime intrinsic
6801 @cindex intrinsics, ITime
6803 @noindent
6804 @example
6805 CALL ITime(@var{TArray})
6806 @end example
6808 @noindent
6809 @var{TArray}: @code{INTEGER(KIND=1)}; DIMENSION(3); INTENT(OUT).
6811 @noindent
6812 Intrinsic groups: @code{unix}.
6814 @noindent
6815 Description:
6817 Returns the current local time hour, minutes, and seconds in elements
6818 1, 2, and 3 of @var{TArray}, respectively.
6820 @end ifset
6821 @ifset familyVXT
6822 @node IZExt Intrinsic
6823 @subsubsection IZExt Intrinsic
6824 @cindex IZExt intrinsic
6825 @cindex intrinsics, IZExt
6827 This intrinsic is not yet implemented.
6828 The name is, however, reserved as an intrinsic.
6829 Use @samp{EXTERNAL IZExt} to use this name for an
6830 external procedure.
6832 @node JIAbs Intrinsic
6833 @subsubsection JIAbs Intrinsic
6834 @cindex JIAbs intrinsic
6835 @cindex intrinsics, JIAbs
6837 This intrinsic is not yet implemented.
6838 The name is, however, reserved as an intrinsic.
6839 Use @samp{EXTERNAL JIAbs} to use this name for an
6840 external procedure.
6842 @node JIAnd Intrinsic
6843 @subsubsection JIAnd Intrinsic
6844 @cindex JIAnd intrinsic
6845 @cindex intrinsics, JIAnd
6847 This intrinsic is not yet implemented.
6848 The name is, however, reserved as an intrinsic.
6849 Use @samp{EXTERNAL JIAnd} to use this name for an
6850 external procedure.
6852 @node JIBClr Intrinsic
6853 @subsubsection JIBClr Intrinsic
6854 @cindex JIBClr intrinsic
6855 @cindex intrinsics, JIBClr
6857 This intrinsic is not yet implemented.
6858 The name is, however, reserved as an intrinsic.
6859 Use @samp{EXTERNAL JIBClr} to use this name for an
6860 external procedure.
6862 @node JIBits Intrinsic
6863 @subsubsection JIBits Intrinsic
6864 @cindex JIBits intrinsic
6865 @cindex intrinsics, JIBits
6867 This intrinsic is not yet implemented.
6868 The name is, however, reserved as an intrinsic.
6869 Use @samp{EXTERNAL JIBits} to use this name for an
6870 external procedure.
6872 @node JIBSet Intrinsic
6873 @subsubsection JIBSet Intrinsic
6874 @cindex JIBSet intrinsic
6875 @cindex intrinsics, JIBSet
6877 This intrinsic is not yet implemented.
6878 The name is, however, reserved as an intrinsic.
6879 Use @samp{EXTERNAL JIBSet} to use this name for an
6880 external procedure.
6882 @node JIDiM Intrinsic
6883 @subsubsection JIDiM Intrinsic
6884 @cindex JIDiM intrinsic
6885 @cindex intrinsics, JIDiM
6887 This intrinsic is not yet implemented.
6888 The name is, however, reserved as an intrinsic.
6889 Use @samp{EXTERNAL JIDiM} to use this name for an
6890 external procedure.
6892 @node JIDInt Intrinsic
6893 @subsubsection JIDInt Intrinsic
6894 @cindex JIDInt intrinsic
6895 @cindex intrinsics, JIDInt
6897 This intrinsic is not yet implemented.
6898 The name is, however, reserved as an intrinsic.
6899 Use @samp{EXTERNAL JIDInt} to use this name for an
6900 external procedure.
6902 @node JIDNnt Intrinsic
6903 @subsubsection JIDNnt Intrinsic
6904 @cindex JIDNnt intrinsic
6905 @cindex intrinsics, JIDNnt
6907 This intrinsic is not yet implemented.
6908 The name is, however, reserved as an intrinsic.
6909 Use @samp{EXTERNAL JIDNnt} to use this name for an
6910 external procedure.
6912 @node JIEOr Intrinsic
6913 @subsubsection JIEOr Intrinsic
6914 @cindex JIEOr intrinsic
6915 @cindex intrinsics, JIEOr
6917 This intrinsic is not yet implemented.
6918 The name is, however, reserved as an intrinsic.
6919 Use @samp{EXTERNAL JIEOr} to use this name for an
6920 external procedure.
6922 @node JIFix Intrinsic
6923 @subsubsection JIFix Intrinsic
6924 @cindex JIFix intrinsic
6925 @cindex intrinsics, JIFix
6927 This intrinsic is not yet implemented.
6928 The name is, however, reserved as an intrinsic.
6929 Use @samp{EXTERNAL JIFix} to use this name for an
6930 external procedure.
6932 @node JInt Intrinsic
6933 @subsubsection JInt Intrinsic
6934 @cindex JInt intrinsic
6935 @cindex intrinsics, JInt
6937 This intrinsic is not yet implemented.
6938 The name is, however, reserved as an intrinsic.
6939 Use @samp{EXTERNAL JInt} to use this name for an
6940 external procedure.
6942 @node JIOr Intrinsic
6943 @subsubsection JIOr Intrinsic
6944 @cindex JIOr intrinsic
6945 @cindex intrinsics, JIOr
6947 This intrinsic is not yet implemented.
6948 The name is, however, reserved as an intrinsic.
6949 Use @samp{EXTERNAL JIOr} to use this name for an
6950 external procedure.
6952 @node JIQint Intrinsic
6953 @subsubsection JIQint Intrinsic
6954 @cindex JIQint intrinsic
6955 @cindex intrinsics, JIQint
6957 This intrinsic is not yet implemented.
6958 The name is, however, reserved as an intrinsic.
6959 Use @samp{EXTERNAL JIQint} to use this name for an
6960 external procedure.
6962 @node JIQNnt Intrinsic
6963 @subsubsection JIQNnt Intrinsic
6964 @cindex JIQNnt intrinsic
6965 @cindex intrinsics, JIQNnt
6967 This intrinsic is not yet implemented.
6968 The name is, however, reserved as an intrinsic.
6969 Use @samp{EXTERNAL JIQNnt} to use this name for an
6970 external procedure.
6972 @node JIShft Intrinsic
6973 @subsubsection JIShft Intrinsic
6974 @cindex JIShft intrinsic
6975 @cindex intrinsics, JIShft
6977 This intrinsic is not yet implemented.
6978 The name is, however, reserved as an intrinsic.
6979 Use @samp{EXTERNAL JIShft} to use this name for an
6980 external procedure.
6982 @node JIShftC Intrinsic
6983 @subsubsection JIShftC Intrinsic
6984 @cindex JIShftC intrinsic
6985 @cindex intrinsics, JIShftC
6987 This intrinsic is not yet implemented.
6988 The name is, however, reserved as an intrinsic.
6989 Use @samp{EXTERNAL JIShftC} to use this name for an
6990 external procedure.
6992 @node JISign Intrinsic
6993 @subsubsection JISign Intrinsic
6994 @cindex JISign intrinsic
6995 @cindex intrinsics, JISign
6997 This intrinsic is not yet implemented.
6998 The name is, however, reserved as an intrinsic.
6999 Use @samp{EXTERNAL JISign} to use this name for an
7000 external procedure.
7002 @node JMax0 Intrinsic
7003 @subsubsection JMax0 Intrinsic
7004 @cindex JMax0 intrinsic
7005 @cindex intrinsics, JMax0
7007 This intrinsic is not yet implemented.
7008 The name is, however, reserved as an intrinsic.
7009 Use @samp{EXTERNAL JMax0} to use this name for an
7010 external procedure.
7012 @node JMax1 Intrinsic
7013 @subsubsection JMax1 Intrinsic
7014 @cindex JMax1 intrinsic
7015 @cindex intrinsics, JMax1
7017 This intrinsic is not yet implemented.
7018 The name is, however, reserved as an intrinsic.
7019 Use @samp{EXTERNAL JMax1} to use this name for an
7020 external procedure.
7022 @node JMin0 Intrinsic
7023 @subsubsection JMin0 Intrinsic
7024 @cindex JMin0 intrinsic
7025 @cindex intrinsics, JMin0
7027 This intrinsic is not yet implemented.
7028 The name is, however, reserved as an intrinsic.
7029 Use @samp{EXTERNAL JMin0} to use this name for an
7030 external procedure.
7032 @node JMin1 Intrinsic
7033 @subsubsection JMin1 Intrinsic
7034 @cindex JMin1 intrinsic
7035 @cindex intrinsics, JMin1
7037 This intrinsic is not yet implemented.
7038 The name is, however, reserved as an intrinsic.
7039 Use @samp{EXTERNAL JMin1} to use this name for an
7040 external procedure.
7042 @node JMod Intrinsic
7043 @subsubsection JMod Intrinsic
7044 @cindex JMod intrinsic
7045 @cindex intrinsics, JMod
7047 This intrinsic is not yet implemented.
7048 The name is, however, reserved as an intrinsic.
7049 Use @samp{EXTERNAL JMod} to use this name for an
7050 external procedure.
7052 @node JNInt Intrinsic
7053 @subsubsection JNInt Intrinsic
7054 @cindex JNInt intrinsic
7055 @cindex intrinsics, JNInt
7057 This intrinsic is not yet implemented.
7058 The name is, however, reserved as an intrinsic.
7059 Use @samp{EXTERNAL JNInt} to use this name for an
7060 external procedure.
7062 @node JNot Intrinsic
7063 @subsubsection JNot Intrinsic
7064 @cindex JNot intrinsic
7065 @cindex intrinsics, JNot
7067 This intrinsic is not yet implemented.
7068 The name is, however, reserved as an intrinsic.
7069 Use @samp{EXTERNAL JNot} to use this name for an
7070 external procedure.
7072 @node JZExt Intrinsic
7073 @subsubsection JZExt Intrinsic
7074 @cindex JZExt intrinsic
7075 @cindex intrinsics, JZExt
7077 This intrinsic is not yet implemented.
7078 The name is, however, reserved as an intrinsic.
7079 Use @samp{EXTERNAL JZExt} to use this name for an
7080 external procedure.
7082 @end ifset
7083 @ifset familyF2U
7084 @node Kill Intrinsic (subroutine)
7085 @subsubsection Kill Intrinsic (subroutine)
7086 @cindex Kill intrinsic
7087 @cindex intrinsics, Kill
7089 @noindent
7090 @example
7091 CALL Kill(@var{Pid}, @var{Signal}, @var{Status})
7092 @end example
7094 @noindent
7095 @var{Pid}: @code{INTEGER}; scalar; INTENT(IN).
7097 @noindent
7098 @var{Signal}: @code{INTEGER}; scalar; INTENT(IN).
7100 @noindent
7101 @var{Status}: @code{INTEGER(KIND=1)}; OPTIONAL; scalar; INTENT(OUT).
7103 @noindent
7104 Intrinsic groups: @code{unix}.
7106 @noindent
7107 Description:
7109 Sends the signal specified by @var{Signal} to the process @var{Pid}.
7110 If the @var{Status} argument is supplied, it contains
7111 0 on success or a nonzero error code upon return.
7112 See @code{kill(2)}.
7114 Some non-GNU implementations of Fortran provide this intrinsic as
7115 only a function, not as a subroutine, or do not support the
7116 (optional) @var{Status} argument.
7118 For information on other intrinsics with the same name:
7119 @xref{Kill Intrinsic (function)}.
7121 @end ifset
7122 @ifset familyBADU77
7123 @node Kill Intrinsic (function)
7124 @subsubsection Kill Intrinsic (function)
7125 @cindex Kill intrinsic
7126 @cindex intrinsics, Kill
7128 @noindent
7129 @example
7130 Kill(@var{Pid}, @var{Signal})
7131 @end example
7133 @noindent
7134 Kill: @code{INTEGER(KIND=1)} function.
7136 @noindent
7137 @var{Pid}: @code{INTEGER}; scalar; INTENT(IN).
7139 @noindent
7140 @var{Signal}: @code{INTEGER}; scalar; INTENT(IN).
7142 @noindent
7143 Intrinsic groups: @code{badu77}.
7145 @noindent
7146 Description:
7148 Sends the signal specified by @var{Signal} to the process @var{Pid}.
7149 Returns 0 on success or a nonzero error code.
7150 See @code{kill(2)}.
7152 Due to the side effects performed by this intrinsic, the function
7153 form is not recommended.
7155 For information on other intrinsics with the same name:
7156 @xref{Kill Intrinsic (subroutine)}.
7158 @end ifset
7159 @ifset familyF90
7160 @node Kind Intrinsic
7161 @subsubsection Kind Intrinsic
7162 @cindex Kind intrinsic
7163 @cindex intrinsics, Kind
7165 This intrinsic is not yet implemented.
7166 The name is, however, reserved as an intrinsic.
7167 Use @samp{EXTERNAL Kind} to use this name for an
7168 external procedure.
7170 @node LBound Intrinsic
7171 @subsubsection LBound Intrinsic
7172 @cindex LBound intrinsic
7173 @cindex intrinsics, LBound
7175 This intrinsic is not yet implemented.
7176 The name is, however, reserved as an intrinsic.
7177 Use @samp{EXTERNAL LBound} to use this name for an
7178 external procedure.
7180 @end ifset
7181 @ifset familyF77
7182 @node Len Intrinsic
7183 @subsubsection Len Intrinsic
7184 @cindex Len intrinsic
7185 @cindex intrinsics, Len
7187 @noindent
7188 @example
7189 Len(@var{String})
7190 @end example
7192 @noindent
7193 Len: @code{INTEGER(KIND=1)} function.
7195 @noindent
7196 @var{String}: @code{CHARACTER}; scalar.
7198 @noindent
7199 Intrinsic groups: (standard FORTRAN 77).
7201 @noindent
7202 Description:
7204 Returns the length of @var{String}.
7206 If @var{String} is an array, the length of an element
7207 of @var{String} is returned.
7209 Note that @var{String} need not be defined when this
7210 intrinsic is invoked, since only the length, not
7211 the content, of @var{String} is needed.
7213 @xref{Bit_Size Intrinsic}, for the function that determines
7214 the size of its argument in bits.
7216 @end ifset
7217 @ifset familyF90
7218 @node Len_Trim Intrinsic
7219 @subsubsection Len_Trim Intrinsic
7220 @cindex Len_Trim intrinsic
7221 @cindex intrinsics, Len_Trim
7223 @noindent
7224 @example
7225 Len_Trim(@var{String})
7226 @end example
7228 @noindent
7229 Len_Trim: @code{INTEGER(KIND=1)} function.
7231 @noindent
7232 @var{String}: @code{CHARACTER}; scalar; INTENT(IN).
7234 @noindent
7235 Intrinsic groups: @code{f90}.
7237 @noindent
7238 Description:
7240 Returns the index of the last non-blank character in @var{String}.
7241 @code{LNBLNK} and @code{LEN_TRIM} are equivalent.
7243 @end ifset
7244 @ifset familyF77
7245 @node LGe Intrinsic
7246 @subsubsection LGe Intrinsic
7247 @cindex LGe intrinsic
7248 @cindex intrinsics, LGe
7250 @noindent
7251 @example
7252 LGe(@var{String_A}, @var{String_B})
7253 @end example
7255 @noindent
7256 LGe: @code{LOGICAL(KIND=1)} function.
7258 @noindent
7259 @var{String_A}: @code{CHARACTER}; scalar; INTENT(IN).
7261 @noindent
7262 @var{String_B}: @code{CHARACTER}; scalar; INTENT(IN).
7264 @noindent
7265 Intrinsic groups: (standard FORTRAN 77).
7267 @noindent
7268 Description:
7270 Returns @samp{.TRUE.} if @samp{@var{String_A}.GE.@var{String_B}},
7271 @samp{.FALSE.} otherwise.
7272 @var{String_A} and @var{String_B} are interpreted as containing
7273 ASCII character codes.
7274 If either value contains a character not in the ASCII
7275 character set, the result is processor dependent.
7277 If the @var{String_A} and @var{String_B} are not the same length,
7278 the shorter is compared as if spaces were appended to
7279 it to form a value that has the same length as the longer.
7281 The lexical comparison intrinsics @code{LGe}, @code{LGt},
7282 @code{LLe}, and @code{LLt} differ from the corresponding
7283 intrinsic operators @code{.GE.}, @code{.GT.},
7284 @code{.LE.}, @code{.LT.}.
7285 Because the ASCII collating sequence is assumed,
7286 the following expressions always return @samp{.TRUE.}:
7288 @smallexample
7289 LGE ('0', ' ')
7290 LGE ('A', '0')
7291 LGE ('a', 'A')
7292 @end smallexample
7294 The following related expressions do @emph{not} always
7295 return @samp{.TRUE.}, as they are not necessarily evaluated
7296 assuming the arguments use ASCII encoding:
7298 @smallexample
7299 '0' .GE. ' '
7300 'A' .GE. '0'
7301 'a' .GE. 'A'
7302 @end smallexample
7304 The same difference exists
7305 between @code{LGt} and @code{.GT.};
7306 between @code{LLe} and @code{.LE.}; and
7307 between @code{LLt} and @code{.LT.}.
7309 @node LGt Intrinsic
7310 @subsubsection LGt Intrinsic
7311 @cindex LGt intrinsic
7312 @cindex intrinsics, LGt
7314 @noindent
7315 @example
7316 LGt(@var{String_A}, @var{String_B})
7317 @end example
7319 @noindent
7320 LGt: @code{LOGICAL(KIND=1)} function.
7322 @noindent
7323 @var{String_A}: @code{CHARACTER}; scalar; INTENT(IN).
7325 @noindent
7326 @var{String_B}: @code{CHARACTER}; scalar; INTENT(IN).
7328 @noindent
7329 Intrinsic groups: (standard FORTRAN 77).
7331 @noindent
7332 Description:
7334 Returns @samp{.TRUE.} if @samp{@var{String_A}.GT.@var{String_B}},
7335 @samp{.FALSE.} otherwise.
7336 @var{String_A} and @var{String_B} are interpreted as containing
7337 ASCII character codes.
7338 If either value contains a character not in the ASCII
7339 character set, the result is processor dependent.
7341 If the @var{String_A} and @var{String_B} are not the same length,
7342 the shorter is compared as if spaces were appended to
7343 it to form a value that has the same length as the longer.
7345 @xref{LGe Intrinsic}, for information on the distinction
7346 between the @code{LGT} intrinsic and the @code{.GT.}
7347 operator.
7349 @end ifset
7350 @ifset familyF2U
7351 @node Link Intrinsic (subroutine)
7352 @subsubsection Link Intrinsic (subroutine)
7353 @cindex Link intrinsic
7354 @cindex intrinsics, Link
7356 @noindent
7357 @example
7358 CALL Link(@var{Path1}, @var{Path2}, @var{Status})
7359 @end example
7361 @noindent
7362 @var{Path1}: @code{CHARACTER}; scalar; INTENT(IN).
7364 @noindent
7365 @var{Path2}: @code{CHARACTER}; scalar; INTENT(IN).
7367 @noindent
7368 @var{Status}: @code{INTEGER(KIND=1)}; OPTIONAL; scalar; INTENT(OUT).
7370 @noindent
7371 Intrinsic groups: @code{unix}.
7373 @noindent
7374 Description:
7376 Makes a (hard) link from file @var{Path1} to @var{Path2}.
7377 A null character (@samp{CHAR(0)}) marks the end of
7378 the names in @var{Path1} and @var{Path2}---otherwise,
7379 trailing blanks in @var{Path1} and @var{Path2} are ignored.
7380 If the @var{Status} argument is supplied, it contains
7381 0 on success or a nonzero error code upon return.
7382 See @code{link(2)}.
7384 Some non-GNU implementations of Fortran provide this intrinsic as
7385 only a function, not as a subroutine, or do not support the
7386 (optional) @var{Status} argument.
7388 For information on other intrinsics with the same name:
7389 @xref{Link Intrinsic (function)}.
7391 @end ifset
7392 @ifset familyBADU77
7393 @node Link Intrinsic (function)
7394 @subsubsection Link Intrinsic (function)
7395 @cindex Link intrinsic
7396 @cindex intrinsics, Link
7398 @noindent
7399 @example
7400 Link(@var{Path1}, @var{Path2})
7401 @end example
7403 @noindent
7404 Link: @code{INTEGER(KIND=1)} function.
7406 @noindent
7407 @var{Path1}: @code{CHARACTER}; scalar; INTENT(IN).
7409 @noindent
7410 @var{Path2}: @code{CHARACTER}; scalar; INTENT(IN).
7412 @noindent
7413 Intrinsic groups: @code{badu77}.
7415 @noindent
7416 Description:
7418 Makes a (hard) link from file @var{Path1} to @var{Path2}.
7419 A null character (@samp{CHAR(0)}) marks the end of
7420 the names in @var{Path1} and @var{Path2}---otherwise,
7421 trailing blanks in @var{Path1} and @var{Path2} are ignored.
7422 Returns 0 on success or a nonzero error code.
7423 See @code{link(2)}.
7425 Due to the side effects performed by this intrinsic, the function
7426 form is not recommended.
7428 For information on other intrinsics with the same name:
7429 @xref{Link Intrinsic (subroutine)}.
7431 @end ifset
7432 @ifset familyF77
7433 @node LLe Intrinsic
7434 @subsubsection LLe Intrinsic
7435 @cindex LLe intrinsic
7436 @cindex intrinsics, LLe
7438 @noindent
7439 @example
7440 LLe(@var{String_A}, @var{String_B})
7441 @end example
7443 @noindent
7444 LLe: @code{LOGICAL(KIND=1)} function.
7446 @noindent
7447 @var{String_A}: @code{CHARACTER}; scalar; INTENT(IN).
7449 @noindent
7450 @var{String_B}: @code{CHARACTER}; scalar; INTENT(IN).
7452 @noindent
7453 Intrinsic groups: (standard FORTRAN 77).
7455 @noindent
7456 Description:
7458 Returns @samp{.TRUE.} if @samp{@var{String_A}.LE.@var{String_B}},
7459 @samp{.FALSE.} otherwise.
7460 @var{String_A} and @var{String_B} are interpreted as containing
7461 ASCII character codes.
7462 If either value contains a character not in the ASCII
7463 character set, the result is processor dependent.
7465 If the @var{String_A} and @var{String_B} are not the same length,
7466 the shorter is compared as if spaces were appended to
7467 it to form a value that has the same length as the longer.
7469 @xref{LGe Intrinsic}, for information on the distinction
7470 between the @code{LLE} intrinsic and the @code{.LE.}
7471 operator.
7473 @node LLt Intrinsic
7474 @subsubsection LLt Intrinsic
7475 @cindex LLt intrinsic
7476 @cindex intrinsics, LLt
7478 @noindent
7479 @example
7480 LLt(@var{String_A}, @var{String_B})
7481 @end example
7483 @noindent
7484 LLt: @code{LOGICAL(KIND=1)} function.
7486 @noindent
7487 @var{String_A}: @code{CHARACTER}; scalar; INTENT(IN).
7489 @noindent
7490 @var{String_B}: @code{CHARACTER}; scalar; INTENT(IN).
7492 @noindent
7493 Intrinsic groups: (standard FORTRAN 77).
7495 @noindent
7496 Description:
7498 Returns @samp{.TRUE.} if @samp{@var{String_A}.LT.@var{String_B}},
7499 @samp{.FALSE.} otherwise.
7500 @var{String_A} and @var{String_B} are interpreted as containing
7501 ASCII character codes.
7502 If either value contains a character not in the ASCII
7503 character set, the result is processor dependent.
7505 If the @var{String_A} and @var{String_B} are not the same length,
7506 the shorter is compared as if spaces were appended to
7507 it to form a value that has the same length as the longer.
7509 @xref{LGe Intrinsic}, for information on the distinction
7510 between the @code{LLT} intrinsic and the @code{.LT.}
7511 operator.
7513 @end ifset
7514 @ifset familyF2U
7515 @node LnBlnk Intrinsic
7516 @subsubsection LnBlnk Intrinsic
7517 @cindex LnBlnk intrinsic
7518 @cindex intrinsics, LnBlnk
7520 @noindent
7521 @example
7522 LnBlnk(@var{String})
7523 @end example
7525 @noindent
7526 LnBlnk: @code{INTEGER(KIND=1)} function.
7528 @noindent
7529 @var{String}: @code{CHARACTER}; scalar; INTENT(IN).
7531 @noindent
7532 Intrinsic groups: @code{unix}.
7534 @noindent
7535 Description:
7537 Returns the index of the last non-blank character in @var{String}.
7538 @code{LNBLNK} and @code{LEN_TRIM} are equivalent.
7540 @node Loc Intrinsic
7541 @subsubsection Loc Intrinsic
7542 @cindex Loc intrinsic
7543 @cindex intrinsics, Loc
7545 @noindent
7546 @example
7547 Loc(@var{Entity})
7548 @end example
7550 @noindent
7551 Loc: @code{INTEGER(KIND=7)} function.
7553 @noindent
7554 @var{Entity}: Any type; cannot be a constant or expression.
7556 @noindent
7557 Intrinsic groups: @code{unix}.
7559 @noindent
7560 Description:
7562 The @code{LOC()} intrinsic works the
7563 same way as the @code{%LOC()} construct.
7564 @xref{%LOC(),,The @code{%LOC()} Construct}, for
7565 more information.
7567 @end ifset
7568 @ifset familyF77
7569 @node Log Intrinsic
7570 @subsubsection Log Intrinsic
7571 @cindex Log intrinsic
7572 @cindex intrinsics, Log
7574 @noindent
7575 @example
7576 Log(@var{X})
7577 @end example
7579 @noindent
7580 Log: @code{REAL} or @code{COMPLEX} function, the exact type being that of argument @var{X}.
7582 @noindent
7583 @var{X}: @code{REAL} or @code{COMPLEX}; scalar; INTENT(IN).
7585 @noindent
7586 Intrinsic groups: (standard FORTRAN 77).
7588 @noindent
7589 Description:
7591 Returns the natural logarithm of @var{X}, which must
7592 be greater than zero or, if type @code{COMPLEX}, must not
7593 be zero.
7595 @xref{Exp Intrinsic}, for the inverse of this function.
7597 @xref{Log10 Intrinsic}, for the `common' (base-10) logarithm function.
7599 @node Log10 Intrinsic
7600 @subsubsection Log10 Intrinsic
7601 @cindex Log10 intrinsic
7602 @cindex intrinsics, Log10
7604 @noindent
7605 @example
7606 Log10(@var{X})
7607 @end example
7609 @noindent
7610 Log10: @code{REAL} function, the @samp{KIND=} value of the type being that of argument @var{X}.
7612 @noindent
7613 @var{X}: @code{REAL}; scalar; INTENT(IN).
7615 @noindent
7616 Intrinsic groups: (standard FORTRAN 77).
7618 @noindent
7619 Description:
7621 Returns the common logarithm (base 10) of @var{X}, which must
7622 be greater than zero.
7624 The inverse of this function is @samp{10. ** LOG10(@var{X})}.
7626 @xref{Log Intrinsic}, for the natural logarithm function.
7628 @end ifset
7629 @ifset familyF90
7630 @node Logical Intrinsic
7631 @subsubsection Logical Intrinsic
7632 @cindex Logical intrinsic
7633 @cindex intrinsics, Logical
7635 This intrinsic is not yet implemented.
7636 The name is, however, reserved as an intrinsic.
7637 Use @samp{EXTERNAL Logical} to use this name for an
7638 external procedure.
7640 @end ifset
7641 @ifset familyF2U
7642 @node Long Intrinsic
7643 @subsubsection Long Intrinsic
7644 @cindex Long intrinsic
7645 @cindex intrinsics, Long
7647 @noindent
7648 @example
7649 Long(@var{A})
7650 @end example
7652 @noindent
7653 Long: @code{INTEGER(KIND=1)} function.
7655 @noindent
7656 @var{A}: @code{INTEGER(KIND=6)}; scalar; INTENT(IN).
7658 @noindent
7659 Intrinsic groups: @code{unix}.
7661 @noindent
7662 Description:
7664 Archaic form of @code{INT()} that is specific
7665 to one type for @var{A}.
7666 @xref{Int Intrinsic}.
7668 The precise meaning of this intrinsic might change
7669 in a future version of the GNU Fortran language,
7670 as more is learned about how it is used.
7672 @end ifset
7673 @ifset familyF2C
7674 @node LShift Intrinsic
7675 @subsubsection LShift Intrinsic
7676 @cindex LShift intrinsic
7677 @cindex intrinsics, LShift
7679 @noindent
7680 @example
7681 LShift(@var{I}, @var{Shift})
7682 @end example
7684 @noindent
7685 LShift: @code{INTEGER} function, the @samp{KIND=} value of the type being that of argument @var{I}.
7687 @noindent
7688 @var{I}: @code{INTEGER}; scalar; INTENT(IN).
7690 @noindent
7691 @var{Shift}: @code{INTEGER}; scalar; INTENT(IN).
7693 @noindent
7694 Intrinsic groups: @code{f2c}.
7696 @noindent
7697 Description:
7699 Returns @var{I} shifted to the left
7700 @var{Shift} bits.
7702 Although similar to the expression
7703 @samp{@var{I}*(2**@var{Shift})}, there
7704 are important differences.
7705 For example, the sign of the result is
7706 not necessarily the same as the sign of
7707 @var{I}.
7709 Currently this intrinsic is defined assuming
7710 the underlying representation of @var{I}
7711 is as a two's-complement integer.
7712 It is unclear at this point whether that
7713 definition will apply when a different
7714 representation is involved.
7716 @xref{LShift Intrinsic}, for the inverse of this function.
7718 @xref{IShft Intrinsic}, for information
7719 on a more widely available left-shifting
7720 intrinsic that is also more precisely defined.
7722 @end ifset
7723 @ifset familyF2U
7724 @node LStat Intrinsic (subroutine)
7725 @subsubsection LStat Intrinsic (subroutine)
7726 @cindex LStat intrinsic
7727 @cindex intrinsics, LStat
7729 @noindent
7730 @example
7731 CALL LStat(@var{File}, @var{SArray}, @var{Status})
7732 @end example
7734 @noindent
7735 @var{File}: @code{CHARACTER}; scalar; INTENT(IN).
7737 @noindent
7738 @var{SArray}: @code{INTEGER(KIND=1)}; DIMENSION(13); INTENT(OUT).
7740 @noindent
7741 @var{Status}: @code{INTEGER(KIND=1)}; OPTIONAL; scalar; INTENT(OUT).
7743 @noindent
7744 Intrinsic groups: @code{unix}.
7746 @noindent
7747 Description:
7749 Obtains data about the given file @var{File} and places them in the array
7750 @var{SArray}.
7751 A null character (@samp{CHAR(0)}) marks the end of
7752 the name in @var{File}---otherwise,
7753 trailing blanks in @var{File} are ignored.
7754 If @var{File} is a symbolic link it returns data on the
7755 link itself, so the routine is available only on systems that support
7756 symbolic links.
7757 The values in this array are extracted from the
7758 @code{stat} structure as returned by @code{fstat(2)} q.v., as follows:
7760 @enumerate
7761 @item
7762 Device ID
7764 @item
7765 Inode number
7767 @item
7768 File mode
7770 @item
7771 Number of links
7773 @item
7774 Owner's uid
7776 @item
7777 Owner's gid
7779 @item
7780 ID of device containing directory entry for file
7781 (0 if not available)
7783 @item
7784 File size (bytes)
7786 @item
7787 Last access time
7789 @item
7790 Last modification time
7792 @item
7793 Last file status change time
7795 @item
7796 Preferred I/O block size (-1 if not available)
7798 @item
7799 Number of blocks allocated (-1 if not available)
7800 @end enumerate
7802 Not all these elements are relevant on all systems.
7803 If an element is not relevant, it is returned as 0.
7805 If the @var{Status} argument is supplied, it contains
7806 0 on success or a nonzero error code upon return
7807 (@code{ENOSYS} if the system does not provide @code{lstat(2)}).
7809 Some non-GNU implementations of Fortran provide this intrinsic as
7810 only a function, not as a subroutine, or do not support the
7811 (optional) @var{Status} argument.
7813 For information on other intrinsics with the same name:
7814 @xref{LStat Intrinsic (function)}.
7816 @node LStat Intrinsic (function)
7817 @subsubsection LStat Intrinsic (function)
7818 @cindex LStat intrinsic
7819 @cindex intrinsics, LStat
7821 @noindent
7822 @example
7823 LStat(@var{File}, @var{SArray})
7824 @end example
7826 @noindent
7827 LStat: @code{INTEGER(KIND=1)} function.
7829 @noindent
7830 @var{File}: @code{CHARACTER}; scalar; INTENT(IN).
7832 @noindent
7833 @var{SArray}: @code{INTEGER(KIND=1)}; DIMENSION(13); INTENT(OUT).
7835 @noindent
7836 Intrinsic groups: @code{unix}.
7838 @noindent
7839 Description:
7841 Obtains data about the given file @var{File} and places them in the array
7842 @var{SArray}.
7843 A null character (@samp{CHAR(0)}) marks the end of
7844 the name in @var{File}---otherwise,
7845 trailing blanks in @var{File} are ignored.
7846 If @var{File} is a symbolic link it returns data on the
7847 link itself, so the routine is available only on systems that support
7848 symbolic links.
7849 The values in this array are extracted from the
7850 @code{stat} structure as returned by @code{fstat(2)} q.v., as follows:
7852 @enumerate
7853 @item
7854 Device ID
7856 @item
7857 Inode number
7859 @item
7860 File mode
7862 @item
7863 Number of links
7865 @item
7866 Owner's uid
7868 @item
7869 Owner's gid
7871 @item
7872 ID of device containing directory entry for file
7873 (0 if not available)
7875 @item
7876 File size (bytes)
7878 @item
7879 Last access time
7881 @item
7882 Last modification time
7884 @item
7885 Last file status change time
7887 @item
7888 Preferred I/O block size (-1 if not available)
7890 @item
7891 Number of blocks allocated (-1 if not available)
7892 @end enumerate
7894 Not all these elements are relevant on all systems.
7895 If an element is not relevant, it is returned as 0.
7897 Returns 0 on success or a nonzero error code
7898 (@code{ENOSYS} if the system does not provide @code{lstat(2)}).
7900 For information on other intrinsics with the same name:
7901 @xref{LStat Intrinsic (subroutine)}.
7903 @node LTime Intrinsic
7904 @subsubsection LTime Intrinsic
7905 @cindex LTime intrinsic
7906 @cindex intrinsics, LTime
7908 @noindent
7909 @example
7910 CALL LTime(@var{STime}, @var{TArray})
7911 @end example
7913 @noindent
7914 @var{STime}: @code{INTEGER(KIND=1)}; scalar; INTENT(IN).
7916 @noindent
7917 @var{TArray}: @code{INTEGER(KIND=1)}; DIMENSION(9); INTENT(OUT).
7919 @noindent
7920 Intrinsic groups: @code{unix}.
7922 @noindent
7923 Description:
7925 Given a system time value @var{STime}, fills @var{TArray} with values
7926 extracted from it appropriate to the GMT time zone using
7927 @code{localtime(3)}.
7929 The array elements are as follows:
7931 @enumerate
7932 @item
7933 Seconds after the minute, range 0--59 or 0--61 to allow for leap
7934 seconds
7936 @item
7937 Minutes after the hour, range 0--59
7939 @item
7940 Hours past midnight, range 0--23
7942 @item
7943 Day of month, range 0--31
7945 @item
7946 Number of months since January, range 0--12
7948 @item
7949 Years since 1900
7951 @item
7952 Number of days since Sunday, range 0--6
7954 @item
7955 Days since January 1
7957 @item
7958 Daylight savings indicator: positive if daylight savings is in effect,
7959 zero if not, and negative if the information isn't available.
7960 @end enumerate
7962 @end ifset
7963 @ifset familyF90
7964 @node MatMul Intrinsic
7965 @subsubsection MatMul Intrinsic
7966 @cindex MatMul intrinsic
7967 @cindex intrinsics, MatMul
7969 This intrinsic is not yet implemented.
7970 The name is, however, reserved as an intrinsic.
7971 Use @samp{EXTERNAL MatMul} to use this name for an
7972 external procedure.
7974 @end ifset
7975 @ifset familyF77
7976 @node Max Intrinsic
7977 @subsubsection Max Intrinsic
7978 @cindex Max intrinsic
7979 @cindex intrinsics, Max
7981 @noindent
7982 @example
7983 Max(@var{A}-1, @var{A}-2, @dots{}, @var{A}-n)
7984 @end example
7986 @noindent
7987 Max: @code{INTEGER} or @code{REAL} function, the exact type being the result of cross-promoting the
7988 types of all the arguments.
7990 @noindent
7991 @var{A}: @code{INTEGER} or @code{REAL}; at least two such arguments must be provided; scalar; INTENT(IN).
7993 @noindent
7994 Intrinsic groups: (standard FORTRAN 77).
7996 @noindent
7997 Description:
7999 Returns the argument with the largest value.
8001 @xref{Min Intrinsic}, for the opposite function.
8003 @node Max0 Intrinsic
8004 @subsubsection Max0 Intrinsic
8005 @cindex Max0 intrinsic
8006 @cindex intrinsics, Max0
8008 @noindent
8009 @example
8010 Max0(@var{A}-1, @var{A}-2, @dots{}, @var{A}-n)
8011 @end example
8013 @noindent
8014 Max0: @code{INTEGER(KIND=1)} function.
8016 @noindent
8017 @var{A}: @code{INTEGER(KIND=1)}; at least two such arguments must be provided; scalar; INTENT(IN).
8019 @noindent
8020 Intrinsic groups: (standard FORTRAN 77).
8022 @noindent
8023 Description:
8025 Archaic form of @code{MAX()} that is specific
8026 to one type for @var{A}.
8027 @xref{Max Intrinsic}.
8029 @node Max1 Intrinsic
8030 @subsubsection Max1 Intrinsic
8031 @cindex Max1 intrinsic
8032 @cindex intrinsics, Max1
8034 @noindent
8035 @example
8036 Max1(@var{A}-1, @var{A}-2, @dots{}, @var{A}-n)
8037 @end example
8039 @noindent
8040 Max1: @code{INTEGER(KIND=1)} function.
8042 @noindent
8043 @var{A}: @code{REAL(KIND=1)}; at least two such arguments must be provided; scalar; INTENT(IN).
8045 @noindent
8046 Intrinsic groups: (standard FORTRAN 77).
8048 @noindent
8049 Description:
8051 Archaic form of @code{MAX()} that is specific
8052 to one type for @var{A} and a different return type.
8053 @xref{Max Intrinsic}.
8055 @end ifset
8056 @ifset familyF90
8057 @node MaxExponent Intrinsic
8058 @subsubsection MaxExponent Intrinsic
8059 @cindex MaxExponent intrinsic
8060 @cindex intrinsics, MaxExponent
8062 This intrinsic is not yet implemented.
8063 The name is, however, reserved as an intrinsic.
8064 Use @samp{EXTERNAL MaxExponent} to use this name for an
8065 external procedure.
8067 @node MaxLoc Intrinsic
8068 @subsubsection MaxLoc Intrinsic
8069 @cindex MaxLoc intrinsic
8070 @cindex intrinsics, MaxLoc
8072 This intrinsic is not yet implemented.
8073 The name is, however, reserved as an intrinsic.
8074 Use @samp{EXTERNAL MaxLoc} to use this name for an
8075 external procedure.
8077 @node MaxVal Intrinsic
8078 @subsubsection MaxVal Intrinsic
8079 @cindex MaxVal intrinsic
8080 @cindex intrinsics, MaxVal
8082 This intrinsic is not yet implemented.
8083 The name is, however, reserved as an intrinsic.
8084 Use @samp{EXTERNAL MaxVal} to use this name for an
8085 external procedure.
8087 @end ifset
8088 @ifset familyF2U
8089 @node MClock Intrinsic
8090 @subsubsection MClock Intrinsic
8091 @cindex MClock intrinsic
8092 @cindex intrinsics, MClock
8094 @noindent
8095 @example
8096 MClock()
8097 @end example
8099 @noindent
8100 MClock: @code{INTEGER(KIND=1)} function.
8102 @noindent
8103 Intrinsic groups: @code{unix}.
8105 @noindent
8106 Description:
8108 Returns the number of clock ticks since the start of the process.
8109 Supported on systems with @code{clock(3)} (q.v.).
8111 @cindex wraparound, timings
8112 @cindex limits, timings
8113 This intrinsic is not fully portable, such as to systems
8114 with 32-bit @code{INTEGER} types but supporting times
8115 wider than 32 bits.
8116 Therefore, the values returned by this intrinsic
8117 might be, or become, negative,
8118 or numerically less than previous values,
8119 during a single run of the compiled program.
8121 @xref{MClock8 Intrinsic}, for information on a
8122 similar intrinsic that might be portable to more
8123 GNU Fortran implementations, though to fewer
8124 Fortran compilers.
8126 If the system does not support @code{clock(3)},
8127 -1 is returned.
8129 @node MClock8 Intrinsic
8130 @subsubsection MClock8 Intrinsic
8131 @cindex MClock8 intrinsic
8132 @cindex intrinsics, MClock8
8134 @noindent
8135 @example
8136 MClock8()
8137 @end example
8139 @noindent
8140 MClock8: @code{INTEGER(KIND=2)} function.
8142 @noindent
8143 Intrinsic groups: @code{unix}.
8145 @noindent
8146 Description:
8148 Returns the number of clock ticks since the start of the process.
8149 Supported on systems with @code{clock(3)} (q.v.).
8151 @cindex wraparound, timings
8152 @cindex limits, timings
8153 @emph{Warning:} this intrinsic does not increase the range
8154 of the timing values over that returned by @code{clock(3)}.
8155 On a system with a 32-bit @code{clock(3)},
8156 @code{MCLOCK8} will return a 32-bit value,
8157 even though converted to an @samp{INTEGER(KIND=2)} value.
8158 That means overflows of the 32-bit value can still occur.
8159 Therefore, the values returned by this intrinsic
8160 might be, or become, negative,
8161 or numerically less than previous values,
8162 during a single run of the compiled program.
8164 No Fortran implementations other than GNU Fortran are
8165 known to support this intrinsic at the time of this
8166 writing.
8167 @xref{MClock Intrinsic}, for information on a
8168 similar intrinsic that might be portable to more Fortran
8169 compilers, though to fewer GNU Fortran implementations.
8171 If the system does not support @code{clock(3)},
8172 -1 is returned.
8174 @end ifset
8175 @ifset familyF90
8176 @node Merge Intrinsic
8177 @subsubsection Merge Intrinsic
8178 @cindex Merge intrinsic
8179 @cindex intrinsics, Merge
8181 This intrinsic is not yet implemented.
8182 The name is, however, reserved as an intrinsic.
8183 Use @samp{EXTERNAL Merge} to use this name for an
8184 external procedure.
8186 @end ifset
8187 @ifset familyF77
8188 @node Min Intrinsic
8189 @subsubsection Min Intrinsic
8190 @cindex Min intrinsic
8191 @cindex intrinsics, Min
8193 @noindent
8194 @example
8195 Min(@var{A}-1, @var{A}-2, @dots{}, @var{A}-n)
8196 @end example
8198 @noindent
8199 Min: @code{INTEGER} or @code{REAL} function, the exact type being the result of cross-promoting the
8200 types of all the arguments.
8202 @noindent
8203 @var{A}: @code{INTEGER} or @code{REAL}; at least two such arguments must be provided; scalar; INTENT(IN).
8205 @noindent
8206 Intrinsic groups: (standard FORTRAN 77).
8208 @noindent
8209 Description:
8211 Returns the argument with the smallest value.
8213 @xref{Max Intrinsic}, for the opposite function.
8215 @node Min0 Intrinsic
8216 @subsubsection Min0 Intrinsic
8217 @cindex Min0 intrinsic
8218 @cindex intrinsics, Min0
8220 @noindent
8221 @example
8222 Min0(@var{A}-1, @var{A}-2, @dots{}, @var{A}-n)
8223 @end example
8225 @noindent
8226 Min0: @code{INTEGER(KIND=1)} function.
8228 @noindent
8229 @var{A}: @code{INTEGER(KIND=1)}; at least two such arguments must be provided; scalar; INTENT(IN).
8231 @noindent
8232 Intrinsic groups: (standard FORTRAN 77).
8234 @noindent
8235 Description:
8237 Archaic form of @code{MIN()} that is specific
8238 to one type for @var{A}.
8239 @xref{Min Intrinsic}.
8241 @node Min1 Intrinsic
8242 @subsubsection Min1 Intrinsic
8243 @cindex Min1 intrinsic
8244 @cindex intrinsics, Min1
8246 @noindent
8247 @example
8248 Min1(@var{A}-1, @var{A}-2, @dots{}, @var{A}-n)
8249 @end example
8251 @noindent
8252 Min1: @code{INTEGER(KIND=1)} function.
8254 @noindent
8255 @var{A}: @code{REAL(KIND=1)}; at least two such arguments must be provided; scalar; INTENT(IN).
8257 @noindent
8258 Intrinsic groups: (standard FORTRAN 77).
8260 @noindent
8261 Description:
8263 Archaic form of @code{MIN()} that is specific
8264 to one type for @var{A} and a different return type.
8265 @xref{Min Intrinsic}.
8267 @end ifset
8268 @ifset familyF90
8269 @node MinExponent Intrinsic
8270 @subsubsection MinExponent Intrinsic
8271 @cindex MinExponent intrinsic
8272 @cindex intrinsics, MinExponent
8274 This intrinsic is not yet implemented.
8275 The name is, however, reserved as an intrinsic.
8276 Use @samp{EXTERNAL MinExponent} to use this name for an
8277 external procedure.
8279 @node MinLoc Intrinsic
8280 @subsubsection MinLoc Intrinsic
8281 @cindex MinLoc intrinsic
8282 @cindex intrinsics, MinLoc
8284 This intrinsic is not yet implemented.
8285 The name is, however, reserved as an intrinsic.
8286 Use @samp{EXTERNAL MinLoc} to use this name for an
8287 external procedure.
8289 @node MinVal Intrinsic
8290 @subsubsection MinVal Intrinsic
8291 @cindex MinVal intrinsic
8292 @cindex intrinsics, MinVal
8294 This intrinsic is not yet implemented.
8295 The name is, however, reserved as an intrinsic.
8296 Use @samp{EXTERNAL MinVal} to use this name for an
8297 external procedure.
8299 @end ifset
8300 @ifset familyF77
8301 @node Mod Intrinsic
8302 @subsubsection Mod Intrinsic
8303 @cindex Mod intrinsic
8304 @cindex intrinsics, Mod
8306 @noindent
8307 @example
8308 Mod(@var{A}, @var{P})
8309 @end example
8311 @noindent
8312 Mod: @code{INTEGER} or @code{REAL} function, the exact type being the result of cross-promoting the
8313 types of all the arguments.
8315 @noindent
8316 @var{A}: @code{INTEGER} or @code{REAL}; scalar; INTENT(IN).
8318 @noindent
8319 @var{P}: @code{INTEGER} or @code{REAL}; scalar; INTENT(IN).
8321 @noindent
8322 Intrinsic groups: (standard FORTRAN 77).
8324 @noindent
8325 Description:
8327 Returns remainder calculated as:
8329 @smallexample
8330 @var{A} - (INT(@var{A} / @var{P}) * @var{P})
8331 @end smallexample
8333 @var{P} must not be zero.
8335 @end ifset
8336 @ifset familyF90
8337 @node Modulo Intrinsic
8338 @subsubsection Modulo Intrinsic
8339 @cindex Modulo intrinsic
8340 @cindex intrinsics, Modulo
8342 This intrinsic is not yet implemented.
8343 The name is, however, reserved as an intrinsic.
8344 Use @samp{EXTERNAL Modulo} to use this name for an
8345 external procedure.
8347 @end ifset
8348 @ifset familyMIL
8349 @node MvBits Intrinsic
8350 @subsubsection MvBits Intrinsic
8351 @cindex MvBits intrinsic
8352 @cindex intrinsics, MvBits
8354 @noindent
8355 @example
8356 CALL MvBits(@var{From}, @var{FromPos}, @var{Len}, @var{TO}, @var{ToPos})
8357 @end example
8359 @noindent
8360 @var{From}: @code{INTEGER}; scalar; INTENT(IN).
8362 @noindent
8363 @var{FromPos}: @code{INTEGER}; scalar; INTENT(IN).
8365 @noindent
8366 @var{Len}: @code{INTEGER}; scalar; INTENT(IN).
8368 @noindent
8369 @var{TO}: @code{INTEGER} with same @samp{KIND=} value as for @var{From}; scalar; INTENT(INOUT).
8371 @noindent
8372 @var{ToPos}: @code{INTEGER}; scalar; INTENT(IN).
8374 @noindent
8375 Intrinsic groups: @code{mil}, @code{f90}, @code{vxt}.
8377 @noindent
8378 Description:
8380 Moves @var{Len} bits from positions @var{FromPos} through
8381 @samp{@var{FromPos}+@var{Len}-1} of @var{From} to positions @var{ToPos} through
8382 @samp{@var{FromPos}+@var{Len}-1} of @var{TO}.  The portion of argument
8383 @var{TO} not affected by the movement of bits is unchanged.  Arguments
8384 @var{From} and @var{TO} are permitted to be the same numeric storage
8385 unit.  The values of @samp{@var{FromPos}+@var{Len}} and
8386 @samp{@var{ToPos}+@var{Len}} must be less than or equal to
8387 @samp{BIT_SIZE(@var{From})}.
8389 @end ifset
8390 @ifset familyF90
8391 @node Nearest Intrinsic
8392 @subsubsection Nearest Intrinsic
8393 @cindex Nearest intrinsic
8394 @cindex intrinsics, Nearest
8396 This intrinsic is not yet implemented.
8397 The name is, however, reserved as an intrinsic.
8398 Use @samp{EXTERNAL Nearest} to use this name for an
8399 external procedure.
8401 @end ifset
8402 @ifset familyF77
8403 @node NInt Intrinsic
8404 @subsubsection NInt Intrinsic
8405 @cindex NInt intrinsic
8406 @cindex intrinsics, NInt
8408 @noindent
8409 @example
8410 NInt(@var{A})
8411 @end example
8413 @noindent
8414 NInt: @code{INTEGER(KIND=1)} function.
8416 @noindent
8417 @var{A}: @code{REAL}; scalar; INTENT(IN).
8419 @noindent
8420 Intrinsic groups: (standard FORTRAN 77).
8422 @noindent
8423 Description:
8425 Returns @var{A} with the fractional portion of its
8426 magnitude eliminated by rounding to the nearest whole
8427 number and with its sign preserved, converted
8428 to type @code{INTEGER(KIND=1)}.
8430 If @var{A} is type @code{COMPLEX}, its real part is
8431 rounded and converted.
8433 A fractional portion exactly equal to
8434 @samp{.5} is rounded to the whole number that
8435 is larger in magnitude.
8436 (Also called ``Fortran round''.)
8438 @xref{Int Intrinsic}, for how to convert, truncate to
8439 whole number.
8441 @xref{ANInt Intrinsic}, for how to round to nearest whole number
8442 without converting.
8444 @end ifset
8445 @ifset familyMIL
8446 @node Not Intrinsic
8447 @subsubsection Not Intrinsic
8448 @cindex Not intrinsic
8449 @cindex intrinsics, Not
8451 @noindent
8452 @example
8453 Not(@var{I})
8454 @end example
8456 @noindent
8457 Not: @code{INTEGER} function, the @samp{KIND=} value of the type being that of argument @var{I}.
8459 @noindent
8460 @var{I}: @code{INTEGER}; scalar; INTENT(IN).
8462 @noindent
8463 Intrinsic groups: @code{mil}, @code{f90}, @code{vxt}.
8465 @noindent
8466 Description:
8468 Returns value resulting from boolean NOT of each bit
8469 in @var{I}.
8471 @end ifset
8472 @ifset familyF2C
8473 @node Or Intrinsic
8474 @subsubsection Or Intrinsic
8475 @cindex Or intrinsic
8476 @cindex intrinsics, Or
8478 @noindent
8479 @example
8480 Or(@var{I}, @var{J})
8481 @end example
8483 @noindent
8484 Or: @code{INTEGER} or @code{LOGICAL} function, the exact type being the result of cross-promoting the
8485 types of all the arguments.
8487 @noindent
8488 @var{I}: @code{INTEGER} or @code{LOGICAL}; scalar; INTENT(IN).
8490 @noindent
8491 @var{J}: @code{INTEGER} or @code{LOGICAL}; scalar; INTENT(IN).
8493 @noindent
8494 Intrinsic groups: @code{f2c}.
8496 @noindent
8497 Description:
8499 Returns value resulting from boolean OR of
8500 pair of bits in each of @var{I} and @var{J}.
8502 @end ifset
8503 @ifset familyF90
8504 @node Pack Intrinsic
8505 @subsubsection Pack Intrinsic
8506 @cindex Pack intrinsic
8507 @cindex intrinsics, Pack
8509 This intrinsic is not yet implemented.
8510 The name is, however, reserved as an intrinsic.
8511 Use @samp{EXTERNAL Pack} to use this name for an
8512 external procedure.
8514 @end ifset
8515 @ifset familyF2U
8516 @node PError Intrinsic
8517 @subsubsection PError Intrinsic
8518 @cindex PError intrinsic
8519 @cindex intrinsics, PError
8521 @noindent
8522 @example
8523 CALL PError(@var{String})
8524 @end example
8526 @noindent
8527 @var{String}: @code{CHARACTER}; scalar; INTENT(IN).
8529 @noindent
8530 Intrinsic groups: @code{unix}.
8532 @noindent
8533 Description:
8535 Prints (on the C @code{stderr} stream) a newline-terminated error
8536 message corresponding to the last system error.
8537 This is prefixed by @var{String}, a colon and a space.
8538 See @code{perror(3)}.
8540 @end ifset
8541 @ifset familyF90
8542 @node Precision Intrinsic
8543 @subsubsection Precision Intrinsic
8544 @cindex Precision intrinsic
8545 @cindex intrinsics, Precision
8547 This intrinsic is not yet implemented.
8548 The name is, however, reserved as an intrinsic.
8549 Use @samp{EXTERNAL Precision} to use this name for an
8550 external procedure.
8552 @node Present Intrinsic
8553 @subsubsection Present Intrinsic
8554 @cindex Present intrinsic
8555 @cindex intrinsics, Present
8557 This intrinsic is not yet implemented.
8558 The name is, however, reserved as an intrinsic.
8559 Use @samp{EXTERNAL Present} to use this name for an
8560 external procedure.
8562 @node Product Intrinsic
8563 @subsubsection Product Intrinsic
8564 @cindex Product intrinsic
8565 @cindex intrinsics, Product
8567 This intrinsic is not yet implemented.
8568 The name is, however, reserved as an intrinsic.
8569 Use @samp{EXTERNAL Product} to use this name for an
8570 external procedure.
8572 @end ifset
8573 @ifset familyVXT
8574 @node QAbs Intrinsic
8575 @subsubsection QAbs Intrinsic
8576 @cindex QAbs intrinsic
8577 @cindex intrinsics, QAbs
8579 This intrinsic is not yet implemented.
8580 The name is, however, reserved as an intrinsic.
8581 Use @samp{EXTERNAL QAbs} to use this name for an
8582 external procedure.
8584 @node QACos Intrinsic
8585 @subsubsection QACos Intrinsic
8586 @cindex QACos intrinsic
8587 @cindex intrinsics, QACos
8589 This intrinsic is not yet implemented.
8590 The name is, however, reserved as an intrinsic.
8591 Use @samp{EXTERNAL QACos} to use this name for an
8592 external procedure.
8594 @node QACosD Intrinsic
8595 @subsubsection QACosD Intrinsic
8596 @cindex QACosD intrinsic
8597 @cindex intrinsics, QACosD
8599 This intrinsic is not yet implemented.
8600 The name is, however, reserved as an intrinsic.
8601 Use @samp{EXTERNAL QACosD} to use this name for an
8602 external procedure.
8604 @node QASin Intrinsic
8605 @subsubsection QASin Intrinsic
8606 @cindex QASin intrinsic
8607 @cindex intrinsics, QASin
8609 This intrinsic is not yet implemented.
8610 The name is, however, reserved as an intrinsic.
8611 Use @samp{EXTERNAL QASin} to use this name for an
8612 external procedure.
8614 @node QASinD Intrinsic
8615 @subsubsection QASinD Intrinsic
8616 @cindex QASinD intrinsic
8617 @cindex intrinsics, QASinD
8619 This intrinsic is not yet implemented.
8620 The name is, however, reserved as an intrinsic.
8621 Use @samp{EXTERNAL QASinD} to use this name for an
8622 external procedure.
8624 @node QATan Intrinsic
8625 @subsubsection QATan Intrinsic
8626 @cindex QATan intrinsic
8627 @cindex intrinsics, QATan
8629 This intrinsic is not yet implemented.
8630 The name is, however, reserved as an intrinsic.
8631 Use @samp{EXTERNAL QATan} to use this name for an
8632 external procedure.
8634 @node QATan2 Intrinsic
8635 @subsubsection QATan2 Intrinsic
8636 @cindex QATan2 intrinsic
8637 @cindex intrinsics, QATan2
8639 This intrinsic is not yet implemented.
8640 The name is, however, reserved as an intrinsic.
8641 Use @samp{EXTERNAL QATan2} to use this name for an
8642 external procedure.
8644 @node QATan2D Intrinsic
8645 @subsubsection QATan2D Intrinsic
8646 @cindex QATan2D intrinsic
8647 @cindex intrinsics, QATan2D
8649 This intrinsic is not yet implemented.
8650 The name is, however, reserved as an intrinsic.
8651 Use @samp{EXTERNAL QATan2D} to use this name for an
8652 external procedure.
8654 @node QATanD Intrinsic
8655 @subsubsection QATanD Intrinsic
8656 @cindex QATanD intrinsic
8657 @cindex intrinsics, QATanD
8659 This intrinsic is not yet implemented.
8660 The name is, however, reserved as an intrinsic.
8661 Use @samp{EXTERNAL QATanD} to use this name for an
8662 external procedure.
8664 @node QCos Intrinsic
8665 @subsubsection QCos Intrinsic
8666 @cindex QCos intrinsic
8667 @cindex intrinsics, QCos
8669 This intrinsic is not yet implemented.
8670 The name is, however, reserved as an intrinsic.
8671 Use @samp{EXTERNAL QCos} to use this name for an
8672 external procedure.
8674 @node QCosD Intrinsic
8675 @subsubsection QCosD Intrinsic
8676 @cindex QCosD intrinsic
8677 @cindex intrinsics, QCosD
8679 This intrinsic is not yet implemented.
8680 The name is, however, reserved as an intrinsic.
8681 Use @samp{EXTERNAL QCosD} to use this name for an
8682 external procedure.
8684 @node QCosH Intrinsic
8685 @subsubsection QCosH Intrinsic
8686 @cindex QCosH intrinsic
8687 @cindex intrinsics, QCosH
8689 This intrinsic is not yet implemented.
8690 The name is, however, reserved as an intrinsic.
8691 Use @samp{EXTERNAL QCosH} to use this name for an
8692 external procedure.
8694 @node QDiM Intrinsic
8695 @subsubsection QDiM Intrinsic
8696 @cindex QDiM intrinsic
8697 @cindex intrinsics, QDiM
8699 This intrinsic is not yet implemented.
8700 The name is, however, reserved as an intrinsic.
8701 Use @samp{EXTERNAL QDiM} to use this name for an
8702 external procedure.
8704 @node QExp Intrinsic
8705 @subsubsection QExp Intrinsic
8706 @cindex QExp intrinsic
8707 @cindex intrinsics, QExp
8709 This intrinsic is not yet implemented.
8710 The name is, however, reserved as an intrinsic.
8711 Use @samp{EXTERNAL QExp} to use this name for an
8712 external procedure.
8714 @node QExt Intrinsic
8715 @subsubsection QExt Intrinsic
8716 @cindex QExt intrinsic
8717 @cindex intrinsics, QExt
8719 This intrinsic is not yet implemented.
8720 The name is, however, reserved as an intrinsic.
8721 Use @samp{EXTERNAL QExt} to use this name for an
8722 external procedure.
8724 @node QExtD Intrinsic
8725 @subsubsection QExtD Intrinsic
8726 @cindex QExtD intrinsic
8727 @cindex intrinsics, QExtD
8729 This intrinsic is not yet implemented.
8730 The name is, however, reserved as an intrinsic.
8731 Use @samp{EXTERNAL QExtD} to use this name for an
8732 external procedure.
8734 @node QFloat Intrinsic
8735 @subsubsection QFloat Intrinsic
8736 @cindex QFloat intrinsic
8737 @cindex intrinsics, QFloat
8739 This intrinsic is not yet implemented.
8740 The name is, however, reserved as an intrinsic.
8741 Use @samp{EXTERNAL QFloat} to use this name for an
8742 external procedure.
8744 @node QInt Intrinsic
8745 @subsubsection QInt Intrinsic
8746 @cindex QInt intrinsic
8747 @cindex intrinsics, QInt
8749 This intrinsic is not yet implemented.
8750 The name is, however, reserved as an intrinsic.
8751 Use @samp{EXTERNAL QInt} to use this name for an
8752 external procedure.
8754 @node QLog Intrinsic
8755 @subsubsection QLog Intrinsic
8756 @cindex QLog intrinsic
8757 @cindex intrinsics, QLog
8759 This intrinsic is not yet implemented.
8760 The name is, however, reserved as an intrinsic.
8761 Use @samp{EXTERNAL QLog} to use this name for an
8762 external procedure.
8764 @node QLog10 Intrinsic
8765 @subsubsection QLog10 Intrinsic
8766 @cindex QLog10 intrinsic
8767 @cindex intrinsics, QLog10
8769 This intrinsic is not yet implemented.
8770 The name is, however, reserved as an intrinsic.
8771 Use @samp{EXTERNAL QLog10} to use this name for an
8772 external procedure.
8774 @node QMax1 Intrinsic
8775 @subsubsection QMax1 Intrinsic
8776 @cindex QMax1 intrinsic
8777 @cindex intrinsics, QMax1
8779 This intrinsic is not yet implemented.
8780 The name is, however, reserved as an intrinsic.
8781 Use @samp{EXTERNAL QMax1} to use this name for an
8782 external procedure.
8784 @node QMin1 Intrinsic
8785 @subsubsection QMin1 Intrinsic
8786 @cindex QMin1 intrinsic
8787 @cindex intrinsics, QMin1
8789 This intrinsic is not yet implemented.
8790 The name is, however, reserved as an intrinsic.
8791 Use @samp{EXTERNAL QMin1} to use this name for an
8792 external procedure.
8794 @node QMod Intrinsic
8795 @subsubsection QMod Intrinsic
8796 @cindex QMod intrinsic
8797 @cindex intrinsics, QMod
8799 This intrinsic is not yet implemented.
8800 The name is, however, reserved as an intrinsic.
8801 Use @samp{EXTERNAL QMod} to use this name for an
8802 external procedure.
8804 @node QNInt Intrinsic
8805 @subsubsection QNInt Intrinsic
8806 @cindex QNInt intrinsic
8807 @cindex intrinsics, QNInt
8809 This intrinsic is not yet implemented.
8810 The name is, however, reserved as an intrinsic.
8811 Use @samp{EXTERNAL QNInt} to use this name for an
8812 external procedure.
8814 @node QSin Intrinsic
8815 @subsubsection QSin Intrinsic
8816 @cindex QSin intrinsic
8817 @cindex intrinsics, QSin
8819 This intrinsic is not yet implemented.
8820 The name is, however, reserved as an intrinsic.
8821 Use @samp{EXTERNAL QSin} to use this name for an
8822 external procedure.
8824 @node QSinD Intrinsic
8825 @subsubsection QSinD Intrinsic
8826 @cindex QSinD intrinsic
8827 @cindex intrinsics, QSinD
8829 This intrinsic is not yet implemented.
8830 The name is, however, reserved as an intrinsic.
8831 Use @samp{EXTERNAL QSinD} to use this name for an
8832 external procedure.
8834 @node QSinH Intrinsic
8835 @subsubsection QSinH Intrinsic
8836 @cindex QSinH intrinsic
8837 @cindex intrinsics, QSinH
8839 This intrinsic is not yet implemented.
8840 The name is, however, reserved as an intrinsic.
8841 Use @samp{EXTERNAL QSinH} to use this name for an
8842 external procedure.
8844 @node QSqRt Intrinsic
8845 @subsubsection QSqRt Intrinsic
8846 @cindex QSqRt intrinsic
8847 @cindex intrinsics, QSqRt
8849 This intrinsic is not yet implemented.
8850 The name is, however, reserved as an intrinsic.
8851 Use @samp{EXTERNAL QSqRt} to use this name for an
8852 external procedure.
8854 @node QTan Intrinsic
8855 @subsubsection QTan Intrinsic
8856 @cindex QTan intrinsic
8857 @cindex intrinsics, QTan
8859 This intrinsic is not yet implemented.
8860 The name is, however, reserved as an intrinsic.
8861 Use @samp{EXTERNAL QTan} to use this name for an
8862 external procedure.
8864 @node QTanD Intrinsic
8865 @subsubsection QTanD Intrinsic
8866 @cindex QTanD intrinsic
8867 @cindex intrinsics, QTanD
8869 This intrinsic is not yet implemented.
8870 The name is, however, reserved as an intrinsic.
8871 Use @samp{EXTERNAL QTanD} to use this name for an
8872 external procedure.
8874 @node QTanH Intrinsic
8875 @subsubsection QTanH Intrinsic
8876 @cindex QTanH intrinsic
8877 @cindex intrinsics, QTanH
8879 This intrinsic is not yet implemented.
8880 The name is, however, reserved as an intrinsic.
8881 Use @samp{EXTERNAL QTanH} to use this name for an
8882 external procedure.
8884 @end ifset
8885 @ifset familyF90
8886 @node Radix Intrinsic
8887 @subsubsection Radix Intrinsic
8888 @cindex Radix intrinsic
8889 @cindex intrinsics, Radix
8891 This intrinsic is not yet implemented.
8892 The name is, however, reserved as an intrinsic.
8893 Use @samp{EXTERNAL Radix} to use this name for an
8894 external procedure.
8896 @end ifset
8897 @ifset familyF2U
8898 @node Rand Intrinsic
8899 @subsubsection Rand Intrinsic
8900 @cindex Rand intrinsic
8901 @cindex intrinsics, Rand
8903 @noindent
8904 @example
8905 Rand(@var{Flag})
8906 @end example
8908 @noindent
8909 Rand: @code{REAL(KIND=1)} function.
8911 @noindent
8912 @var{Flag}: @code{INTEGER}; OPTIONAL; scalar; INTENT(IN).
8914 @noindent
8915 Intrinsic groups: @code{unix}.
8917 @noindent
8918 Description:
8920 Returns a uniform quasi-random number between 0 and 1.
8921 If @var{Flag} is 0, the next number in sequence is returned; if
8922 @var{Flag} is 1, the generator is restarted by calling @samp{srand(0)};
8923 if @var{Flag} has any other value, it is used as a new seed with
8924 @code{srand}.
8926 @xref{SRand Intrinsic}.
8928 @emph{Note:} As typically implemented (by the routine of the same
8929 name in the C library), this random number generator is a very poor
8930 one, though the BSD and GNU libraries provide a much better
8931 implementation than the `traditional' one.
8932 On a different system you
8933 almost certainly want to use something better.
8935 @end ifset
8936 @ifset familyF90
8937 @node Random_Number Intrinsic
8938 @subsubsection Random_Number Intrinsic
8939 @cindex Random_Number intrinsic
8940 @cindex intrinsics, Random_Number
8942 This intrinsic is not yet implemented.
8943 The name is, however, reserved as an intrinsic.
8944 Use @samp{EXTERNAL Random_Number} to use this name for an
8945 external procedure.
8947 @node Random_Seed Intrinsic
8948 @subsubsection Random_Seed Intrinsic
8949 @cindex Random_Seed intrinsic
8950 @cindex intrinsics, Random_Seed
8952 This intrinsic is not yet implemented.
8953 The name is, however, reserved as an intrinsic.
8954 Use @samp{EXTERNAL Random_Seed} to use this name for an
8955 external procedure.
8957 @node Range Intrinsic
8958 @subsubsection Range Intrinsic
8959 @cindex Range intrinsic
8960 @cindex intrinsics, Range
8962 This intrinsic is not yet implemented.
8963 The name is, however, reserved as an intrinsic.
8964 Use @samp{EXTERNAL Range} to use this name for an
8965 external procedure.
8967 @end ifset
8968 @ifset familyF77
8969 @node Real Intrinsic
8970 @subsubsection Real Intrinsic
8971 @cindex Real intrinsic
8972 @cindex intrinsics, Real
8974 @noindent
8975 @example
8976 Real(@var{A})
8977 @end example
8979 @noindent
8980 Real: @code{REAL} function.
8981 The exact type is @samp{REAL(KIND=1)} when argument @var{A} is
8982 any type other than @code{COMPLEX}, or when it is @code{COMPLEX(KIND=1)}.
8983 When @var{A} is any @code{COMPLEX} type other than @code{COMPLEX(KIND=1)},
8984 this intrinsic is valid only when used as the argument to
8985 @code{REAL()}, as explained below.
8987 @noindent
8988 @var{A}: @code{INTEGER}, @code{REAL}, or @code{COMPLEX}; scalar; INTENT(IN).
8990 @noindent
8991 Intrinsic groups: (standard FORTRAN 77).
8993 @noindent
8994 Description:
8996 Converts @var{A} to @code{REAL(KIND=1)}.
8998 Use of @code{REAL()} with a @code{COMPLEX} argument
8999 (other than @code{COMPLEX(KIND=1)}) is restricted to the following case:
9001 @example
9002 REAL(REAL(A))
9003 @end example
9005 @noindent
9006 This expression converts the real part of A to
9007 @code{REAL(KIND=1)}.
9009 @xref{RealPart Intrinsic}, for information on a GNU Fortran
9010 intrinsic that extracts the real part of an arbitrary
9011 @code{COMPLEX} value.
9013 @xref{REAL() and AIMAG() of Complex}, for more information.
9015 @end ifset
9016 @ifset familyGNU
9017 @node RealPart Intrinsic
9018 @subsubsection RealPart Intrinsic
9019 @cindex RealPart intrinsic
9020 @cindex intrinsics, RealPart
9022 @noindent
9023 @example
9024 RealPart(@var{Z})
9025 @end example
9027 @noindent
9028 RealPart: @code{REAL} function, the @samp{KIND=} value of the type being that of argument @var{Z}.
9030 @noindent
9031 @var{Z}: @code{COMPLEX}; scalar; INTENT(IN).
9033 @noindent
9034 Intrinsic groups: @code{gnu}.
9036 @noindent
9037 Description:
9039 The real part of @var{Z} is returned, without conversion.
9041 @emph{Note:} The way to do this in standard Fortran 90
9042 is @samp{REAL(@var{Z})}.
9043 However, when, for example, @var{Z} is @code{COMPLEX(KIND=2)},
9044 @samp{REAL(@var{Z})} means something different for some compilers
9045 that are not true Fortran 90 compilers but offer some
9046 extensions standardized by Fortran 90 (such as the
9047 @code{DOUBLE COMPLEX} type, also known as @code{COMPLEX(KIND=2)}).
9049 The advantage of @code{REALPART()} is that, while not necessarily
9050 more or less portable than @code{REAL()}, it is more likely to
9051 cause a compiler that doesn't support it to produce a diagnostic
9052 than generate incorrect code.
9054 @xref{REAL() and AIMAG() of Complex}, for more information.
9056 @end ifset
9057 @ifset familyF2U
9058 @node Rename Intrinsic (subroutine)
9059 @subsubsection Rename Intrinsic (subroutine)
9060 @cindex Rename intrinsic
9061 @cindex intrinsics, Rename
9063 @noindent
9064 @example
9065 CALL Rename(@var{Path1}, @var{Path2}, @var{Status})
9066 @end example
9068 @noindent
9069 @var{Path1}: @code{CHARACTER}; scalar; INTENT(IN).
9071 @noindent
9072 @var{Path2}: @code{CHARACTER}; scalar; INTENT(IN).
9074 @noindent
9075 @var{Status}: @code{INTEGER(KIND=1)}; OPTIONAL; scalar; INTENT(OUT).
9077 @noindent
9078 Intrinsic groups: @code{unix}.
9080 @noindent
9081 Description:
9083 Renames the file @var{Path1} to @var{Path2}.
9084 A null character (@samp{CHAR(0)}) marks the end of
9085 the names in @var{Path1} and @var{Path2}---otherwise,
9086 trailing blanks in @var{Path1} and @var{Path2} are ignored.
9087 See @code{rename(2)}.
9088 If the @var{Status} argument is supplied, it contains
9089 0 on success or a nonzero error code upon return.
9091 Some non-GNU implementations of Fortran provide this intrinsic as
9092 only a function, not as a subroutine, or do not support the
9093 (optional) @var{Status} argument.
9095 For information on other intrinsics with the same name:
9096 @xref{Rename Intrinsic (function)}.
9098 @end ifset
9099 @ifset familyBADU77
9100 @node Rename Intrinsic (function)
9101 @subsubsection Rename Intrinsic (function)
9102 @cindex Rename intrinsic
9103 @cindex intrinsics, Rename
9105 @noindent
9106 @example
9107 Rename(@var{Path1}, @var{Path2})
9108 @end example
9110 @noindent
9111 Rename: @code{INTEGER(KIND=1)} function.
9113 @noindent
9114 @var{Path1}: @code{CHARACTER}; scalar; INTENT(IN).
9116 @noindent
9117 @var{Path2}: @code{CHARACTER}; scalar; INTENT(IN).
9119 @noindent
9120 Intrinsic groups: @code{badu77}.
9122 @noindent
9123 Description:
9125 Renames the file @var{Path1} to @var{Path2}.
9126 A null character (@samp{CHAR(0)}) marks the end of
9127 the names in @var{Path1} and @var{Path2}---otherwise,
9128 trailing blanks in @var{Path1} and @var{Path2} are ignored.
9129 See @code{rename(2)}.
9130 Returns 0 on success or a nonzero error code.
9132 Due to the side effects performed by this intrinsic, the function
9133 form is not recommended.
9135 For information on other intrinsics with the same name:
9136 @xref{Rename Intrinsic (subroutine)}.
9138 @end ifset
9139 @ifset familyF90
9140 @node Repeat Intrinsic
9141 @subsubsection Repeat Intrinsic
9142 @cindex Repeat intrinsic
9143 @cindex intrinsics, Repeat
9145 This intrinsic is not yet implemented.
9146 The name is, however, reserved as an intrinsic.
9147 Use @samp{EXTERNAL Repeat} to use this name for an
9148 external procedure.
9150 @node Reshape Intrinsic
9151 @subsubsection Reshape Intrinsic
9152 @cindex Reshape intrinsic
9153 @cindex intrinsics, Reshape
9155 This intrinsic is not yet implemented.
9156 The name is, however, reserved as an intrinsic.
9157 Use @samp{EXTERNAL Reshape} to use this name for an
9158 external procedure.
9160 @node RRSpacing Intrinsic
9161 @subsubsection RRSpacing Intrinsic
9162 @cindex RRSpacing intrinsic
9163 @cindex intrinsics, RRSpacing
9165 This intrinsic is not yet implemented.
9166 The name is, however, reserved as an intrinsic.
9167 Use @samp{EXTERNAL RRSpacing} to use this name for an
9168 external procedure.
9170 @end ifset
9171 @ifset familyF2C
9172 @node RShift Intrinsic
9173 @subsubsection RShift Intrinsic
9174 @cindex RShift intrinsic
9175 @cindex intrinsics, RShift
9177 @noindent
9178 @example
9179 RShift(@var{I}, @var{Shift})
9180 @end example
9182 @noindent
9183 RShift: @code{INTEGER} function, the @samp{KIND=} value of the type being that of argument @var{I}.
9185 @noindent
9186 @var{I}: @code{INTEGER}; scalar; INTENT(IN).
9188 @noindent
9189 @var{Shift}: @code{INTEGER}; scalar; INTENT(IN).
9191 @noindent
9192 Intrinsic groups: @code{f2c}.
9194 @noindent
9195 Description:
9197 Returns @var{I} shifted to the right
9198 @var{Shift} bits.
9200 Although similar to the expression
9201 @samp{@var{I}/(2**@var{Shift})}, there
9202 are important differences.
9203 For example, the sign of the result is
9204 undefined.
9206 Currently this intrinsic is defined assuming
9207 the underlying representation of @var{I}
9208 is as a two's-complement integer.
9209 It is unclear at this point whether that
9210 definition will apply when a different
9211 representation is involved.
9213 @xref{RShift Intrinsic}, for the inverse of this function.
9215 @xref{IShft Intrinsic}, for information
9216 on a more widely available right-shifting
9217 intrinsic that is also more precisely defined.
9219 @end ifset
9220 @ifset familyF90
9221 @node Scale Intrinsic
9222 @subsubsection Scale Intrinsic
9223 @cindex Scale intrinsic
9224 @cindex intrinsics, Scale
9226 This intrinsic is not yet implemented.
9227 The name is, however, reserved as an intrinsic.
9228 Use @samp{EXTERNAL Scale} to use this name for an
9229 external procedure.
9231 @node Scan Intrinsic
9232 @subsubsection Scan Intrinsic
9233 @cindex Scan intrinsic
9234 @cindex intrinsics, Scan
9236 This intrinsic is not yet implemented.
9237 The name is, however, reserved as an intrinsic.
9238 Use @samp{EXTERNAL Scan} to use this name for an
9239 external procedure.
9241 @end ifset
9242 @ifset familyVXT
9243 @node Secnds Intrinsic
9244 @subsubsection Secnds Intrinsic
9245 @cindex Secnds intrinsic
9246 @cindex intrinsics, Secnds
9248 @noindent
9249 @example
9250 Secnds(@var{T})
9251 @end example
9253 @noindent
9254 Secnds: @code{REAL(KIND=1)} function.
9256 @noindent
9257 @var{T}: @code{REAL(KIND=1)}; scalar; INTENT(IN).
9259 @noindent
9260 Intrinsic groups: @code{vxt}.
9262 @noindent
9263 Description:
9265 Returns the local time in seconds since midnight minus the value
9266 @var{T}.
9268 @cindex wraparound, timings
9269 @cindex limits, timings
9270 This values returned by this intrinsic
9271 become numerically less than previous values
9272 (they wrap around) during a single run of the
9273 compiler program, under normal circumstances
9274 (such as running through the midnight hour).
9276 @end ifset
9277 @ifset familyF2U
9278 @node Second Intrinsic (function)
9279 @subsubsection Second Intrinsic (function)
9280 @cindex Second intrinsic
9281 @cindex intrinsics, Second
9283 @noindent
9284 @example
9285 Second()
9286 @end example
9288 @noindent
9289 Second: @code{REAL(KIND=1)} function.
9291 @noindent
9292 Intrinsic groups: @code{unix}.
9294 @noindent
9295 Description:
9297 Returns the process's runtime in seconds---the same value as the
9298 UNIX function @code{etime} returns.
9300 @cindex wraparound, timings
9301 @cindex limits, timings
9302 On some systems, the underlying timings are represented
9303 using types with sufficiently small limits that overflows
9304 (wraparounds) are possible, such as 32-bit types.
9305 Therefore, the values returned by this intrinsic
9306 might be, or become, negative,
9307 or numerically less than previous values,
9308 during a single run of the compiled program.
9310 For information on other intrinsics with the same name:
9311 @xref{Second Intrinsic (subroutine)}.
9313 @node Second Intrinsic (subroutine)
9314 @subsubsection Second Intrinsic (subroutine)
9315 @cindex Second intrinsic
9316 @cindex intrinsics, Second
9318 @noindent
9319 @example
9320 CALL Second(@var{Seconds})
9321 @end example
9323 @noindent
9324 @var{Seconds}: @code{REAL}; scalar; INTENT(OUT).
9326 @noindent
9327 Intrinsic groups: @code{unix}.
9329 @noindent
9330 Description:
9332 Returns the process's runtime in seconds in @var{Seconds}---the same value
9333 as the UNIX function @code{etime} returns.
9335 @cindex wraparound, timings
9336 @cindex limits, timings
9337 On some systems, the underlying timings are represented
9338 using types with sufficiently small limits that overflows
9339 (wraparounds) are possible, such as 32-bit types.
9340 Therefore, the values returned by this intrinsic
9341 might be, or become, negative,
9342 or numerically less than previous values,
9343 during a single run of the compiled program.
9345 This routine is known from Cray Fortran.  @xref{CPU_Time Intrinsic},
9346 for a standard equivalent.
9348 For information on other intrinsics with the same name:
9349 @xref{Second Intrinsic (function)}.
9351 @end ifset
9352 @ifset familyF90
9353 @node Selected_Int_Kind Intrinsic
9354 @subsubsection Selected_Int_Kind Intrinsic
9355 @cindex Selected_Int_Kind intrinsic
9356 @cindex intrinsics, Selected_Int_Kind
9358 This intrinsic is not yet implemented.
9359 The name is, however, reserved as an intrinsic.
9360 Use @samp{EXTERNAL Selected_Int_Kind} to use this name for an
9361 external procedure.
9363 @node Selected_Real_Kind Intrinsic
9364 @subsubsection Selected_Real_Kind Intrinsic
9365 @cindex Selected_Real_Kind intrinsic
9366 @cindex intrinsics, Selected_Real_Kind
9368 This intrinsic is not yet implemented.
9369 The name is, however, reserved as an intrinsic.
9370 Use @samp{EXTERNAL Selected_Real_Kind} to use this name for an
9371 external procedure.
9373 @node Set_Exponent Intrinsic
9374 @subsubsection Set_Exponent Intrinsic
9375 @cindex Set_Exponent intrinsic
9376 @cindex intrinsics, Set_Exponent
9378 This intrinsic is not yet implemented.
9379 The name is, however, reserved as an intrinsic.
9380 Use @samp{EXTERNAL Set_Exponent} to use this name for an
9381 external procedure.
9383 @node Shape Intrinsic
9384 @subsubsection Shape Intrinsic
9385 @cindex Shape intrinsic
9386 @cindex intrinsics, Shape
9388 This intrinsic is not yet implemented.
9389 The name is, however, reserved as an intrinsic.
9390 Use @samp{EXTERNAL Shape} to use this name for an
9391 external procedure.
9393 @end ifset
9394 @ifset familyF2U
9395 @node Short Intrinsic
9396 @subsubsection Short Intrinsic
9397 @cindex Short intrinsic
9398 @cindex intrinsics, Short
9400 @noindent
9401 @example
9402 Short(@var{A})
9403 @end example
9405 @noindent
9406 Short: @code{INTEGER(KIND=6)} function.
9408 @noindent
9409 @var{A}: @code{INTEGER}; scalar; INTENT(IN).
9411 @noindent
9412 Intrinsic groups: @code{unix}.
9414 @noindent
9415 Description:
9417 Returns @var{A} with the fractional portion of its
9418 magnitude truncated and its sign preserved, converted
9419 to type @code{INTEGER(KIND=6)}.
9421 If @var{A} is type @code{COMPLEX}, its real part
9422 is truncated and converted, and its imaginary part is disregarded.
9424 @xref{Int Intrinsic}.
9426 The precise meaning of this intrinsic might change
9427 in a future version of the GNU Fortran language,
9428 as more is learned about how it is used.
9430 @end ifset
9431 @ifset familyF77
9432 @node Sign Intrinsic
9433 @subsubsection Sign Intrinsic
9434 @cindex Sign intrinsic
9435 @cindex intrinsics, Sign
9437 @noindent
9438 @example
9439 Sign(@var{A}, @var{B})
9440 @end example
9442 @noindent
9443 Sign: @code{INTEGER} or @code{REAL} function, the exact type being the result of cross-promoting the
9444 types of all the arguments.
9446 @noindent
9447 @var{A}: @code{INTEGER} or @code{REAL}; scalar; INTENT(IN).
9449 @noindent
9450 @var{B}: @code{INTEGER} or @code{REAL}; scalar; INTENT(IN).
9452 @noindent
9453 Intrinsic groups: (standard FORTRAN 77).
9455 @noindent
9456 Description:
9458 Returns @samp{ABS(@var{A})*@var{s}}, where
9459 @var{s} is +1 if @samp{@var{B}.GE.0},
9460 -1 otherwise.
9462 @xref{Abs Intrinsic}, for the function that returns
9463 the magnitude of a value.
9465 @end ifset
9466 @ifset familyF2U
9467 @node Signal Intrinsic (subroutine)
9468 @subsubsection Signal Intrinsic (subroutine)
9469 @cindex Signal intrinsic
9470 @cindex intrinsics, Signal
9472 @noindent
9473 @example
9474 CALL Signal(@var{Number}, @var{Handler}, @var{Status})
9475 @end example
9477 @noindent
9478 @var{Number}: @code{INTEGER}; scalar; INTENT(IN).
9480 @noindent
9481 @var{Handler}: Signal handler (@code{INTEGER FUNCTION} or @code{SUBROUTINE})
9482 or dummy/global @code{INTEGER(KIND=1)} scalar.
9484 @noindent
9485 @var{Status}: @code{INTEGER(KIND=7)}; OPTIONAL; scalar; INTENT(OUT).
9487 @noindent
9488 Intrinsic groups: @code{unix}.
9490 @noindent
9491 Description:
9493 If @var{Handler} is a an @code{EXTERNAL} routine, arranges for it to be
9494 invoked with a single integer argument (of system-dependent length)
9495 when signal @var{Number} occurs.
9496 If @var{Handler} is an integer, it can be
9497 used to turn off handling of signal @var{Number} or revert to its default
9498 action.
9499 See @code{signal(2)}.
9501 Note that @var{Handler} will be called using C conventions,
9502 so the value of its argument in Fortran terms
9503 Fortran terms is obtained by applying @code{%LOC()} (or @var{LOC()}) to it.
9505 The value returned by @code{signal(2)} is written to @var{Status}, if
9506 that argument is supplied.
9507 Otherwise the return value is ignored.
9509 Some non-GNU implementations of Fortran provide this intrinsic as
9510 only a function, not as a subroutine, or do not support the
9511 (optional) @var{Status} argument.
9513 @emph{Warning:} Use of the @code{libf2c} run-time library function
9514 @samp{signal_} directly
9515 (such as via @samp{EXTERNAL SIGNAL})
9516 requires use of the @code{%VAL()} construct
9517 to pass an @code{INTEGER} value
9518 (such as @samp{SIG_IGN} or @samp{SIG_DFL})
9519 for the @var{Handler} argument.
9521 However, while @samp{CALL SIGNAL(@var{signum}, %VAL(SIG_IGN))}
9522 works when @samp{SIGNAL} is treated as an external procedure
9523 (and resolves, at link time, to @code{libf2c}'s @samp{signal_} routine),
9524 this construct is not valid when @samp{SIGNAL} is recognized
9525 as the intrinsic of that name.
9527 Therefore, for maximum portability and reliability,
9528 code such references to the @samp{SIGNAL} facility as follows:
9530 @smallexample
9531 INTRINSIC SIGNAL
9532 @dots{}
9533 CALL SIGNAL(@var{signum}, SIG_IGN)
9534 @end smallexample
9536 @code{g77} will compile such a call correctly,
9537 while other compilers will generally either do so as well
9538 or reject the @samp{INTRINSIC SIGNAL} statement via a diagnostic,
9539 allowing you to take appropriate action.
9541 For information on other intrinsics with the same name:
9542 @xref{Signal Intrinsic (function)}.
9544 @end ifset
9545 @ifset familyBADU77
9546 @node Signal Intrinsic (function)
9547 @subsubsection Signal Intrinsic (function)
9548 @cindex Signal intrinsic
9549 @cindex intrinsics, Signal
9551 @noindent
9552 @example
9553 Signal(@var{Number}, @var{Handler})
9554 @end example
9556 @noindent
9557 Signal: @code{INTEGER(KIND=7)} function.
9559 @noindent
9560 @var{Number}: @code{INTEGER}; scalar; INTENT(IN).
9562 @noindent
9563 @var{Handler}: Signal handler (@code{INTEGER FUNCTION} or @code{SUBROUTINE})
9564 or dummy/global @code{INTEGER(KIND=1)} scalar.
9566 @noindent
9567 Intrinsic groups: @code{badu77}.
9569 @noindent
9570 Description:
9572 If @var{Handler} is a an @code{EXTERNAL} routine, arranges for it to be
9573 invoked with a single integer argument (of system-dependent length)
9574 when signal @var{Number} occurs.
9575 If @var{Handler} is an integer, it can be
9576 used to turn off handling of signal @var{Number} or revert to its default
9577 action.
9578 See @code{signal(2)}.
9580 Note that @var{Handler} will be called using C conventions,
9581 so the value of its argument in Fortran terms
9582 is obtained by applying @code{%LOC()} (or @var{LOC()}) to it.
9584 The value returned by @code{signal(2)} is returned.
9586 Due to the side effects performed by this intrinsic, the function
9587 form is not recommended.
9589 @emph{Warning:} If the returned value is stored in
9590 an @code{INTEGER(KIND=1)} (default @code{INTEGER}) argument,
9591 truncation of the original return value occurs on some systems
9592 (such as Alphas, which have 64-bit pointers but 32-bit default integers),
9593 with no warning issued by @code{g77} under normal circumstances.
9595 Therefore, the following code fragment might silently fail on
9596 some systems:
9598 @smallexample
9599 INTEGER RTN
9600 EXTERNAL MYHNDL
9601 RTN = SIGNAL(@var{signum}, MYHNDL)
9602 @dots{}
9603 ! Restore original handler:
9604 RTN = SIGNAL(@var{signum}, RTN)
9605 @end smallexample
9607 The reason for the failure is that @samp{RTN} might not hold
9608 all the information on the original handler for the signal,
9609 thus restoring an invalid handler.
9610 This bug could manifest itself as a spurious run-time failure
9611 at an arbitrary point later during the program's execution,
9612 for example.
9614 @emph{Warning:} Use of the @code{libf2c} run-time library function
9615 @samp{signal_} directly
9616 (such as via @samp{EXTERNAL SIGNAL})
9617 requires use of the @code{%VAL()} construct
9618 to pass an @code{INTEGER} value
9619 (such as @samp{SIG_IGN} or @samp{SIG_DFL})
9620 for the @var{Handler} argument.
9622 However, while @samp{RTN = SIGNAL(@var{signum}, %VAL(SIG_IGN))}
9623 works when @samp{SIGNAL} is treated as an external procedure
9624 (and resolves, at link time, to @code{libf2c}'s @samp{signal_} routine),
9625 this construct is not valid when @samp{SIGNAL} is recognized
9626 as the intrinsic of that name.
9628 Therefore, for maximum portability and reliability,
9629 code such references to the @samp{SIGNAL} facility as follows:
9631 @smallexample
9632 INTRINSIC SIGNAL
9633 @dots{}
9634 RTN = SIGNAL(@var{signum}, SIG_IGN)
9635 @end smallexample
9637 @code{g77} will compile such a call correctly,
9638 while other compilers will generally either do so as well
9639 or reject the @samp{INTRINSIC SIGNAL} statement via a diagnostic,
9640 allowing you to take appropriate action.
9642 For information on other intrinsics with the same name:
9643 @xref{Signal Intrinsic (subroutine)}.
9645 @end ifset
9646 @ifset familyF77
9647 @node Sin Intrinsic
9648 @subsubsection Sin Intrinsic
9649 @cindex Sin intrinsic
9650 @cindex intrinsics, Sin
9652 @noindent
9653 @example
9654 Sin(@var{X})
9655 @end example
9657 @noindent
9658 Sin: @code{REAL} or @code{COMPLEX} function, the exact type being that of argument @var{X}.
9660 @noindent
9661 @var{X}: @code{REAL} or @code{COMPLEX}; scalar; INTENT(IN).
9663 @noindent
9664 Intrinsic groups: (standard FORTRAN 77).
9666 @noindent
9667 Description:
9669 Returns the sine of @var{X}, an angle measured
9670 in radians.
9672 @xref{ASin Intrinsic}, for the inverse of this function.
9674 @end ifset
9675 @ifset familyVXT
9676 @node SinD Intrinsic
9677 @subsubsection SinD Intrinsic
9678 @cindex SinD intrinsic
9679 @cindex intrinsics, SinD
9681 This intrinsic is not yet implemented.
9682 The name is, however, reserved as an intrinsic.
9683 Use @samp{EXTERNAL SinD} to use this name for an
9684 external procedure.
9686 @end ifset
9687 @ifset familyF77
9688 @node SinH Intrinsic
9689 @subsubsection SinH Intrinsic
9690 @cindex SinH intrinsic
9691 @cindex intrinsics, SinH
9693 @noindent
9694 @example
9695 SinH(@var{X})
9696 @end example
9698 @noindent
9699 SinH: @code{REAL} function, the @samp{KIND=} value of the type being that of argument @var{X}.
9701 @noindent
9702 @var{X}: @code{REAL}; scalar; INTENT(IN).
9704 @noindent
9705 Intrinsic groups: (standard FORTRAN 77).
9707 @noindent
9708 Description:
9710 Returns the hyperbolic sine of @var{X}.
9712 @end ifset
9713 @ifset familyF2U
9714 @node Sleep Intrinsic
9715 @subsubsection Sleep Intrinsic
9716 @cindex Sleep intrinsic
9717 @cindex intrinsics, Sleep
9719 @noindent
9720 @example
9721 CALL Sleep(@var{Seconds})
9722 @end example
9724 @noindent
9725 @var{Seconds}: @code{INTEGER(KIND=1)}; scalar; INTENT(IN).
9727 @noindent
9728 Intrinsic groups: @code{unix}.
9730 @noindent
9731 Description:
9733 Causes the process to pause for @var{Seconds} seconds.
9734 See @code{sleep(2)}.
9736 @end ifset
9737 @ifset familyF77
9738 @node Sngl Intrinsic
9739 @subsubsection Sngl Intrinsic
9740 @cindex Sngl intrinsic
9741 @cindex intrinsics, Sngl
9743 @noindent
9744 @example
9745 Sngl(@var{A})
9746 @end example
9748 @noindent
9749 Sngl: @code{REAL(KIND=1)} function.
9751 @noindent
9752 @var{A}: @code{REAL(KIND=2)}; scalar; INTENT(IN).
9754 @noindent
9755 Intrinsic groups: (standard FORTRAN 77).
9757 @noindent
9758 Description:
9760 Archaic form of @code{REAL()} that is specific
9761 to one type for @var{A}.
9762 @xref{Real Intrinsic}.
9764 @end ifset
9765 @ifset familyVXT
9766 @node SnglQ Intrinsic
9767 @subsubsection SnglQ Intrinsic
9768 @cindex SnglQ intrinsic
9769 @cindex intrinsics, SnglQ
9771 This intrinsic is not yet implemented.
9772 The name is, however, reserved as an intrinsic.
9773 Use @samp{EXTERNAL SnglQ} to use this name for an
9774 external procedure.
9776 @end ifset
9777 @ifset familyF90
9778 @node Spacing Intrinsic
9779 @subsubsection Spacing Intrinsic
9780 @cindex Spacing intrinsic
9781 @cindex intrinsics, Spacing
9783 This intrinsic is not yet implemented.
9784 The name is, however, reserved as an intrinsic.
9785 Use @samp{EXTERNAL Spacing} to use this name for an
9786 external procedure.
9788 @node Spread Intrinsic
9789 @subsubsection Spread Intrinsic
9790 @cindex Spread intrinsic
9791 @cindex intrinsics, Spread
9793 This intrinsic is not yet implemented.
9794 The name is, however, reserved as an intrinsic.
9795 Use @samp{EXTERNAL Spread} to use this name for an
9796 external procedure.
9798 @end ifset
9799 @ifset familyF77
9800 @node SqRt Intrinsic
9801 @subsubsection SqRt Intrinsic
9802 @cindex SqRt intrinsic
9803 @cindex intrinsics, SqRt
9805 @noindent
9806 @example
9807 SqRt(@var{X})
9808 @end example
9810 @noindent
9811 SqRt: @code{REAL} or @code{COMPLEX} function, the exact type being that of argument @var{X}.
9813 @noindent
9814 @var{X}: @code{REAL} or @code{COMPLEX}; scalar; INTENT(IN).
9816 @noindent
9817 Intrinsic groups: (standard FORTRAN 77).
9819 @noindent
9820 Description:
9822 Returns the square root of @var{X}, which must
9823 not be negative.
9825 To calculate and represent the square root of a negative
9826 number, complex arithmetic must be used.
9827 For example, @samp{SQRT(COMPLEX(@var{X}))}.
9829 The inverse of this function is @samp{SQRT(@var{X}) * SQRT(@var{X})}.
9831 @end ifset
9832 @ifset familyF2U
9833 @node SRand Intrinsic
9834 @subsubsection SRand Intrinsic
9835 @cindex SRand intrinsic
9836 @cindex intrinsics, SRand
9838 @noindent
9839 @example
9840 CALL SRand(@var{Seed})
9841 @end example
9843 @noindent
9844 @var{Seed}: @code{INTEGER}; scalar; INTENT(IN).
9846 @noindent
9847 Intrinsic groups: @code{unix}.
9849 @noindent
9850 Description:
9852 Reinitializes the generator with the seed in @var{Seed}.
9853 @xref{IRand Intrinsic}.
9854 @xref{Rand Intrinsic}.
9856 @node Stat Intrinsic (subroutine)
9857 @subsubsection Stat Intrinsic (subroutine)
9858 @cindex Stat intrinsic
9859 @cindex intrinsics, Stat
9861 @noindent
9862 @example
9863 CALL Stat(@var{File}, @var{SArray}, @var{Status})
9864 @end example
9866 @noindent
9867 @var{File}: @code{CHARACTER}; scalar; INTENT(IN).
9869 @noindent
9870 @var{SArray}: @code{INTEGER(KIND=1)}; DIMENSION(13); INTENT(OUT).
9872 @noindent
9873 @var{Status}: @code{INTEGER(KIND=1)}; OPTIONAL; scalar; INTENT(OUT).
9875 @noindent
9876 Intrinsic groups: @code{unix}.
9878 @noindent
9879 Description:
9881 Obtains data about the given file @var{File} and places them in the array
9882 @var{SArray}.
9883 A null character (@samp{CHAR(0)}) marks the end of
9884 the name in @var{File}---otherwise,
9885 trailing blanks in @var{File} are ignored.
9886 The values in this array are extracted from the
9887 @code{stat} structure as returned by @code{fstat(2)} q.v., as follows:
9889 @enumerate
9890 @item
9891 Device ID
9893 @item
9894 Inode number
9896 @item
9897 File mode
9899 @item
9900 Number of links
9902 @item
9903 Owner's uid
9905 @item
9906 Owner's gid
9908 @item
9909 ID of device containing directory entry for file
9910 (0 if not available)
9912 @item
9913 File size (bytes)
9915 @item
9916 Last access time
9918 @item
9919 Last modification time
9921 @item
9922 Last file status change time
9924 @item
9925 Preferred I/O block size (-1 if not available)
9927 @item
9928 Number of blocks allocated (-1 if not available)
9929 @end enumerate
9931 Not all these elements are relevant on all systems.
9932 If an element is not relevant, it is returned as 0.
9934 If the @var{Status} argument is supplied, it contains
9935 0 on success or a nonzero error code upon return.
9937 Some non-GNU implementations of Fortran provide this intrinsic as
9938 only a function, not as a subroutine, or do not support the
9939 (optional) @var{Status} argument.
9941 For information on other intrinsics with the same name:
9942 @xref{Stat Intrinsic (function)}.
9944 @node Stat Intrinsic (function)
9945 @subsubsection Stat Intrinsic (function)
9946 @cindex Stat intrinsic
9947 @cindex intrinsics, Stat
9949 @noindent
9950 @example
9951 Stat(@var{File}, @var{SArray})
9952 @end example
9954 @noindent
9955 Stat: @code{INTEGER(KIND=1)} function.
9957 @noindent
9958 @var{File}: @code{CHARACTER}; scalar; INTENT(IN).
9960 @noindent
9961 @var{SArray}: @code{INTEGER(KIND=1)}; DIMENSION(13); INTENT(OUT).
9963 @noindent
9964 Intrinsic groups: @code{unix}.
9966 @noindent
9967 Description:
9969 Obtains data about the given file @var{File} and places them in the array
9970 @var{SArray}.
9971 A null character (@samp{CHAR(0)}) marks the end of
9972 the name in @var{File}---otherwise,
9973 trailing blanks in @var{File} are ignored.
9974 The values in this array are extracted from the
9975 @code{stat} structure as returned by @code{fstat(2)} q.v., as follows:
9977 @enumerate
9978 @item
9979 Device ID
9981 @item
9982 Inode number
9984 @item
9985 File mode
9987 @item
9988 Number of links
9990 @item
9991 Owner's uid
9993 @item
9994 Owner's gid
9996 @item
9997 ID of device containing directory entry for file
9998 (0 if not available)
10000 @item
10001 File size (bytes)
10003 @item
10004 Last access time
10006 @item
10007 Last modification time
10009 @item
10010 Last file status change time
10012 @item
10013 Preferred I/O block size (-1 if not available)
10015 @item
10016 Number of blocks allocated (-1 if not available)
10017 @end enumerate
10019 Not all these elements are relevant on all systems.
10020 If an element is not relevant, it is returned as 0.
10022 Returns 0 on success or a nonzero error code.
10024 For information on other intrinsics with the same name:
10025 @xref{Stat Intrinsic (subroutine)}.
10027 @end ifset
10028 @ifset familyF90
10029 @node Sum Intrinsic
10030 @subsubsection Sum Intrinsic
10031 @cindex Sum intrinsic
10032 @cindex intrinsics, Sum
10034 This intrinsic is not yet implemented.
10035 The name is, however, reserved as an intrinsic.
10036 Use @samp{EXTERNAL Sum} to use this name for an
10037 external procedure.
10039 @end ifset
10040 @ifset familyF2U
10041 @node SymLnk Intrinsic (subroutine)
10042 @subsubsection SymLnk Intrinsic (subroutine)
10043 @cindex SymLnk intrinsic
10044 @cindex intrinsics, SymLnk
10046 @noindent
10047 @example
10048 CALL SymLnk(@var{Path1}, @var{Path2}, @var{Status})
10049 @end example
10051 @noindent
10052 @var{Path1}: @code{CHARACTER}; scalar; INTENT(IN).
10054 @noindent
10055 @var{Path2}: @code{CHARACTER}; scalar; INTENT(IN).
10057 @noindent
10058 @var{Status}: @code{INTEGER(KIND=1)}; OPTIONAL; scalar; INTENT(OUT).
10060 @noindent
10061 Intrinsic groups: @code{unix}.
10063 @noindent
10064 Description:
10066 Makes a symbolic link from file @var{Path1} to @var{Path2}.
10067 A null character (@samp{CHAR(0)}) marks the end of
10068 the names in @var{Path1} and @var{Path2}---otherwise,
10069 trailing blanks in @var{Path1} and @var{Path2} are ignored.
10070 If the @var{Status} argument is supplied, it contains
10071 0 on success or a nonzero error code upon return
10072 (@code{ENOSYS} if the system does not provide @code{symlink(2)}).
10074 Some non-GNU implementations of Fortran provide this intrinsic as
10075 only a function, not as a subroutine, or do not support the
10076 (optional) @var{Status} argument.
10078 For information on other intrinsics with the same name:
10079 @xref{SymLnk Intrinsic (function)}.
10081 @end ifset
10082 @ifset familyBADU77
10083 @node SymLnk Intrinsic (function)
10084 @subsubsection SymLnk Intrinsic (function)
10085 @cindex SymLnk intrinsic
10086 @cindex intrinsics, SymLnk
10088 @noindent
10089 @example
10090 SymLnk(@var{Path1}, @var{Path2})
10091 @end example
10093 @noindent
10094 SymLnk: @code{INTEGER(KIND=1)} function.
10096 @noindent
10097 @var{Path1}: @code{CHARACTER}; scalar; INTENT(IN).
10099 @noindent
10100 @var{Path2}: @code{CHARACTER}; scalar; INTENT(IN).
10102 @noindent
10103 Intrinsic groups: @code{badu77}.
10105 @noindent
10106 Description:
10108 Makes a symbolic link from file @var{Path1} to @var{Path2}.
10109 A null character (@samp{CHAR(0)}) marks the end of
10110 the names in @var{Path1} and @var{Path2}---otherwise,
10111 trailing blanks in @var{Path1} and @var{Path2} are ignored.
10112 Returns 0 on success or a nonzero error code
10113 (@code{ENOSYS} if the system does not provide @code{symlink(2)}).
10115 Due to the side effects performed by this intrinsic, the function
10116 form is not recommended.
10118 For information on other intrinsics with the same name:
10119 @xref{SymLnk Intrinsic (subroutine)}.
10121 @end ifset
10122 @ifset familyF2U
10123 @node System Intrinsic (subroutine)
10124 @subsubsection System Intrinsic (subroutine)
10125 @cindex System intrinsic
10126 @cindex intrinsics, System
10128 @noindent
10129 @example
10130 CALL System(@var{Command}, @var{Status})
10131 @end example
10133 @noindent
10134 @var{Command}: @code{CHARACTER}; scalar; INTENT(IN).
10136 @noindent
10137 @var{Status}: @code{INTEGER(KIND=1)}; OPTIONAL; scalar; INTENT(OUT).
10139 @noindent
10140 Intrinsic groups: @code{unix}.
10142 @noindent
10143 Description:
10145 Passes the command @var{Command} to a shell (see @code{system(3)}).
10146 If argument @var{Status} is present, it contains the value returned by
10147 @code{system(3)}, presumably 0 if the shell command succeeded.
10148 Note that which shell is used to invoke the command is system-dependent
10149 and environment-dependent.
10151 Some non-GNU implementations of Fortran provide this intrinsic as
10152 only a function, not as a subroutine, or do not support the
10153 (optional) @var{Status} argument.
10155 For information on other intrinsics with the same name:
10156 @xref{System Intrinsic (function)}.
10158 @end ifset
10159 @ifset familyBADU77
10160 @node System Intrinsic (function)
10161 @subsubsection System Intrinsic (function)
10162 @cindex System intrinsic
10163 @cindex intrinsics, System
10165 @noindent
10166 @example
10167 System(@var{Command})
10168 @end example
10170 @noindent
10171 System: @code{INTEGER(KIND=1)} function.
10173 @noindent
10174 @var{Command}: @code{CHARACTER}; scalar; INTENT(IN).
10176 @noindent
10177 Intrinsic groups: @code{badu77}.
10179 @noindent
10180 Description:
10182 Passes the command @var{Command} to a shell (see @code{system(3)}).
10183 Returns the value returned by
10184 @code{system(3)}, presumably 0 if the shell command succeeded.
10185 Note that which shell is used to invoke the command is system-dependent
10186 and environment-dependent.
10188 Due to the side effects performed by this intrinsic, the function
10189 form is not recommended.
10190 However, the function form can be valid in cases where the
10191 actual side effects performed by the call are unimportant to
10192 the application.
10194 For example, on a UNIX system, @samp{SAME = SYSTEM('cmp a b')}
10195 does not perform any side effects likely to be important to the
10196 program, so the programmer would not care if the actual system
10197 call (and invocation of @code{cmp}) was optimized away in a situation
10198 where the return value could be determined otherwise, or was not
10199 actually needed (@samp{SAME} not actually referenced after the
10200 sample assignment statement).
10202 For information on other intrinsics with the same name:
10203 @xref{System Intrinsic (subroutine)}.
10205 @end ifset
10206 @ifset familyF90
10207 @node System_Clock Intrinsic
10208 @subsubsection System_Clock Intrinsic
10209 @cindex System_Clock intrinsic
10210 @cindex intrinsics, System_Clock
10212 @noindent
10213 @example
10214 CALL System_Clock(@var{Count}, @var{Rate}, @var{Max})
10215 @end example
10217 @noindent
10218 @var{Count}: @code{INTEGER(KIND=1)}; scalar; INTENT(OUT).
10220 @noindent
10221 @var{Rate}: @code{INTEGER(KIND=1)}; OPTIONAL; scalar; INTENT(OUT).
10223 @noindent
10224 @var{Max}: @code{INTEGER(KIND=1)}; OPTIONAL; scalar; INTENT(OUT).
10226 @noindent
10227 Intrinsic groups: @code{f90}.
10229 @noindent
10230 Description:
10232 Returns in @var{Count} the current value of the system clock; this is
10233 the value returned by the UNIX function @code{times(2)}
10234 in this implementation, but
10235 isn't in general.
10236 @var{Rate} is the number of clock ticks per second and
10237 @var{Max} is the maximum value this can take, which isn't very useful
10238 in this implementation since it's just the maximum C @code{unsigned
10239 int} value.
10241 @cindex wraparound, timings
10242 @cindex limits, timings
10243 On some systems, the underlying timings are represented
10244 using types with sufficiently small limits that overflows
10245 (wraparounds) are possible, such as 32-bit types.
10246 Therefore, the values returned by this intrinsic
10247 might be, or become, negative,
10248 or numerically less than previous values,
10249 during a single run of the compiled program.
10251 @end ifset
10252 @ifset familyF77
10253 @node Tan Intrinsic
10254 @subsubsection Tan Intrinsic
10255 @cindex Tan intrinsic
10256 @cindex intrinsics, Tan
10258 @noindent
10259 @example
10260 Tan(@var{X})
10261 @end example
10263 @noindent
10264 Tan: @code{REAL} function, the @samp{KIND=} value of the type being that of argument @var{X}.
10266 @noindent
10267 @var{X}: @code{REAL}; scalar; INTENT(IN).
10269 @noindent
10270 Intrinsic groups: (standard FORTRAN 77).
10272 @noindent
10273 Description:
10275 Returns the tangent of @var{X}, an angle measured
10276 in radians.
10278 @xref{ATan Intrinsic}, for the inverse of this function.
10280 @end ifset
10281 @ifset familyVXT
10282 @node TanD Intrinsic
10283 @subsubsection TanD Intrinsic
10284 @cindex TanD intrinsic
10285 @cindex intrinsics, TanD
10287 This intrinsic is not yet implemented.
10288 The name is, however, reserved as an intrinsic.
10289 Use @samp{EXTERNAL TanD} to use this name for an
10290 external procedure.
10292 @end ifset
10293 @ifset familyF77
10294 @node TanH Intrinsic
10295 @subsubsection TanH Intrinsic
10296 @cindex TanH intrinsic
10297 @cindex intrinsics, TanH
10299 @noindent
10300 @example
10301 TanH(@var{X})
10302 @end example
10304 @noindent
10305 TanH: @code{REAL} function, the @samp{KIND=} value of the type being that of argument @var{X}.
10307 @noindent
10308 @var{X}: @code{REAL}; scalar; INTENT(IN).
10310 @noindent
10311 Intrinsic groups: (standard FORTRAN 77).
10313 @noindent
10314 Description:
10316 Returns the hyperbolic tangent of @var{X}.
10318 @end ifset
10319 @ifset familyF2U
10320 @node Time Intrinsic (UNIX)
10321 @subsubsection Time Intrinsic (UNIX)
10322 @cindex Time intrinsic
10323 @cindex intrinsics, Time
10325 @noindent
10326 @example
10327 Time()
10328 @end example
10330 @noindent
10331 Time: @code{INTEGER(KIND=1)} function.
10333 @noindent
10334 Intrinsic groups: @code{unix}.
10336 @noindent
10337 Description:
10339 Returns the current time encoded as an integer
10340 (in the manner of the UNIX function @code{time(3)}).
10341 This value is suitable for passing to @code{CTIME},
10342 @code{GMTIME}, and @code{LTIME}.
10344 @cindex wraparound, timings
10345 @cindex limits, timings
10346 This intrinsic is not fully portable, such as to systems
10347 with 32-bit @code{INTEGER} types but supporting times
10348 wider than 32 bits.
10349 Therefore, the values returned by this intrinsic
10350 might be, or become, negative,
10351 or numerically less than previous values,
10352 during a single run of the compiled program.
10354 @xref{Time8 Intrinsic}, for information on a
10355 similar intrinsic that might be portable to more
10356 GNU Fortran implementations, though to fewer
10357 Fortran compilers.
10359 For information on other intrinsics with the same name:
10360 @xref{Time Intrinsic (VXT)}.
10362 @end ifset
10363 @ifset familyVXT
10364 @node Time Intrinsic (VXT)
10365 @subsubsection Time Intrinsic (VXT)
10366 @cindex Time intrinsic
10367 @cindex intrinsics, Time
10369 @noindent
10370 @example
10371 CALL Time(@var{Time})
10372 @end example
10374 @noindent
10375 @var{Time}: @code{CHARACTER*8}; scalar; INTENT(OUT).
10377 @noindent
10378 Intrinsic groups: @code{vxt}.
10380 @noindent
10381 Description:
10383 Returns in @var{Time} a character representation of the current time as
10384 obtained from @code{ctime(3)}.
10386 @cindex Y10K compliance
10387 @cindex Year 10000 compliance
10388 @cindex wraparound, Y10K
10389 @cindex limits, Y10K
10390 Programs making use of this intrinsic
10391 might not be Year 10000 (Y10K) compliant.
10392 For example, the date might appear,
10393 to such programs, to wrap around
10394 (change from a larger value to a smaller one)
10395 as of the Year 10000.
10397 @xref{FDate Intrinsic (subroutine)}, for an equivalent routine.
10399 For information on other intrinsics with the same name:
10400 @xref{Time Intrinsic (UNIX)}.
10402 @end ifset
10403 @ifset familyF2U
10404 @node Time8 Intrinsic
10405 @subsubsection Time8 Intrinsic
10406 @cindex Time8 intrinsic
10407 @cindex intrinsics, Time8
10409 @noindent
10410 @example
10411 Time8()
10412 @end example
10414 @noindent
10415 Time8: @code{INTEGER(KIND=2)} function.
10417 @noindent
10418 Intrinsic groups: @code{unix}.
10420 @noindent
10421 Description:
10423 Returns the current time encoded as a long integer
10424 (in the manner of the UNIX function @code{time(3)}).
10425 This value is suitable for passing to @code{CTIME},
10426 @code{GMTIME}, and @code{LTIME}.
10428 @cindex wraparound, timings
10429 @cindex limits, timings
10430 @emph{Warning:} this intrinsic does not increase the range
10431 of the timing values over that returned by @code{time(3)}.
10432 On a system with a 32-bit @code{time(3)},
10433 @code{TIME8} will return a 32-bit value,
10434 even though converted to an @samp{INTEGER(KIND=2)} value.
10435 That means overflows of the 32-bit value can still occur.
10436 Therefore, the values returned by this intrinsic
10437 might be, or become, negative,
10438 or numerically less than previous values,
10439 during a single run of the compiled program.
10441 No Fortran implementations other than GNU Fortran are
10442 known to support this intrinsic at the time of this
10443 writing.
10444 @xref{Time Intrinsic (UNIX)}, for information on a
10445 similar intrinsic that might be portable to more Fortran
10446 compilers, though to fewer GNU Fortran implementations.
10448 @end ifset
10449 @ifset familyF90
10450 @node Tiny Intrinsic
10451 @subsubsection Tiny Intrinsic
10452 @cindex Tiny intrinsic
10453 @cindex intrinsics, Tiny
10455 This intrinsic is not yet implemented.
10456 The name is, however, reserved as an intrinsic.
10457 Use @samp{EXTERNAL Tiny} to use this name for an
10458 external procedure.
10460 @node Transfer Intrinsic
10461 @subsubsection Transfer Intrinsic
10462 @cindex Transfer intrinsic
10463 @cindex intrinsics, Transfer
10465 This intrinsic is not yet implemented.
10466 The name is, however, reserved as an intrinsic.
10467 Use @samp{EXTERNAL Transfer} to use this name for an
10468 external procedure.
10470 @node Transpose Intrinsic
10471 @subsubsection Transpose Intrinsic
10472 @cindex Transpose intrinsic
10473 @cindex intrinsics, Transpose
10475 This intrinsic is not yet implemented.
10476 The name is, however, reserved as an intrinsic.
10477 Use @samp{EXTERNAL Transpose} to use this name for an
10478 external procedure.
10480 @node Trim Intrinsic
10481 @subsubsection Trim Intrinsic
10482 @cindex Trim intrinsic
10483 @cindex intrinsics, Trim
10485 This intrinsic is not yet implemented.
10486 The name is, however, reserved as an intrinsic.
10487 Use @samp{EXTERNAL Trim} to use this name for an
10488 external procedure.
10490 @end ifset
10491 @ifset familyF2U
10492 @node TtyNam Intrinsic (subroutine)
10493 @subsubsection TtyNam Intrinsic (subroutine)
10494 @cindex TtyNam intrinsic
10495 @cindex intrinsics, TtyNam
10497 @noindent
10498 @example
10499 CALL TtyNam(@var{Unit}, @var{Name})
10500 @end example
10502 @noindent
10503 @var{Unit}: @code{INTEGER}; scalar; INTENT(IN).
10505 @noindent
10506 @var{Name}: @code{CHARACTER}; scalar; INTENT(OUT).
10508 @noindent
10509 Intrinsic groups: @code{unix}.
10511 @noindent
10512 Description:
10514 Sets @var{Name} to the name of the terminal device open on logical unit
10515 @var{Unit} or to a blank string if @var{Unit} is not connected to a
10516 terminal.
10518 Some non-GNU implementations of Fortran provide this intrinsic as
10519 only a function, not as a subroutine.
10521 For information on other intrinsics with the same name:
10522 @xref{TtyNam Intrinsic (function)}.
10524 @node TtyNam Intrinsic (function)
10525 @subsubsection TtyNam Intrinsic (function)
10526 @cindex TtyNam intrinsic
10527 @cindex intrinsics, TtyNam
10529 @noindent
10530 @example
10531 TtyNam(@var{Unit})
10532 @end example
10534 @noindent
10535 TtyNam: @code{CHARACTER*(*)} function.
10537 @noindent
10538 @var{Unit}: @code{INTEGER}; scalar; INTENT(IN).
10540 @noindent
10541 Intrinsic groups: @code{unix}.
10543 @noindent
10544 Description:
10546 Returns the name of the terminal device open on logical unit
10547 @var{Unit} or a blank string if @var{Unit} is not connected to a
10548 terminal.
10550 For information on other intrinsics with the same name:
10551 @xref{TtyNam Intrinsic (subroutine)}.
10553 @end ifset
10554 @ifset familyF90
10555 @node UBound Intrinsic
10556 @subsubsection UBound Intrinsic
10557 @cindex UBound intrinsic
10558 @cindex intrinsics, UBound
10560 This intrinsic is not yet implemented.
10561 The name is, however, reserved as an intrinsic.
10562 Use @samp{EXTERNAL UBound} to use this name for an
10563 external procedure.
10565 @end ifset
10566 @ifset familyF2U
10567 @node UMask Intrinsic (subroutine)
10568 @subsubsection UMask Intrinsic (subroutine)
10569 @cindex UMask intrinsic
10570 @cindex intrinsics, UMask
10572 @noindent
10573 @example
10574 CALL UMask(@var{Mask}, @var{Old})
10575 @end example
10577 @noindent
10578 @var{Mask}: @code{INTEGER}; scalar; INTENT(IN).
10580 @noindent
10581 @var{Old}: @code{INTEGER(KIND=1)}; OPTIONAL; scalar; INTENT(OUT).
10583 @noindent
10584 Intrinsic groups: @code{unix}.
10586 @noindent
10587 Description:
10589 Sets the file creation mask to @var{Mask} and returns the old value in
10590 argument @var{Old} if it is supplied.
10591 See @code{umask(2)}.
10593 Some non-GNU implementations of Fortran provide this intrinsic as
10594 only a function, not as a subroutine.
10596 For information on other intrinsics with the same name:
10597 @xref{UMask Intrinsic (function)}.
10599 @end ifset
10600 @ifset familyBADU77
10601 @node UMask Intrinsic (function)
10602 @subsubsection UMask Intrinsic (function)
10603 @cindex UMask intrinsic
10604 @cindex intrinsics, UMask
10606 @noindent
10607 @example
10608 UMask(@var{Mask})
10609 @end example
10611 @noindent
10612 UMask: @code{INTEGER(KIND=1)} function.
10614 @noindent
10615 @var{Mask}: @code{INTEGER}; scalar; INTENT(IN).
10617 @noindent
10618 Intrinsic groups: @code{badu77}.
10620 @noindent
10621 Description:
10623 Sets the file creation mask to @var{Mask} and returns the old value.
10624 See @code{umask(2)}.
10626 Due to the side effects performed by this intrinsic, the function
10627 form is not recommended.
10629 For information on other intrinsics with the same name:
10630 @xref{UMask Intrinsic (subroutine)}.
10632 @end ifset
10633 @ifset familyF2U
10634 @node Unlink Intrinsic (subroutine)
10635 @subsubsection Unlink Intrinsic (subroutine)
10636 @cindex Unlink intrinsic
10637 @cindex intrinsics, Unlink
10639 @noindent
10640 @example
10641 CALL Unlink(@var{File}, @var{Status})
10642 @end example
10644 @noindent
10645 @var{File}: @code{CHARACTER}; scalar; INTENT(IN).
10647 @noindent
10648 @var{Status}: @code{INTEGER(KIND=1)}; OPTIONAL; scalar; INTENT(OUT).
10650 @noindent
10651 Intrinsic groups: @code{unix}.
10653 @noindent
10654 Description:
10656 Unlink the file @var{File}.
10657 A null character (@samp{CHAR(0)}) marks the end of
10658 the name in @var{File}---otherwise,
10659 trailing blanks in @var{File} are ignored.
10660 If the @var{Status} argument is supplied, it contains
10661 0 on success or a nonzero error code upon return.
10662 See @code{unlink(2)}.
10664 Some non-GNU implementations of Fortran provide this intrinsic as
10665 only a function, not as a subroutine, or do not support the
10666 (optional) @var{Status} argument.
10668 For information on other intrinsics with the same name:
10669 @xref{Unlink Intrinsic (function)}.
10671 @end ifset
10672 @ifset familyBADU77
10673 @node Unlink Intrinsic (function)
10674 @subsubsection Unlink Intrinsic (function)
10675 @cindex Unlink intrinsic
10676 @cindex intrinsics, Unlink
10678 @noindent
10679 @example
10680 Unlink(@var{File})
10681 @end example
10683 @noindent
10684 Unlink: @code{INTEGER(KIND=1)} function.
10686 @noindent
10687 @var{File}: @code{CHARACTER}; scalar; INTENT(IN).
10689 @noindent
10690 Intrinsic groups: @code{badu77}.
10692 @noindent
10693 Description:
10695 Unlink the file @var{File}.
10696 A null character (@samp{CHAR(0)}) marks the end of
10697 the name in @var{File}---otherwise,
10698 trailing blanks in @var{File} are ignored.
10699 Returns 0 on success or a nonzero error code.
10700 See @code{unlink(2)}.
10702 Due to the side effects performed by this intrinsic, the function
10703 form is not recommended.
10705 For information on other intrinsics with the same name:
10706 @xref{Unlink Intrinsic (subroutine)}.
10708 @end ifset
10709 @ifset familyF90
10710 @node Unpack Intrinsic
10711 @subsubsection Unpack Intrinsic
10712 @cindex Unpack intrinsic
10713 @cindex intrinsics, Unpack
10715 This intrinsic is not yet implemented.
10716 The name is, however, reserved as an intrinsic.
10717 Use @samp{EXTERNAL Unpack} to use this name for an
10718 external procedure.
10720 @node Verify Intrinsic
10721 @subsubsection Verify Intrinsic
10722 @cindex Verify intrinsic
10723 @cindex intrinsics, Verify
10725 This intrinsic is not yet implemented.
10726 The name is, however, reserved as an intrinsic.
10727 Use @samp{EXTERNAL Verify} to use this name for an
10728 external procedure.
10730 @end ifset
10731 @ifset familyF2C
10732 @node XOr Intrinsic
10733 @subsubsection XOr Intrinsic
10734 @cindex XOr intrinsic
10735 @cindex intrinsics, XOr
10737 @noindent
10738 @example
10739 XOr(@var{I}, @var{J})
10740 @end example
10742 @noindent
10743 XOr: @code{INTEGER} or @code{LOGICAL} function, the exact type being the result of cross-promoting the
10744 types of all the arguments.
10746 @noindent
10747 @var{I}: @code{INTEGER} or @code{LOGICAL}; scalar; INTENT(IN).
10749 @noindent
10750 @var{J}: @code{INTEGER} or @code{LOGICAL}; scalar; INTENT(IN).
10752 @noindent
10753 Intrinsic groups: @code{f2c}.
10755 @noindent
10756 Description:
10758 Returns value resulting from boolean exclusive-OR of
10759 pair of bits in each of @var{I} and @var{J}.
10761 @node ZAbs Intrinsic
10762 @subsubsection ZAbs Intrinsic
10763 @cindex ZAbs intrinsic
10764 @cindex intrinsics, ZAbs
10766 @noindent
10767 @example
10768 ZAbs(@var{A})
10769 @end example
10771 @noindent
10772 ZAbs: @code{REAL(KIND=2)} function.
10774 @noindent
10775 @var{A}: @code{COMPLEX(KIND=2)}; scalar; INTENT(IN).
10777 @noindent
10778 Intrinsic groups: @code{f2c}.
10780 @noindent
10781 Description:
10783 Archaic form of @code{ABS()} that is specific
10784 to one type for @var{A}.
10785 @xref{Abs Intrinsic}.
10787 @node ZCos Intrinsic
10788 @subsubsection ZCos Intrinsic
10789 @cindex ZCos intrinsic
10790 @cindex intrinsics, ZCos
10792 @noindent
10793 @example
10794 ZCos(@var{X})
10795 @end example
10797 @noindent
10798 ZCos: @code{COMPLEX(KIND=2)} function.
10800 @noindent
10801 @var{X}: @code{COMPLEX(KIND=2)}; scalar; INTENT(IN).
10803 @noindent
10804 Intrinsic groups: @code{f2c}.
10806 @noindent
10807 Description:
10809 Archaic form of @code{COS()} that is specific
10810 to one type for @var{X}.
10811 @xref{Cos Intrinsic}.
10813 @node ZExp Intrinsic
10814 @subsubsection ZExp Intrinsic
10815 @cindex ZExp intrinsic
10816 @cindex intrinsics, ZExp
10818 @noindent
10819 @example
10820 ZExp(@var{X})
10821 @end example
10823 @noindent
10824 ZExp: @code{COMPLEX(KIND=2)} function.
10826 @noindent
10827 @var{X}: @code{COMPLEX(KIND=2)}; scalar; INTENT(IN).
10829 @noindent
10830 Intrinsic groups: @code{f2c}.
10832 @noindent
10833 Description:
10835 Archaic form of @code{EXP()} that is specific
10836 to one type for @var{X}.
10837 @xref{Exp Intrinsic}.
10839 @end ifset
10840 @ifset familyVXT
10841 @node ZExt Intrinsic
10842 @subsubsection ZExt Intrinsic
10843 @cindex ZExt intrinsic
10844 @cindex intrinsics, ZExt
10846 This intrinsic is not yet implemented.
10847 The name is, however, reserved as an intrinsic.
10848 Use @samp{EXTERNAL ZExt} to use this name for an
10849 external procedure.
10851 @end ifset
10852 @ifset familyF2C
10853 @node ZLog Intrinsic
10854 @subsubsection ZLog Intrinsic
10855 @cindex ZLog intrinsic
10856 @cindex intrinsics, ZLog
10858 @noindent
10859 @example
10860 ZLog(@var{X})
10861 @end example
10863 @noindent
10864 ZLog: @code{COMPLEX(KIND=2)} function.
10866 @noindent
10867 @var{X}: @code{COMPLEX(KIND=2)}; scalar; INTENT(IN).
10869 @noindent
10870 Intrinsic groups: @code{f2c}.
10872 @noindent
10873 Description:
10875 Archaic form of @code{LOG()} that is specific
10876 to one type for @var{X}.
10877 @xref{Log Intrinsic}.
10879 @node ZSin Intrinsic
10880 @subsubsection ZSin Intrinsic
10881 @cindex ZSin intrinsic
10882 @cindex intrinsics, ZSin
10884 @noindent
10885 @example
10886 ZSin(@var{X})
10887 @end example
10889 @noindent
10890 ZSin: @code{COMPLEX(KIND=2)} function.
10892 @noindent
10893 @var{X}: @code{COMPLEX(KIND=2)}; scalar; INTENT(IN).
10895 @noindent
10896 Intrinsic groups: @code{f2c}.
10898 @noindent
10899 Description:
10901 Archaic form of @code{SIN()} that is specific
10902 to one type for @var{X}.
10903 @xref{Sin Intrinsic}.
10905 @node ZSqRt Intrinsic
10906 @subsubsection ZSqRt Intrinsic
10907 @cindex ZSqRt intrinsic
10908 @cindex intrinsics, ZSqRt
10910 @noindent
10911 @example
10912 ZSqRt(@var{X})
10913 @end example
10915 @noindent
10916 ZSqRt: @code{COMPLEX(KIND=2)} function.
10918 @noindent
10919 @var{X}: @code{COMPLEX(KIND=2)}; scalar; INTENT(IN).
10921 @noindent
10922 Intrinsic groups: @code{f2c}.
10924 @noindent
10925 Description:
10927 Archaic form of @code{SQRT()} that is specific
10928 to one type for @var{X}.
10929 @xref{SqRt Intrinsic}.
10931 @end ifset