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 07/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 } 43