*get,ynode,loc,
*GET,efy0,NODE,1,EF,y
*cfopen,el_buf_3d.out,txt,,append
*vwrite,ymin,efy0
(f10.3,f10.7)
*CFCLOS
fini
parsav,all,pars,txt
/cle
parres,new,pars,txt