c(((((((((((((((((((((((((((((((( zheavy (((((((((((((((((((((((((((((((
c          zheavy
      parameter (maxhg=7)
      common /zheavy/ afptbl, cfptbl, ihtom
      dimension afptbl(maxhg, maxhg), ihtom(maxhg),
     *          cfptbl(maxhg, maxhg)
c)))))))))))))))))))))))))))))))) zheavy )))))))))))))))))))))))))))))))
