To print a DOS error message and terminate a program when an error occurs.
Syntax
SUBROUTINE ERR77(MESSAGE,ERROR_CODE)
CHARACTER (LEN=*) MESSAGE
INTEGER (KIND=2) ERROR_CODE
Description
This routine has a null effect if ERROR_CODE is zero. Otherwise the string
MESSAGE is printed, followed by the text of the DOS error indicated by
ERROR_CODE. The program then terminates abnormally. This routine is normally
used to test for DOS error following another system call, as in the example.
