* common for dst ntuple integer nring,nhit,nhita,nhitac,ip(APNMAXRG),nrun,nev,cate,nsub integer nsube,ndcy,ngate,nbye real potot,pomax,potota,pomaxa,dir(3,APNMAXRG),pos(3),dirtot(3) real amom(APNMAXRG),rtot(APNMAXRG),ang(APNMAXRG) real rtote(APNMAXRG),amome(APNMAXRG) real rtotm(APNMAXRG),amomm(APNMAXRG) real probms(6,APNMAXRG),prmslg(6,APNMAXRG) real apos(3),adir(3),aang,agood,msdir(6,3,APNMAXRG) real wall,rtsum,rtmax,wlen,evis,wgain integer date(3),time(4),numpo(APNMAXRG),nbadx,nbadax real elpsday common /apdstnt/nring ,nrun ,nev ,nsub ,cate ,potot , $ nhit ,pomax ,potota,nhita ,nhitac,pomaxa, $ wall ,evis ,rtsum ,rtmax ,wlen ,ip , $ pos ,dir ,dirtot,ang ,rtot ,amom , $ rtote ,amome ,rtotm ,amomm ,nsube ,ndcy , $ ngate ,nbye ,probms,prmslg,date ,time , $ elpsday,numpo,apos ,adir ,aang ,agood , $ wgain, nbadx ,nbadax, $ msdir character*60 dsttags(16) character*960 dsttag equivalence (dsttag,dsttags(1)) data dsttags/ & 'nring[0,10]:I ,nrun[0,100000]:I ,nev:I ,', $ 'nsub:I ,cate[0,20]:I ,potot:R ,', $ 'nhit[0,11146]:I ,pomax:R ,potota:R ,', $ 'nhita[0,1885]:I ,nhitac[0,1885]:I ,pomaxa:R ,', $ 'wall:R ,evis:R ,rtsum:R ,', $ 'rtmax:R ,wlen:R ,ip(nring)[0,10]:I ,', $ 'pos(3):R ,dir(3,nring):R ,dirtot(3):R ,', $ 'ang(nring):R ,rtot(nring):R ,amom(nring):R ,', $ 'rtote(nring):R ,amome(nring):R ,rtotm(nring):R ,', $ 'amomm(nring):R ,nsube[0,100]:I ,ndcy[0,10]:I ,', $ 'ngate[0,10]:I ,nbye[0,10]:I ,probms(6,nring):R ,', $ 'prmslg(6,nring):R ,date(3):I ,time(4):I ,', $ 'elpsday:R ,numpo(nring):I ,apos(3):R ,', $ 'adir(3):R ,aang:R ,agood:R ,', $ 'wgain:R ,nbad:I ,nbada:I ,', $ 'msdir(6,3,nring):R'/ * common for dst2 ntuple real amomp(APNMAXRG),ange(APNMAXRG),angm(APNMAXRG),angp(APNMAXRG) real probth(6,APNMAXRG),probpt(6,APNMAXRG) integer ntot(APNMAXRG) common /apdst2nt/amomp ,ange ,angm ,angp ,ntot,probth,probpt character*60 dst2tags(3) character*180 dst2tag equivalence (dst2tag,dst2tags(1)) data dst2tags/ $ 'amomp(10):R ,ange(10):R ,angm(10):R ,', $ 'angp(10):R ,ntot(10):I ,probth(6,10):R ,', $ 'probpt(6,10):R '/ * EVISCOMP real evisold,evisoldxe,evisnew common /apeviscomp/evisold,evisoldxe,evisnew character*60 evistag data evistag/'evisold:R ,evisoldxe:R ,evisnew:R'/ * COMPARE integer nring2,ip2(APNMAXRG) real dir2(3,APNMAXRG),pos2(3) real amom2(APNMAXRG),rtot2(APNMAXRG),ang2(APNMAXRG) real rtote2(APNMAXRG),amome2(APNMAXRG) real rtotm2(APNMAXRG),amomm2(APNMAXRG) real probms2(6,APNMAXRG),prmslg2(6,APNMAXRG) real wall2,rtsum2,rtmax2,evis2 common /apdstnt2/nring2,wall2 ,evis2 ,rtsum2,rtmax2,ip2 , $ pos2 ,dir2 ,ang2 ,rtot2 ,amom2 ,rtote2, $ amome2,rtotm2,amomm2,probms2,prmslg2 integer nring3,ip3(APNMAXRG) real dir3(3,APNMAXRG),pos3(3) real amom3(APNMAXRG),rtot3(APNMAXRG),ang3(APNMAXRG) real rtote3(APNMAXRG),amome3(APNMAXRG) real rtotm3(APNMAXRG),amomm3(APNMAXRG) real probms3(6,APNMAXRG),prmslg3(6,APNMAXRG) real wall3,rtsum3,rtmax3,evis3 common /apdstnt3/nring3,wall3 ,evis3 ,rtsum3,rtmax3,ip3 , $ pos3 ,dir3 ,ang3 ,rtot3 ,amom3 ,rtote3, $ amome3,rtotm3,amomm3,probms3,prmslg3 character*60 cmp2tags(6) character*360 cmp2tag equivalence (cmp2tag,cmp2tags(1)) data cmp2tags/ $ 'nring2[0,10]:I ,wall2:R ,evis2:R ,', $ 'rtsum2:R ,rtmax2:R ,ip2(nring2)[0,10]:I,', $ 'pos2(3):R ,dir2(3,nring2):R ,ang2(nring2):R ,', $ 'rtot2(nring2):R ,amom2(nring2):R ,rtote2(nring2):R ,', $ 'amome2(nring2):R ,rtotm2(nring2):R ,amomm2(nring2):R ,', $ 'probms2(6,nring2):R,prmslg2(6,nring2):R'/ character*60 cmp3tags(6) character*360 cmp3tag equivalence (cmp3tag,cmp3tags(1)) data cmp3tags/ $ 'nring3[0,10]:I ,wall3:R ,evis3:R ,', $ 'rtsum3:R ,rtmax3:R ,ip3(nring3)[0,10]:I,', $ 'pos3(3):R ,dir3(3,nring3):R ,ang3(nring3):R ,', $ 'rtot3(nring3):R ,amom3(nring3):R ,rtote3(nring3):R ,', $ 'amome3(nring3):R ,rtotm3(nring3):R ,amomm3(nring3):R ,', $ 'probms3(6,nring3):R,prmslg3(6,nring3):R'/ * RING * common for ring counting ntuple INTEGER RNRING,RIRING,MAXTH,IFLAG REAL RDIR(3,APNMAXRG),RANG(APNMAXRG) REAL RTWOUT(APNMAXRG),RTWITH(APNMAXRG),ALWOUT,ALWITH REAL QSMI,QSMO,QEXI,QEXO REAL PE5D,EN5D,EH5D,PE5DO,EN5DO,EH5DO REAL RTADD,PDGETA,PD5D,PDTHRE,PD5DO,DELPD,PKANG REAL ROPENA(APNMAXRG) REAL QRFCT,PDFCT,PKFCT,AGFCT,DLFCT,PMFCT,IMFCT,RILIKEX COMMON/RNGCNT/RNRING, & RDIR ,RANG , & RIRING,RTWOUT,RTWITH,ALWOUT,ALWITH, & QSMI ,QSMO ,QEXI ,QEXO , & PE5D ,EN5D ,EH5D ,PE5DO ,EN5DO ,EH5DO , & RTADD ,PDGETA,PD5D ,PDTHRE,PD5DO ,DELPD , & ROPENA,MAXTH ,PKANG , & QRFCT ,PDFCT ,PKFCT ,AGFCT ,DLFCT ,IFLAG , & PMFCT, IMFCT, RILIKEX * common for spvcsum INTEGER VNHIT,VNOUT REAL VCSUMQ(3),VCSUMA(3),VABSQ,VABSA,VQHIT,VQOUT,VPECUT,VCUTANG REAL VSFCT,VSTHRE,VSRTOT,VSDLFCT COMMON/VCSUM/VCUTANG, & VQHIT ,VQOUT ,VNHIT ,VNOUT , & VABSQ ,VABSA ,VCSUMQ,VCSUMA,VPECUT, & VSFCT,VSTHRE,VSRTOT,VSDLFCT character*60 ringtags(12) character*720 ringtag equivalence (ringtag,ringtags(1)) data ringtags/ & 'RNRING[0,10]:I ,RDIR(3,RNRING):R ,RANG(RNRING):R ,', & 'RIRING[0,10]:I ,RTWOUT(RNRING):R ,RTWITH(RNRING):R ,', & 'ALWOUT:R ,ALWITH:R ,QSMI:R ,', & 'QSMO:R ,QEXI:R ,QEXO:R ,', & 'PE5D:R ,EN5D:R ,EH5D:R ,', & 'PE5DO:R ,EN5DO:R ,EH5DO:R ,', & 'RTADD:R ,PDGETA:R ,PD5D:R ,', & 'PDTHRE:R ,PD5DO:R ,DELPD:R ,', & 'ROPENA(RNRING):R ,MAXTH:I ,PKANG:R ,', & 'QRFCT:R ,PDFCT:R ,PKFCT:R ,', & 'AGFCT:R ,DLFCT:R ,IFLAG:I ,', & 'PMFCT:R ,IMFCT:R ,RILIKE:R '/ character*60 vsumtags(5) character*660 vsumtag equivalence (vsumtag,vsumtags(1)) data vsumtags/ & 'VCUTANG:R ,VQHIT:R ,VQOUT:R ,', & 'VNHIT:I ,VNOUT:I ,VABSQ:R ,', & 'VABSA:R ,VCSUMQ(3):R ,VCSUMA(3):R ,', & 'VPECUT:R ,VSFCT:R ,VSTHRE:R ,', & 'VSRTOT:R ,VSDLFCT:R '/ * common for ringcounting study bank integer ri_ver, ri_nring real ri_pid integer ri_flag(apnmaxrg) real ri_dlfct(apnmaxrg), ri_pdfct(apnmaxrg), ri_pkfct(apnmaxrg) real ri_vafct(apnmaxrg), ri_total(apnmaxrg), ri_dir(3,apnmaxrg) real ri_imfct(apnmaxrg), ri_pmfct(apnmaxrg) common/ringbank/ri_ver , & ri_pid ,ri_nring ,ri_flag , & ri_dlfct ,ri_pdfct ,ri_pkfct ,ri_vafct , & ri_total ,ri_dir ,ri_imfct , ri_pmfct character*60 rngbnktags(6) character*360 rngbnktag equivalence(rngbnktag,rngbnktags(1)) data rngbnktags/ & 'ri_ver:I ,ri_pid:R ,ri_nring[0,10]:I ,', & 'ri_flag(ri_nring):R ,ri_dlfct(ri_nring):R ,', & 'ri_pdfct(ri_nring):R ,ri_pkfct(ri_nring):R ,', & 'ri_vafct(ri_nring):R ,ri_total(ri_nring):R ,', & 'ri_dir(3,ri_nring):R ,ri_imfct(ri_nring):R ,', & 'ri_pmfct(ri_nring):R '/ * common for mue decay integer nmue,etype(MAXNMUE) real etime(MAXNMUE),epos(3,MAXNMUE),edir(3,MAXNMUE) real egood(MAXNMUE),ehit(MAXNMUE),mueprob(2) common /apntmue/nmue,etype,etime,epos,edir,egood,ehit,mueprob character*60 muetags(3) character*180 muetag equivalence (muetag,muetags(1)) data muetags/ $ 'nmue[0,10]:I ,etype(nmue)[0,10]:I ,etime(nmue):R ,', $ 'epos(3,nmue):R ,edir(3,nmue):R ,egood(nmue):R ,', $ 'ehit(nmue):R ,mueprob(2):R '/ * common for vector ntuple (MC_DST) integer npar,ipv(50) real posv(3),dirv(3,50),pmomv(50),wallv integer light_flag(50) common /apmcnt/ npar ,wallv ,ipv ,posv ,dirv ,pmomv, & light_flag integer npar2,ipv2(50),iorg(50) real posv2(3,50),dirv2(3,50),pmomv2(50),wallv2(50) common /apmcnt2/npar2 ,wallv2,ipv2 ,iorg ,posv2 ,dirv2 , $ pmomv2 integer mode,numnu,ipnu(50) real pnu(50),dirnu(3,50) common /apnework/numnu ,mode ,ipnu ,pnu ,dirnu character*60 vecttags(3) character*180 vecttag equivalence (vecttag,vecttags(1)) data vecttags/ $ 'npar[0,50]:I ,wallv:R ,ipv(npar)[0,50]:I ,', $ 'posv(3):R ,dirv(3,npar):R ,pmomv(npar):R ,', $ 'light_flag(npar):I '/ character*60 vct2tags(3) character*180 vct2tag equivalence (vct2tag,vct2tags(1)) data vct2tags/ $ 'npar2[0,50]:I ,wallv2(npar2):R ,ipv2(npar2)[0,50]:I,', $ 'iorg(npar2)[0,50]:I,posv2(3,npar2):R ,dirv2(3,npar2):R ,', $ 'pmomv2(npar2):R '/ character*60 newktags(2) character*120 newktag equivalence (newktag,newktags(1)) data newktags/ $ 'numnu[0,50]:I ,mode[-100,100]:I ,ipnu(numnu):I ,', $ 'pnu(numnu):R ,dirnu(3,numnu):R '/ * CATPC Variables integer catpc real pcst_qobserved, pcst_qexpected, pcst_qobserved_raw real pcst_pathod common /catpcvariables/ catpc, pcst_qobserved, pcst_qexpected, $ pcst_qobserved_raw, pcst_pathod character*60 pcstopthrutags(2) character*120 pcstopthrutag equivalence (pcstopthrutag, pcstopthrutags(1)) data pcstopthrutags/ $ 'catpc:I ,pcst_qobserved:R ,pcst_qexpected:R ,', $ 'pcst_qobserved_raw:R,pcst_pathod:R'/ * SCAN integer scan(2) character*60 scantag parameter (scantag = 'scan(2):I') common /apntscan/scan