common/pol14/n14(1000),ni14(15,1000)
common/it/itriple

common/thrbod/iat1(5),iat2(5),acon(5),beta3b(5),gama3b(5) &
      ,i3b(5),n3b