Line Code
1 2 3 4 5 6 7 8 9 10
      common /psar1/icdp,icdt
      common /psar3/  dels,alfp,ffrr,delh,r3pom,r4pom,alpasf
      common /psar5/  qcdlam,q2min,q2ini,q2fin,pt2cut,
     *betpom,glusea,naflav,alfe
      common /psar8/  stmass ,amhadr(8),qcmass
      common /psar12/ ydmin,ydmax,qdmin,qdmax,themin,themax,elomin
      common /psar14/ factk,factgam
      double precision  cYfus,cYscr,cYdif,cXfus,cXdif,cXscr
      common /psar16/ cYfus,cYscr,cYdif,cXfus,cXdif,cXscr
      common/cgamsoft/gamsoft