Compaq Fortran provides several miscellaneous routines for Windows NT and Windows 9* applications. To use these routines, add the following statement to the program unit containing the routine:
USE DFLIB
Table E-6 summarizes these run-time routines:
| Name | Description |
|---|---|
| Program Call and Control Routines | |
| RAISEQQ | Sends an interrupt to the executing program, simulating an interrupt from the operating system. |
| RUNQQ | Calls another program and waits for it to execute. |
| SIGNALQQ | Controls signal handling. |
| SLEEPQQ | Delays execution of the program for a specified time. |
| System, Drive, and Directory Routines | |
| CHANGEDIRQQ | Makes the specified directory the current (default) directory. |
| CHANGEDRIVEQQ | Makes the specified drive the current drive. |
| DELDIRQQ | Deletes a specified directory. |
| GETDRIVEDIRQQ | Returns the current drive and directory path. |
| GETDRIVESIZEQQ | Returns the size of the specified drive. |
| GETDRIVESQQ | Returns the drives available to the system. |
| GETENVQQ | Returns a value from the current environment. |
| MAKEDIRQQ | Creates a directory with the specified directory name. |
| SETENVQQ | Adds a new environment variable or sets the value of an existing one. |
| SYSTEMQQ | Executes a command by passing a command string to the operating system's command interpreter. |
| Date and Time Routines | |
| GETDAT | Returns the date. |
| GETTIM | Returns the time. |
| SETDAT | Sets the date. |
| SETTIM | Sets the time. |
| Keyboard and Speaker Routines | |
| BEEPQQ | Sounds the speaker for a specified duration in milliseconds at a specified frequency in Hertz. |
| GETCHARQQ | Returns the next keyboard keystroke. |
| GETSTRQQ | Reads a character string from the keyboard using buffered input. |
| PEEKCHARQQ | Checks the buffer to see if a keystroke is waiting. |
| File Management Routines | |
| COMMITQQ | Executes any pending write operations for the file associated with the specified unit to the file's physical device. |
| DELFILESQQ | Deletes the specified files in a specified directory. |
| FINDFILEQQ | Searches for a file in the directories specified in the PATH environment variable. |
| FULLPATHQQ | Returns the full path for a specified file or directory. |
| GETFILEINFOQQ | Returns information about files with names that match a request string. |
| PACKTIMEQQ | Packs time values for use by SETFILETIMEQQ. |
| RENAMEFILEQQ | Renames a file. |
| SETFILEACCESSQQ | Sets file-access mode for the specified file. |
| SETFILETIMEQQ | Sets modification time for the specified file. |
| SPLITPATHQQ | Breaks a full path into four components. |
| UNPACKTIMEQQ | Unpacks a file's packed time and date value into its component parts. |
| Error Handling Routines | |
| GETLASTERRORQQ | Returns the last error set by a run-time function or subroutine. |
| MATHERRQQ [1] | Replaces default error handling for errors from intrinsic math functions. |
| SETERRORMODEQQ | Sets the mode for handling critical errors. |
| Argument Inquiry Routines | |
| GETARG | Returns the specified command-line argument where the command itself is argument zero. |
| NARGS | Returns the total number of command-line arguments, including the command. |
| Array Routines | |
| BSEARCHQQ | Performs a binary search for a specified element on a sorted one-dimensional array of intrinsic type. |
| SORTQQ | Sorts a one-dimensional array of intrinsic type. |
| Random Number Routines | |
| RANDOM | Returns a pseudorandom real value greater than or equal to zero and less than one. |
| SEED | Changes the starting point of RANDOM. |
| Floating-Point Inquiry and Control Routines | |
| FOR_GET_FPE | Returns the current settings of floating-point exception flags. |
| FOR_CHECK_FLAWED_PENTIUM | Returns a Severe error if the Pentium[R] floating-point divide flaw is found. |
| FOR_SET_FPE | Sets the floating-point exception flags. |
| GETCONTROLFPQQ [1] | Returns the value of the floating-point processor control word. |
| GETSTATUSFPQQ [1] | Returns the value of the floating-point processor status word. |
| LCWRQQ [1] | Same as SETCONTROLFPQQ. |
| SCWRQQ [1] | Same as GETCONTROLFPQQ. |
| SETCONTROLFPQQ [1] | Sets the value of the floating-point processor control word. |
| SSWRQQ [1] | Same as GETSTATUSFPQQ. |
| Reentrancy Mode Control Routine | |
| FOR_SET_REENTRANCY | Controls the type of reentrancy protection that the Run-Time Library exhibits. |
| Traceback Routine | |
| TRACEBACKQQ | Generates a stack trace. |
|
[1] x86 only | |
For more information on these routines, see the Compaq Visual Fortran online Reference.