Platform

Win32

Purpose

To print the error message associated with a given error code.

Syntax

SUBROUTINE PRERR@(ERROR_CODE,STRING)
INTEGER (KIND=2) ERROR_CODE
CHARACTER (LEN=*) STRING

Description

This routine does nothing if ERROR_CODE is zero, otherwise it prints the user-supplied string STRING followed by the system error message corresponding to ERROR_CODE. The routine returns normally and program execution continues. ERROR_CODE will normally be a value returned by an earlier call to a routine that could generate a system error condition.