1/* sequential formatted external common routines*/ 2#include "f2c.h" 3#include "fio.h" 4 5extern char *f__fmtbuf; 6 7integer e_rsfe(Void) 8{ int n; 9 f__init = 1; 10 n=en_fio(); 11 f__fmtbuf=NULL; 12 return(n); 13} 14#ifdef KR_headers 15c_sfe(a) cilist *a; /* check */ 16#else 17c_sfe(cilist *a) /* check */ 18#endif 19{ unit *p; 20 if(a->ciunit >= MXUNIT || a->ciunit<0) 21 err(a->cierr,101,"startio"); 22 p = &f__units[a->ciunit]; 23 if(p->ufd==NULL && fk_open(SEQ,FMT,a->ciunit)) err(a->cierr,114,"sfe"); 24 if(!p->ufmt) err(a->cierr,102,"sfe"); 25 return(0); 26} 27integer e_wsfe(Void) 28{ 29 int n; 30 f__init = 1; 31 n = en_fio(); 32 f__fmtbuf=NULL; 33 return n; 34} 35