& fname0w, localrec, obsrec, exst, mythid)
fname0w=gencost_errfile(igen_conc)
call ECCO_READWEI(fname0w,localweight,localrec,nnzsiv4,mythid)
character*(128) fname0, fname0w, fname1