close,1 openr,1, datadir+'/'+varfile, /F77 readu,1 $