95 {
97 Gaudi::svcLocator() -> service(
"MessageSvc",
msgSvc);
98 MsgStream log(
msgSvc,
"MdcCalConstMgr");
99 log << MSG::WARNING << "read calibration data directly from run directory"
100 << endreq;
101
102 TFile fconst("MdcCalibConst.root");
103 log << MSG::INFO << "open file" << endreq;
104
105
106 int i;
108 double xtpar;
109 int entry;
110 TTree* xttree = (TTree*)fconst.Get("XtTree");
113 entry = (int)xttree -> GetEntries();
114 for(i=0; i<entry; i++){
116 calconst -> fillXtpar(
key, xtpar);
117 }
118 log << MSG::INFO << "read XTtree" << endreq;
119
120
121 double t0;
122 double delt0;
123 TTree* t0tree = (TTree*)fconst.Get("T0Tree");
126 entry = (int)t0tree -> GetEntries();
127 for(i=0; i<entry; i++){
129 calconst -> fillT0(t0);
130 calconst -> fillDelT0(delt0);
131 }
132 log << MSG::INFO << "read XTtree" << endreq;
133
134
135 double qtpar0;
136 double qtpar1;
137 TTree* qttree = (TTree*)fconst.Get("QtTree");
140 entry = (int)qttree -> GetEntries();
141 for(i=0; i<entry; i++){
143 calconst -> fillQtpar0(qtpar0);
144 calconst -> fillQtpar1(qtpar1);
145 }
146
147
148 double sdpar;
149 TTree* sdtree = (TTree*)fconst.Get("SdTree");
152 entry = sdtree -> GetEntries();
153 for(i=0; i<entry; i++){
155 calconst -> fillSdpar(
key, sdpar);
156 }
157
158 fconst.Close();
159
160 log << MSG::INFO << "read MdcCalibConst over" << endreq;
161}
data SetBranchAddress("time",&time)
*************DOUBLE PRECISION m_pi *DOUBLE PRECISION m_HvecTau2 DOUBLE PRECISION m_HvClone2 DOUBLE PRECISION m_gamma1 DOUBLE PRECISION m_gamma2 DOUBLE PRECISION m_thet1 DOUBLE PRECISION m_thet2 INTEGER m_IFPHOT *COMMON c_Taupair $ !Spin Polarimeter vector first Tau $ !Spin Polarimeter vector second Tau $ !Clone Spin Polarimeter vector first Tau $ !Clone Spin Polarimeter vector second Tau $ !Random Euler angle for cloning st tau $ !Random Euler angle for cloning st tau $ !Random Euler angle for cloning st tau $ !Random Euler angle for cloning nd tau $ !Random Euler angle for cloning nd tau $ !Random Euler angle for cloning nd tau $ !phi of HvecTau1 $ !theta of HvecTau1 $ !phi of HvecTau2 $ !theta of HvecTau2 $ !super key