Revert last change.

From-SVN: r22306

diff --git a/libf2c/libI77/dfe.c b/libf2c/libI77/dfe.c
index dfc23dce62bc96004a708c788d7b2b453dc81aa9..bcf2c8016a66b68e302c4bfc285308f1a5bf94f8 100644 (file)
--- a/libf2c/libI77/dfe.c
+++ b/libf2c/libI77/dfe.c
@@ -66,8 +66,6 @@ c_dfe(a) cilist *a;
 c_dfe(cilist *a)
 #endif
 {
-       if(f__init != 1) f_init();
-       f__init = 3;
        f__sequential=0;
        f__formatted=f__external=1;
        f__elist=a;
@@ -83,7 +81,7 @@ c_dfe(cilist *a)
        f__fmtbuf=a->cifmt;
        if(a->cirec <= 0)
                err(a->cierr,130,"dfe");
-       fseek(f__cf,(long)f__curunit->url * (a->cirec-1),SEEK_SET);
+       (void) fseek(f__cf,(long)f__curunit->url * (a->cirec-1),SEEK_SET);
        f__curunit->uend = 0;
        return(0);
 }
@@ -94,6 +92,8 @@ integer s_rdfe(cilist *a)
 #endif
 {
        int n;
+       if(f__init != 1) f_init();
+       f__init = 3;
        f__reading=1;
        if(n=c_dfe(a))return(n);
        if(f__curunit->uwrt && f__nowreading(f__curunit))
@@ -115,6 +115,8 @@ integer s_wdfe(cilist *a)
 #endif
 {
        int n;
+       if(f__init != 1) f_init();
+       f__init = 3;
        f__reading=0;
        if(n=c_dfe(a)) return(n);
        if(f__curunit->uwrt != 1 && f__nowwriting(f__curunit))

diff --git a/libf2c/libI77/sfe.c b/libf2c/libI77/sfe.c
index eb6260fec0872c7c9cdaaf918b1f96ff3632d04c..c7d891804b394a8119d255237656c2da51abf50d 100644 (file)
--- a/libf2c/libI77/sfe.c
+++ b/libf2c/libI77/sfe.c
@@ -35,6 +35,5 @@ integer e_wsfe(Void)
 
 integer e_wdfe(Void)
 {
-       f__init = 1;
        return en_fio();
 }