1: /*
   2:  * Copyright (c) 1980 Regents of the University of California.
   3:  * All rights reserved.  The Berkeley software License Agreement
   4:  * specifies the terms and conditions for redistribution.
   5:  *
   6:  *	@(#)dolio.c	5.2	7/30/85
   7:  */
   8: 
   9: /*
  10:  * list directed and namelist i/o common routines
  11:  */
  12: 
  13: #include "fio.h"
  14: #include "lio.h"
  15: 
  16: 
  17: c_le(a,flag) cilist *a;
  18: {   int n;
  19:     lfname = NULL;
  20:     elist = NO;
  21:     sequential=external=YES;
  22:     errflag = a->cierr;
  23:     endflag = a->ciend;
  24:     lunit = a->ciunit;
  25:     if(not_legal(lunit)) err(errflag,F_ERUNIT,fmtbuf)
  26:     curunit = &units[lunit];
  27:     if(!curunit->ufd && (n=fk_open(flag,SEQ,FMT,(ftnint)lunit)))
  28:         err(errflag,n,fmtbuf)
  29:     cf = curunit->ufd;
  30:     elist = YES;
  31:     lfname = curunit->ufnm;
  32:     scale=recpos=cursor=0;
  33:     cplus=cblank=NO;
  34:     if(!curunit->ufmt) err(errflag,F_ERNOFIO,fmtbuf)
  35:     if(curunit->url) err(errflag,F_ERNOSIO,fmtbuf)
  36:     return(OK);
  37: }
  38: 
  39: do_lio(type,number,ptr,len) ftnint *number,*type; flex *ptr; ftnlen len;
  40: {
  41:     return((*lioproc)(number,ptr,len,*type));
  42: }

Defined functions

do_lio defined in line 39; never used
Last modified: 1985-07-31
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 818
Valid CSS Valid XHTML 1.0 Strict