Revert last change.

From-SVN: r22306

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))

libf2c/libI77/sfe.c

@@ -35,6 +35,5 @@ integer e_wsfe(Void)
 
 integer e_wdfe(Void)
 {
-	f__init = 1;
 	return en_fio();
 }