int s_wsfi64_mp (icilist64 *a, unit** fu)
{
int n;
unit *ftnunit;
if (!f77init)
f_init ();
ftnunit = *fu = Internal_File;
while (fu != &f77curunit && test_and_set( &ftnunit->lock_unit, 1L ))
;
#ifdef I90
ftnunit->f90sw = 0;
#endif
if (n = c_si (a, ftnunit)) {
return (n);
}
ftnunit->uwrt |= WR_OP;
ftnunit->f77doed = w_ed;
ftnunit->f77doned = w_ned;
ftnunit->f77putn = z_putc;
ftnunit->f77ungetn = z_ungetc;
ftnunit->f77donewrec = z_wSL;
ftnunit->f77dorevert = ftnunit->f77doend = z_wnew;
return (0);
}
int __s_rsfi_com (icilist64 *a, unit **fu, int f90sw)
{
int n;
unit *ftnunit;
if (!f77init)
f_init ();
ftnunit = *fu = Internal_File;
while (fu != &f77curunit && test_and_set( &ftnunit->lock_unit, 1L ))
;
#ifdef I90
ftnunit->f90sw = f90sw;
#endif
if (n = c_si (a, ftnunit))
return (n);
ftnunit->uwrt &= ~WR_OP;
ftnunit->f77doed = rd_ed;
ftnunit->f77doned = rd_ned;
ftnunit->f77getn = z_getc;
ftnunit->f77gets = z_gets;
ftnunit->f77ungetn = z_ungetc;
ftnunit->f77donewrec = z_rSL;
ftnunit->f77dorevert = ftnunit->f77doend = z_rnew;
ftnunit->f77recend = ftnunit->f77errlist.icirlen;
return (0);
}
integer s_wsfi(icilist *a)
{ int n;
if(n=c_si(a)) return(n);
f__reading=0;
f__doed=w_ed;
f__doned=w_ned;
f__putn=z_putc;
f__dorevert = iw_rev;
f__donewrec = z_wnew;
f__doend = z_endp;
return(0);
}
integer s_rsfi(icilist *a)
{ int n;
if(n=c_si(a)) return(n);
f__reading=1;
f__doed=rd_ed;
f__doned=rd_ned;
f__getn=z_getc;
f__dorevert = z_endp;
f__donewrec = z_rnew;
f__doend = z_endp;
return(0);
}
