In this section:
You may wish to trap the STOP or PAUSE Fortran statements for your own additional processing. These standard Fortran routines call upon other routines named STOP@ and PAUSE@ respectively and the user may provide alternative definitions for these routines to over-ride the system defaults.
In order to do this you should provide your own STOP@ subroutine with the following specification:
SUBROUTINE STOP@(MESSAGE)
CHARACTER(*) MESSAGE
When you have completed your 'clean up' operation in STOP@ you should call on the system routine EXIT@1 as the last instruction within STOP@ to allow ClearWin+ to 'clean up' before termination (EXIT@1 has no arguments and does not return to the calling routine).
SUBROUTINE EXIT@1()
Similarly, you may also provide your own version of the PAUSE@ routine with the specification:
SUBROUTINE PAUSE@(MESSAGE)
CHARACTER(*) MESSAGE
The default PAUSE@ message action uses the MessageBox function to put up a MODAL dialog box captioned 'Pause' with a STOP icon, a single OK button and the pause message which is a argument in the standard PAUSE routine. This default action may be modified if the user writes his own PAUSE@ routine. No call-on (like the call to EXIT@1 above) is necessary or possible.
A routine called ABORT@ is available for use when the program needs to terminate because of an error condition.