Run-Time Subroutine: Sends a message to the standard error stream, preceded by a specified string, for the last detected error.
CALL PERROR (string)
string |
(Input) Character*(*). Message to precede the standard error message.
|
The string sent is the same as that given by GERROR.
例
USE IFCORE
character*24 errtext
errtext = 'In my opinion, '
. . .
! any error message generated by errtext is
! preceded by 'In my opinion, '
Call PERROR (errtext)