/* sequential formatted external common routines*/
#include "third_party/f2c/fio.h"
#include "third_party/f2c/fmt.h"

integer e_rsfe(Void) {
  int n;
  n = en_fio();
  f__fmtbuf = NULL;
  return (n);
}

int c_sfe(cilist *a) /* check */
{
  unit *p;
  f__curunit = p = &f__units[a->ciunit];
  if (a->ciunit >= MXUNIT || a->ciunit < 0) err(a->cierr, 101, "startio");
  if (p->ufd == NULL && fk_open(SEQ, FMT, a->ciunit))
    err(a->cierr, 114, "sfe") if (!p->ufmt)
        err(a->cierr, 102, "sfe") return (0);
}

integer e_wsfe(Void) {
  int n = en_fio();
  f__fmtbuf = NULL;
#ifdef ALWAYS_FLUSH
  if (!n && fflush(f__cf)) err(f__elist->cierr, errno, "write end");
#endif
  return n;
}