Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10 5/3/83; site umcp-cs.UUCP
Path: utzoo!linus!philabs!seismo!rlgvax!cvl!umcp-cs!chris
From: chris@umcp-cs.UUCP
Newsgroups: net.lang.f77
Subject: Re: Need help on date, time, errors msgs.
Message-ID: <4654@umcp-cs.UUCP>
Date: Fri, 6-Jan-84 12:17:22 EST
Article-I.D.: umcp-cs.4654
Posted: Fri Jan  6 12:17:22 1984
Date-Received: Sat, 14-Jan-84 23:55:19 EST
References: <122@wdl1.UUCP>
Organization: Univ. of Maryland, Computer Science Dept.
Lines: 35

The F77 error codes (100-?) are in /usr/src/lib/libI77uc/f_errno.h,
at least in the latest release of 4.1BSD.  The number returned in
the iostat= variable is either < 0 => EOF, 0-sys_nerr => Unix error
code, or 100-f_nerr => F77 I/O library error message.  You have to
write C code to access these.  Something like

C	error routine
100	call errmsg (iostat)
	...

and

	_errmsg_ (e)
	int e;
	{
		extern int errno, sys_nerr, f_nerr;
		extern char *sys_errlist[], *f_errlist[];

		if (e < 0)
			printf ("EOF\n");
		else if (e < sys_nerr)
			printf ("%s\n", sys_errlist[e]);
		else if (e < 100)
			printf ("Unknown system error %d\n", e);
		else if (e - 100 < f_nerr)
			printf ("%s\n", f_errlist[e - 100]);
		else
			printf ("Unknown f77 error %d\n", e);
	}

should work.
-- 
In-Real-Life: Chris Torek, Univ of MD Comp Sci
UUCP:	{seismo,allegra,brl-bmd}!umcp-cs!chris
CSNet:	chris@umcp-cs		ARPA:	chris.umcp-cs@CSNet-Relay