integer*2 ihfld
      common / ghfld / mhfld,ihfld(250000)