integer*4 lpdg
      real*4    EandP(4)
      common /labEandP/ lpdg,EandP

      real*4 p1cm(4),p2cm(4),p3cm(4),p4cm(4)
      common /cmnucleons/ p1cm,p2cm,p3cm,p4cm

      integer*4 npdg(4)
      real*4    p1lab(4),p2lab(4),p3lab(4),p4lab(4)
      common /labnucleons/ npdg,p1lab,p2lab,p3lab,p4lab

      real*4 pilab(4)
      common /labpion/ pilab