double precision amp,amp2,ap,ap2,aml,aml2,al2,amc2,amh,
     +     amt,rtara,rtarz,fermom,amm,amn,chbar,barn
      integer isf20
      common/cmp/amp,amp2,ap,ap2,aml,aml2,al2,amc2,amh,
     +     amt,rtara,rtarz,fermom,amm,amn,chbar,barn,isf20