#define FDLOOP 1000 #define MAX_FD 10 #define HID_VERSET 1000 #define HID_NUSK 2000 #define HID_NUFD0 3000 #define HID_NUFD1 3001 #define HID_NUFD2 3002 #define HID_ENEDEP_TRGT 5000 #define HID_ENEDEP_DGAS 5001 #define HID_ENEDEP_DUMP 5004 #define HID_ENEDEP_DV 5100 #define HID_MUMON 8000 CHGEN*ECHO(FORTRAN) C 9001-9010 for testplane ntuple C common variables for version-tag & setting integer set_tune, set_ntrig, set_pint, set_rand, set_rseed(2) real set_bpos(2), set_btilt(2), set_brms(2), set_emit(2), set_alpha(2) real set_hcur(3), set_version common /VERSET/set_version, set_tune, & set_ntrig, set_pint, set_bpos, set_btilt, set_brms, set_emit, set_alpha, & set_hcur, set_rand, set_rseed character*240 VerSettag character*60 VerSettags(4) equivalence (VerSettag, VerSettags) data VerSettags/ & 'version:R ,tuneID:I ,ntrig:I ,', & 'pint:I ,bpos(2):R ,btilt(2):R ,', & 'brms(2):R ,emit(2):R ,alpha(2):R ,', & 'hcur(3):R ,rand:I ,rseed(2):I '/ C Ntuple variables for neutrino at SK c Modified by NA - 25/03/09 c Modified by NA - 17/04/09 c Modified by NA - 20/04/09 c Modified by NA - 03/07/09 c Modified by HK - 22/07/10 c Modified by M.H. 2011/01/21 real EnuSK, ppiSK, xpiSK(3), npiSK(3), cospibmSK, normSK real ppi0SK, xpi0SK(3), npi0SK(3), cospi0bmSK real psi0SK, xsi0SK(3), nsi0SK(3), cossi0bmSK, xsiSK(3) integer modeSK, ppidSK, nvtx0SK, spidSK, pgenSK integer smechSK, intgtSK, smedSK real prvtxSK(3) integer gppidSK real xgpi0SK(3), xgpiSK(3), pgpi0SK integer gpmechSK, gpmedSK, prmechSK, prmedSK integer prdghtSK, sdghtSK, gpdghtSK, chainSK integer gipartSK real gpos0SK(3), gvec0SK(3), gamom0SK c--- integer ngSK real gpxSK(25),gpySK(25),gpzSK(25),gcosbmSK(25) real gvxSK(25),gvySK(25),gvzSK(25) integer gpidSK(25),gmecSK(25),gmatSK(25) real gdistcSK(25),gdistalSK(25),gdisttiSK(25),gdistfeSK(25) C--- 10a default variables common /nusk/ EnuSK, ppidSK, modeSK, ppiSK, xpiSK, npiSK, cospibmSK, & normSK, nvtx0SK, ppi0SK, xpi0SK, npi0SK, cospi0bmSK, & gipartSK, gpos0SK, gvec0SK, gamom0SK character*60 nusktags(6) character*360 nusktag equivalence (nusktag, nusktags) data nusktags/ & 'Enu:R ,ppid:I ,mode:I ,', & 'ppi:R ,xpi(3):R ,npi(3):R ,', & 'cospibm:R ,norm:R ,nvtx0:I ,', & 'ppi0:R ,xpi0(3):R ,npi0(3):R ,', & 'cospi0bm:R ,gipart[0,100]:I ,gpos0(3):R ,', & 'gvec0(3):R ,gamom0:R '/ C--- 10a optional variables common /nuskopt/ spidSK, pgenSK, psi0SK, xsi0SK, nsi0SK, cossi0bmSK, & xsiSK, smechSK, prvtxSK, intgtSK, smedSK, gppidSK, xgpi0SK, & xgpiSK, pgpi0SK, gpmechSK, gpmedSK, prmechSK, prmedSK, & prdghtSK, sdghtSK, gpdghtSK, chainSK character*60 nusktagsopt(8) character*480 nusktagopt equivalence (nusktagopt, nusktagsopt) data nusktagsopt/ & 'spid:I ,pgen:I ,psi0:R ,', & 'xsi0(3):R ,nsi0(3):R ,cossi0bm:R ,', & 'xsi(3):R ,smech:I ,prvtx(3):R ,', & 'intgt:I ,smed:I ,gppid:I ,', & 'xgpi0(3):R ,xgpi(3):R ,pgpi0:R ,', & 'gpmech:I ,gpmed:I ,prmech:I ,', & 'prmed:I ,prdgh:I ,sdght:I ,', & 'gpdght:I ,chain:I '/ C--- 10b new variables common /nusk10b/ ngSK, gpxSK, gpySK, gpzSK, gcosbmSK, & gvxSK, gvySK, gvzSK, gpidSK, gmecSK character*60 nusktags10b(4) character*240 nusktag10b equivalence (nusktag10b, nusktags10b) data nusktags10b/ & 'ng:I::[0,25] ,gpx(ng):R ,gpy(ng):R ,', & 'gpz(ng):R ,gcosbm(ng):R ,gvx(ng):R ,', & 'gvy(ng):R ,gvz(ng):R ,gpid(ng):I ,', & 'gmec(ng):I '/ C--- 11a new variables common /nusk11a/ gmatSK, gdistcSK, gdistalSK, & gdisttiSK, gdistfeSK character*60 nusktags11a(2) character*120 nusktag11a equivalence (nusktag11a, nusktags11a) data nusktags11a/ & 'gmat(ng):I ,gdistc(ng):R ,gdistal(ng):R ,', & 'gdistti(ng):R ,gdistfe(ng):R '/ C common variables for the Detector setting integer NFD real BXFD(MAX_FD), BYFD(MAX_FD) ! beam center at ZFD real XFD(MAX_FD), YFD(MAX_FD), ZFD(MAX_FD), HFD(MAX_FD), VFD(MAX_FD) common /DEFFD/NFD, BXFD, BYFD, XFD, YFD, ZFD, HFD, VFD character*180 defFDtag character*60 defFDtags(3) equivalence (defFDtag, defFDtags) data defFDtags/ & 'NFD[0,10]:I ,BXFD(NFD):R ,BYFD(NFD):R ,', & 'XFD(NFD):R ,YFD(NFD):R ,ZFD(NFD):R ,', & 'HFD(NFD):R ,VFD(NFD):R '/ C Ntuple variables for neutrino at Near detectors c Modified by NA - 25/03/09 c Modified by NA - 17/04/09 c Modified by NA - 20/04/09 c Modified by NA - 03/07/09 c Modified by H.K 2010/07/22 c Modified by M.H. 2011/01/21 real EnuFD, ppiFD, xpiFD(3), npiFD(3), cospibmFD, normFD real ppi0FD, xpi0FD(3), npi0FD(3), cospi0bmFD real psi0FD, xsi0FD(3), nsi0FD(3), cossi0bmFD, xsiFD(3) real rFD, xnuFD, ynuFD, nnuFD(3) integer modeFD, ppidFD, nvtx0FD, spidFD integer idFD integer pgenFD integer intgtFD, smechFD, smedFD real prvtxFD(3) integer gppidFD real xgpi0FD(3), xgpiFD(3), pgpi0FD integer gpmechFD, gpmedFD, prmechFD, prmedFD integer prdghtFD, sdghtFD, gpdghtFD, chainFD integer gipartFD real gpos0FD(3), gvec0FD(3), gamom0FD real EnuSKFD, normSKFD real anormFD c--- integer ngFD real gpxFD(25),gpyFD(25),gpzFD(25),gcosbmFD(25) real gvxFD(25),gvyFD(25),gvzFD(25) integer gpidFD(25),gmecFD(25), gmatFD(25) real gdistcFD(25),gdistalFD(25),gdisttiFD(25),gdistfeFD(25) C--- 10a default variables common /nuFD/ EnuFD, ppidFD, modeFD, ppiFD, xpiFD, npiFD, & cospibmFD, normFD, nvtx0FD, ppi0FD, xpi0FD, npi0FD, cospi0bmFD, & rFD, xnuFD, ynuFD, nnuFD, idFD, & gipartFD, gpos0FD, gvec0FD, gamom0FD character*60 nuFDtags(8) character*480 nuFDtag equivalence (nuFDtag, nuFDtags) data nuFDtags/ & 'Enu:R ,ppid:I ,mode:I ,', & 'ppi:R ,xpi(3):R ,npi(3):R ,', & 'cospibm:R ,norm:R ,nvtx0:I ,', & 'ppi0:R ,xpi0(3):R ,npi0(3):R ,', & 'cospi0bm:R ,rnu:R ,xnu:R ,', & 'ynu:R ,nnu(3):R ,idFD:I ,', & 'gipart[0,100]:I ,gpos0(3):R ,gvec0(3):R ,', & 'gamom0:R '/ C--- 10a optional variables common /nuFDopt/ & spidFD, pgenFD, psi0FD, xsi0FD, nsi0FD, cossi0bmFD, xsiFD, smechFD, & intgtFD, prvtxFD, smedFD, gppidFD, xgpi0FD, xgpiFD, pgpi0FD, & gpmechFD, gpmedFD, prmechFD, prmedFD, & prdghtFD, sdghtFD, gpdghtFD, chainFD character*60 nuFDtagsopt(8) character*480 nuFDtagopt equivalence (nuFDtagopt, nuFDtagsopt) data nuFDtagsopt/ & ' ,spid:I ,pgen:I ,', & 'psi0:R ,xsi0(3):R ,nsi0(3):R ,', & 'cossi0bm:R ,xsi(3):R ,smech:I ,', & 'intgt:I ,prvtx(3):R ,smed:I ,', & 'gppid:I ,xgpi0(3):R ,xgpi(3):R ,', & 'pgpi0:R ,gpmech:I ,gpmed:I ,', & 'prmech:I ,prmed:I ,prdght:I ,', & 'sdght:I ,gpdght:I ,chain:I '/ C--- 10b new variables common /nuFD10b/ & ngFD, gpxFD, gpyFD, gpzFD, gcosbmFD, gvxFD, gvyFD, gvzFD, & gpidFD, gmecFD, EnuSKFD, normSKFD, anormFD character*60 nuFDtags10b(5) character*300 nuFDtag10b equivalence (nuFDtag10b, nuFDtags10b) data nuFDtags10b/ & 'ng:I::[0,25] ,gpx(ng):R ,gpy(ng):R ,', & 'gpz(ng):R ,gcosbm(ng):R ,gvx(ng):R ,', & 'gvy(ng):R ,gvz(ng):R ,gpid(ng):I ,', & 'gmec(ng):I ,EnuSK:R ,normSK:R ,', & 'anorm:R '/ common /nuFD11a/ & gmatFD, gdistcFD, gdistalFD, gdisttiFD, gdistfeFD character*60 nuFDtags11a(2) character*120 nuFDtag11a equivalence (nuFDtag11a, nuFDtags11a) data nuFDtags11a/ & 'gmat(ng):I ,gdistc(ng):R ,gdistal(ng):R ,', & 'gdistti(ng):R ,gdistfe(ng):R '/ CHGEN*END