12488Sdlw /* 223069Skre * Copyright (c) 1980 Regents of the University of California. 323069Skre * All rights reserved. The Berkeley software License Agreement 423069Skre * specifies the terms and conditions for redistribution. 52488Sdlw * 6*24101Sjerry * @(#)dolio.c 5.2 07/30/85 723069Skre */ 823069Skre 923069Skre /* 10*24101Sjerry * list directed and namelist i/o common routines 112488Sdlw */ 122488Sdlw 132488Sdlw #include "fio.h" 142488Sdlw #include "lio.h" 152488Sdlw 162488Sdlw 172488Sdlw c_le(a,flag) cilist *a; 182488Sdlw { int n; 192488Sdlw lfname = NULL; 202488Sdlw elist = NO; 21*24101Sjerry sequential=external=YES; 222488Sdlw errflag = a->cierr; 232488Sdlw endflag = a->ciend; 242488Sdlw lunit = a->ciunit; 252586Sdlw if(not_legal(lunit)) err(errflag,F_ERUNIT,fmtbuf) 262488Sdlw curunit = &units[lunit]; 272488Sdlw if(!curunit->ufd && (n=fk_open(flag,SEQ,FMT,(ftnint)lunit))) 282488Sdlw err(errflag,n,fmtbuf) 292488Sdlw cf = curunit->ufd; 302488Sdlw elist = YES; 312488Sdlw lfname = curunit->ufnm; 322488Sdlw scale=recpos=cursor=0; 332488Sdlw cplus=cblank=NO; 342586Sdlw if(!curunit->ufmt) err(errflag,F_ERNOFIO,fmtbuf) 352586Sdlw if(curunit->url) err(errflag,F_ERNOSIO,fmtbuf) 362488Sdlw return(OK); 372488Sdlw } 382488Sdlw 392488Sdlw do_lio(type,number,ptr,len) ftnint *number,*type; flex *ptr; ftnlen len; 402488Sdlw { 412488Sdlw return((*lioproc)(number,ptr,len,*type)); 422488Sdlw } 43