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); }