Platform

Win32

Purpose

To get a Fortran error message.

Syntax

SUBROUTINE FORTRAN_ERROR_MESSAGE@(ERROR_CODE,MESSAGE)
INTEGER (KIND=2) ERROR_CODE
CHARACTER (LEN=*) MESSAGE

Description

Returns the error message corresponding to the Fortran run time error number ERROR_CODE. Some error messages are rather vague (e.g. Inconsistent call to routine) but when these errors occur the system produces a more informative error message.

Example

CHARACTER (LEN=80)::MESSAGE
INTEGER (KIND=2)::ERROR_CODE< BR>OPEN(FILE='FRED',UNIT=6,IOSTAT=ERROR_CODE)
CALL FORTRAN_ERROR_MESSAGE@(ERROR_CODE,MESSAGE)
PRINT *,MESSAGE