static int32 s_wsfe_com (cilist64 *a, unit **fu)
{
unit *ftnunit;
int n = wsfe(a, fu, 0);
ftnunit = *fu;
if (n)
return n;
if (ftnunit->uacc != KEYED) {
if (f77nowwriting (ftnunit))
errret(a->cierr, 160, "startwrt");
}
#ifdef I90
ftnunit->f90sw = 0;
ftnunit->f90nadv = 0;
ftnunit->f77recpos = 0;
ftnunit->f77recend = 0;
#endif
ftnunit->dowrite = x_wEND;
return (0);
}
int
s_xsfe_mp (cilist *a, unit **fu)
#endif
{
int n = wsfe(a, fu, 0);
unit *ftnunit;
ftnunit = *fu;
ftnunit->f77idxlist.cimatch = a->cimatch;
ftnunit->f77idxlist.cikeytype = a->cikeytype;
ftnunit->f77idxlist.cikeyval.cicharval = a->cikeyval.cicharval;
ftnunit->f77idxlist.cikeyid = a->cikeyid;
ftnunit->f77idxlist.cinml = a->cinml;
ftnunit->f77idxlist.cikeyvallen = a->cikeyvallen;
if (n) {
return n;
}
if (ftnunit->uacc != KEYED)
errret(a->cierr, 162, "rewrite");
ftnunit->dowrite = idxrewrite;
return (0);
}