# D.1 System Subprogram Summary

This section describes Compaq Fortran 77 intrinsic subprograms that perform various operations. Reference these subprograms the same way that you reference user-written subprograms.

The intrinsic subprograms are as follows:

- DATE

  Returns a 9-byte string containing the ASCII representation of the current date in the form dd-mmm-yy.

- EXIT

  Terminates the execution of a program and returns control to the operating system.

- IDATE

  Returns three integer values representing the current month, day, and year.

- MVBITS

  Transfers a bit field from one storage location to another.

- RAN

  Returns the next number from a sequence of pseudo random numbers of uniform distribution over the range 0 to 1.

- SECNDS

  Provides system time of day, or elapsed time, as a floating-point value in seconds.

- TIME

  Returns an 8-byte string containing the ASCII representation of the current time in hours, minutes, and seconds, in the form hh:mm:ss.

References to integer arguments in the following subprogram descriptions refer to arguments of either INTEGER*4 data type or INTEGER*2 data type. However, the arguments must be either all INTEGER*4 or all INTEGER*2. In general, INTEGER*4 variables or array elements can be used as input values to these subprograms if their values are within the INTEGER*2 range.

For More Information:

For details on referencing user-written subprograms, see Section 6.2.

Previous Page Next Page Table of Contents