Set f__init to avoid spurious recursive i/o error from formatted

direct i/o.

From-SVN: r22495

libf2c/libI77/sfe.c

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