      INTEGER Npawc,nrcmx
      PARAMETER (Npawc = 3000000, nrcmx = 24)
      REAL PAWC
      COMMON /PAWC/PAWC(Npawc)
 
c Following is CWNT

*
      COMMON/ppkk/xirun,xirec,xtottks,xnmdc,xnneu
     + ,xrx1,xry1,xrz1,xrx2,xry2,xrz2,xcosk1,xcosk2,xpxyk1,xpxyk2
     + ,xpp1,xpp2,xtof1,xtof2,xtq1,xtq2,xpid1,xpid2
     + ,xdeltat,iiscf1,iiscf2,xesc1,xesc2,xrmkk,xrmks1,xrmks2
     + ,xrmkg1,xrmkg2,xumiss,xapi0,xq2
     + ,xchi2g,xchi2pi,xfmkk,xfmgk1,xfmgk2
     + ,xcthetv,xcthetx,xcthetm,xphim
     + ,xescn,inscl,infscl,xcosg,xthdf
     + ,xthpf1,xthpf2,xphpf1,xphpf2,inngg,ingg
     + ,xppx1,xppy1,xppz1,xee1,xamass1
     + ,xppx2,xppy2,xppz2,xee2,xamass2
     + ,xppx3,xppy3,xppz3,xee3,xamass3
     + ,xrmht1,xrmht2
     + ,xchi2pi1,xchi2pi2,xchi2pi3
     + ,xchi2pi4,xchi2pi5,xchi2pi6
     + ,xrmpi01m,xrmpi02m,xrmpi03m
     + ,xrmpi04m,xrmpi05m,xrmpi06m
     + ,xidflag1,xidflag2
     + ,x1time1,x1time2,x1time3
     + ,x1timee1,x1timee2,x1timee3
     + ,x1timeoff1,x1timeoff2,x1timeoff3
     + ,x1timesig1,x1timesig2,x1timesig3
     + ,x2time1,x2time2,x2time3
     + ,x2timee1,x2timee2,x2timee3
     + ,x2timeoff1,x2timeoff2,x2timeoff3
     + ,x2timesig1,x2timesig2,x2timesig3
     + ,xiddflag1,xiddflag2
     + ,x1xsp1,x1xsp2,x1xsp3
     + ,x1dedxoff1,x1dedxoff2,x1dedxoff3
     + ,x1dedxsig1,x1dedxsig2,x1dedxsig3
     + ,x2xsp1,x2xsp2,x2xsp3
     + ,x2dedxoff1,x2dedxoff2,x2dedxoff3
     + ,x2dedxsig1,x2dedxsig2,x2dedxsig3
     + ,xIDGDTOF1
     + ,xIDGDDEDX1
     + ,xIDGDCOM1
     + ,xIDGDTOF2
     + ,xIDGDDEDX2
     + ,xIDGDCOM2
     + ,xthkk,xrx0,xry0,xrz0
     + ,xchi2pi7,xchi2pi8,xchi2pi9
     + ,xrmpi07m,xrmpi08m,xrmpi09m
     + ,xrmkk07m,xrmkk08m,xrmkk09m
     + ,xrmks107m,xrmks108m,xrmks109m
     + ,xrmks207m,xrmks208m,xrmks209m
*
      REAL xirun,xirec,xtottks,xnmdc,xnneu,xpid1,xpid2  
     + ,xrx1,xry1,xrz1,xrx2,xry2,xrz2,xcosk1,xcosk2,xpxyk1,xpxyk2
     + ,xpp1,xpp2,xtof1,xtof2,xtq1,xtq2,xdeltat,xesc1,xesc2
     + ,xrmkk,xrmks1,xrmks2,xrmkg1,xrmkg2,xumiss,xapi0,xq2
     + ,xchi2g,xchi2pi,xfmkk,xfmgk1,xfmgk2
     + ,xcthetv,xcthetx,xcthetm,xphim,xescn
     + ,xcosg,xthdf,xthpf1,xthpf2,xphpf1,xphpf2
     + ,xppx1,xppy1,xppz1,xee1,xamass1
     + ,xppx2,xppy2,xppz2,xee2,xamass2
     + ,xppx3,xppy3,xppz3,xee3,xamass3
     + ,xrmht1,xrmht2
     + ,xchi2pi1,xchi2pi2,xchi2pi3
     + ,xchi2pi4,xchi2pi5,xchi2pi6
     + ,xrmpi01m,xrmpi02m,xrmpi03m
     + ,xrmpi04m,xrmpi05m,xrmpi06m
     + ,xidflag1,xidflag2
     + ,x1time1,x1time2,x1time3
     + ,x1timee1,x1timee2,x1timee3
     + ,x1timeoff1,x1timeoff2,x1timeoff3
     + ,x1timesig1,x1timesig2,x1timesig3
     + ,x2time1,x2time2,x2time3
     + ,x2timee1,x2timee2,x2timee3
     + ,x2timeoff1,x2timeoff2,x2timeoff3
     + ,x2timesig1,x2timesig2,x2timesig3
     + ,xiddflag1,xiddflag2 
     + ,x1xsp1,x1xsp2,x1xsp3
     + ,x1dedxoff1,x1dedxoff2,x1dedxoff3
     + ,x1dedxsig1,x1dedxsig2,x1dedxsig3
     + ,x2xsp1,x2xsp2,x2xsp3
     + ,x2dedxoff1,x2dedxoff2,x2dedxoff3
     + ,x2dedxsig1,x2dedxsig2,x2dedxsig3
     + ,xIDGDTOF1
     + ,xIDGDDEDX1
     + ,xIDGDCOM1 
     + ,xIDGDTOF2
     + ,xIDGDDEDX2
     + ,xIDGDCOM2 
     + ,xthkk,xrx0,xry0,xrz0 
     + ,xchi2pi7,xchi2pi8,xchi2pi9
     + ,xrmpi07m,xrmpi08m,xrmpi09m
     + ,xrmkk07m,xrmkk08m,xrmkk09m
     + ,xrmks107m,xrmks108m,xrmks109m   
     + ,xrmks207m,xrmks208m,xrmks209m   
*
      INTEGER iscf1,iscf2,nscl,nfscl,nngg,ngg
*

