1 /*write sequential formatted external*/
11 int n = f__putbuf('\n');
12 f__hiwater = f__recpos = f__cursor = 0;
27 f__hiwater = f__recpos = f__cursor = 0;
39 f__hiwater = f__recpos = f__cursor = 0;
44 integer s_wsfe(a) cilist *a; /*start*/
46 integer s_wsfe(cilist *a) /*start*/
49 if(f__init != 1) f_init();
55 if(n=c_sfe(a)) return(n);
57 f__hiwater = f__cursor=f__recpos=0;
61 f__curunit = &f__units[a->ciunit];
62 f__cf=f__curunit->ufd;
63 if(pars_f(f__fmtbuf)<0) err(a->cierr,100,"startio");
72 f__cblank=f__curunit->ublnk;
73 if(f__curunit->uwrt != 1 && f__nowwriting(f__curunit))
74 err(a->cierr,errno,"write start");