common/cflds/hcll(numc),fc(numcf,numc),fez(numr,numz,numc),
     1 fer(numr,numz,numc),fbt(numr,numz,numc),iflag(numc),dr(numc)
     2 ,cellfreq(numc)