date and time created 90/06/25 13:56:22 by bostic

[unix-history] / usr / src / usr.bin / f77 / libI77 / c_dfe.c

diff --git a/usr/src/usr.bin/f77/libI77/c_dfe.c b/usr/src/usr.bin/f77/libI77/c_dfe.c
index 2f82891..b7ab49c 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/c_dfe.c
+++ b/usr/src/usr.bin/f77/libI77/c_dfe.c
@@ -1,15 +1,22 @@
 /*
 /*

-char id_c_dfe[] = "@(#)c_dfe.c 1.1";
+ * Copyright (c) 1980 Regents of the University of California.
+ * All rights reserved.  The Berkeley software License Agreement
+ * specifies the terms and conditions for redistribution.

  *
  *

+ *     @(#)c_dfe.c     5.3     %G%
+ */
+
+/*

  * direct formatted external i/o - common read/write routines
  */
 
 #include "fio.h"
 
  * direct formatted external i/o - common read/write routines
  */
 
 #include "fio.h"
 

-c_dfe(a,flag,str) cilist *a; char *str;
+c_dfe(a,flg,str) cilist *a; char *str;

 {      int n;
        sequential = NO;
 {      int n;
        sequential = NO;

-       external = formatted = FORMATTED;
+       external = YES;
+       formatted = FORMATTED;

        lfname = NULL;
        elist = NO;
        cursor=scale=recpos=reclen=0;
        lfname = NULL;
        elist = NO;
        cursor=scale=recpos=reclen=0;


@@ -21,7 +28,7 @@ c_dfe(a,flag,str) cilist *a; char *str;
        lunit = a->ciunit;
        if(not_legal(lunit)) err(errflag,F_ERUNIT,str);
        curunit = &units[lunit];
        lunit = a->ciunit;
        if(not_legal(lunit)) err(errflag,F_ERUNIT,str);
        curunit = &units[lunit];

-       if(!curunit->ufd && (n=fk_open(flag,DIR,FMT,(ftnint)lunit)))
+       if(!curunit->ufd && (n=fk_open(flg,DIR,FMT,(ftnint)lunit)))

                err(errflag,n,str)
        cf = curunit->ufd;
        elist = YES;
                err(errflag,n,str)
        cf = curunit->ufd;
        elist = YES;