int
e_wdfe_mp (unit **fu)
{
unit *ftnunit = *fu;
(void) en_fio (fu);
if (ftnunit->ufd && ferror (ftnunit->ufd))
errret(ftnunit->f77errlist.cierr, errno, "dfe");
if (ftnunit->ushared)
fflush (ftnunit->ufd);
ftnunit->lock_unit = 0;
return (0);
}
integer e_wsfe(Void)
{
#ifdef ALWAYS_FLUSH
int n;
n = en_fio();
f__fmtbuf=NULL;
if (!n && fflush(f__cf))
err(f__elist->cierr, errno, "write end");
return n;
#else
return(e_rsfe());
#endif
}
int e_wsfi_mp (unit **fu)
{
int n;
n = en_fio (fu);
/* (*fu)->f77fmtbuf = NULL; */
/* Don't do this; it's already been done by en_fio
Richard Shapiro 8/9/95*/
/* z_wnew (*fu); */
(*fu)->lock_unit = 0;
return (n);
}
integer e_wsfi(Void)
{
int n;
n = en_fio();
f__fmtbuf = NULL;
if(f__svic->icirnum != 1
&& (f__icnum > f__svic->icirnum
|| (f__icnum == f__svic->icirnum && (f__recpos | f__hiwater))))
err(f__svic->icierr,110,"inwrite");
if (f__recpos < f__hiwater)
f__recpos = f__hiwater;
if (f__recpos >= f__svic->icirlen)
err(f__svic->icierr,110,"recend");
if (!f__recpos && f__icnum)
return n;
while(f__recpos++ < f__svic->icirlen)
*f__icptr++ = ' ';
return n;
}
integer e_rsfe(Void)
{ int n;
n=en_fio();
f__fmtbuf=NULL;
return(n);
}
integer e_rsfi(void)
{ int n = en_fio();
f__fmtbuf = NULL;
return(n);
}
integer e_rdfe(Void)
{
f__init = 1;
en_fio();
return(0);
}
integer e_wdfe(Void)
{
return en_fio();
}
integer e_rdfe(Void)
{
en_fio();
return 0;
}
e_rsfe()
{ int n;
n=en_fio();
fmtbuf=NULL;
return(n);
}
integer e_wsfe(Void)
{
int n = en_fio();
f__fmtbuf = NULL;
return n;
}
