summaryrefslogtreecommitdiffstats
path: root/contrib/libf2c/libU77/fnum_.c
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/libf2c/libU77/fnum_.c')
-rw-r--r--contrib/libf2c/libU77/fnum_.c14
1 files changed, 5 insertions, 9 deletions
diff --git a/contrib/libf2c/libU77/fnum_.c b/contrib/libf2c/libU77/fnum_.c
index 0a3ba01..daf8f3d 100644
--- a/contrib/libf2c/libU77/fnum_.c
+++ b/contrib/libf2c/libU77/fnum_.c
@@ -22,17 +22,13 @@ Boston, MA 02111-1307, USA. */
#include "f2c.h"
#include "fio.h"
-#ifdef KR_headers
-integer G77_fnum_0 (lunit)
- integer *lunit;
-#else
-integer G77_fnum_0 (integer *lunit)
-#endif
+integer
+G77_fnum_0 (integer * lunit)
{
- if (*lunit>=MXUNIT || *lunit<0)
- err(1,101,"fnum");
+ if (*lunit >= MXUNIT || *lunit < 0)
+ err (1, 101, "fnum");
/* f__units is a table of descriptions for the unit numbers (defined
in io.h). Use file descriptor (ufd) and fileno rather than udev
field since udev is unix specific */
- return fileno(f__units[*lunit].ufd);
+ return fileno (f__units[*lunit].ufd);
}
OpenPOWER on IntegriCloud