| 64 |
memset(mip, 0, 2*22*96*sizeof(Float_t)); |
memset(mip, 0, 2*22*96*sizeof(Float_t)); |
| 65 |
memset(base, 0, 2*22*6*sizeof(Float_t)); |
memset(base, 0, 2*22*6*sizeof(Float_t)); |
| 66 |
memset(sbase, 0, 2*22*6*sizeof(Float_t)); |
memset(sbase, 0, 2*22*6*sizeof(Float_t)); |
| 67 |
|
memset(obadmask, 0, 2*22*96*sizeof(Int_t)); |
| 68 |
|
memset(obadpulsemask, 0, 2*22*6*sizeof(Int_t)); |
| 69 |
|
memset(ctprecor, 0, 2*22*6*sizeof(Float_t)); |
| 70 |
|
memset(ctneigcor, 0, 2*22*6*sizeof(Float_t)); |
| 71 |
calopar1 = true; |
calopar1 = true; |
| 72 |
calopar2 = true; |
calopar2 = true; |
| 73 |
calopar3 = true; |
calopar3 = true; |
| 82 |
|
|
| 83 |
void CaloLevel0::SetCrossTalk(Bool_t ct){ |
void CaloLevel0::SetCrossTalk(Bool_t ct){ |
| 84 |
crosst = ct; |
crosst = ct; |
| 85 |
}; |
} |
| 86 |
|
|
| 87 |
|
void CaloLevel0::SetCrossTalkType(Bool_t ct){ |
| 88 |
|
ctground = ct; |
| 89 |
|
} |
| 90 |
|
|
| 91 |
void CaloLevel0::SetVerbose(Bool_t ct){ |
void CaloLevel0::SetVerbose(Bool_t ct){ |
| 92 |
verbose = ct; |
verbose = ct; |
| 93 |
}; |
} |
| 94 |
|
|
| 95 |
/** |
/** |
| 96 |
* Initialize CaloLevel0 object |
* Initialize CaloLevel0 object |
| 97 |
**/ |
**/ |
| 98 |
void CaloLevel0::ProcessingInit(TSQLServer *dbc, UInt_t hs, Int_t &sgnl, TTree *l0tree, Bool_t isdeb, Bool_t isverb){ |
void CaloLevel0::ProcessingInit(GL_TABLES *glt, UInt_t hs, Int_t &sgnl, TTree *l0tree, Bool_t isdeb, Bool_t isverb){ |
| 99 |
|
// |
| 100 |
|
const TString host = glt->CGetHost(); |
| 101 |
|
const TString user = glt->CGetUser(); |
| 102 |
|
const TString psw = glt->CGetPsw(); |
| 103 |
|
TSQLServer *dbc = TSQLServer::Connect(host.Data(),user.Data(),psw.Data()); |
| 104 |
|
if ( !dbc->IsConnected() ) throw -116; |
| 105 |
|
stringstream myquery; |
| 106 |
|
myquery.str(""); |
| 107 |
|
myquery << "SET time_zone='+0:00'"; |
| 108 |
|
dbc->Query(myquery.str().c_str()); |
| 109 |
// |
// |
| 110 |
debug = isdeb; |
debug = isdeb; |
| 111 |
verbose = isverb; |
verbose = isverb; |
| 182 |
// |
// |
| 183 |
delete glcalo; |
delete glcalo; |
| 184 |
delete glroot; |
delete glroot; |
| 185 |
|
dbc->Close(); |
| 186 |
|
delete dbc; |
| 187 |
// |
// |
| 188 |
return; |
return; |
| 189 |
// |
// |
| 190 |
} |
} |
| 191 |
|
|
| 192 |
Int_t CaloLevel0::ChkCalib(TSQLServer *dbc, UInt_t atime){ |
Int_t CaloLevel0::ChkCalib(GL_TABLES *glt, UInt_t atime){ |
| 193 |
Int_t sgnl = 0; |
Int_t sgnl = 0; |
| 194 |
for ( Int_t s = 0; s < 4; s++){ |
for ( Int_t s = 0; s < 4; s++){ |
| 195 |
if ( atime > totime[s] ){ |
if ( atime > totime[s] ){ |
| 196 |
if ( !dbc->IsConnected() ) throw -116; |
sgnl = Update(glt,atime,s); |
|
sgnl = Update(dbc,atime,s); |
|
| 197 |
if ( sgnl < 0 ) return(sgnl); |
if ( sgnl < 0 ) return(sgnl); |
| 198 |
}; |
}; |
| 199 |
}; |
}; |
| 200 |
return(sgnl); |
return(sgnl); |
| 201 |
} |
} |
| 202 |
|
|
| 203 |
Int_t CaloLevel0::ChkParam(TSQLServer *dbc, UInt_t runheader, Bool_t mechal){ |
Int_t CaloLevel0::ChkParam(GL_TABLES *glt, UInt_t runheader, Bool_t mechal){ |
| 204 |
|
const TString host = glt->CGetHost(); |
| 205 |
|
const TString user = glt->CGetUser(); |
| 206 |
|
const TString psw = glt->CGetPsw(); |
| 207 |
|
TSQLServer *dbc = TSQLServer::Connect(host.Data(),user.Data(),psw.Data()); |
| 208 |
|
if ( !dbc->IsConnected() ) throw -116; |
| 209 |
|
stringstream myquery; |
| 210 |
|
myquery.str(""); |
| 211 |
|
myquery << "SET time_zone='+0:00'"; |
| 212 |
|
dbc->Query(myquery.str().c_str()); |
| 213 |
|
// |
| 214 |
stringstream calfile; |
stringstream calfile; |
| 215 |
stringstream bmfile; |
stringstream bmfile; |
| 216 |
stringstream aligfile; |
stringstream aligfile; |
| 252 |
for (Int_t k = 0; k < 22; k++ ){ |
for (Int_t k = 0; k < 22; k++ ){ |
| 253 |
for (Int_t l = 0; l < 96; l++ ){ |
for (Int_t l = 0; l < 96; l++ ){ |
| 254 |
fread(&mip[m][k][l],sizeof(mip[m][k][l]),1,f); |
fread(&mip[m][k][l],sizeof(mip[m][k][l]),1,f); |
| 255 |
|
if ( debug ) printf(" %f \n",mip[m][k][l]); |
| 256 |
}; |
}; |
| 257 |
}; |
}; |
| 258 |
}; |
}; |
| 307 |
fread(&tmp,sizeof(clevel1->xalig),1,f); |
fread(&tmp,sizeof(clevel1->xalig),1,f); |
| 308 |
fread(&tmp,sizeof(clevel1->yalig),1,f); |
fread(&tmp,sizeof(clevel1->yalig),1,f); |
| 309 |
fread(&tmp,sizeof(clevel1->zalig),1,f); |
fread(&tmp,sizeof(clevel1->zalig),1,f); |
| 310 |
|
// clevel1->zalig = -265.82; |
| 311 |
// |
// |
| 312 |
}; |
}; |
| 313 |
fread(&clevel1->emin,sizeof(clevel1->emin),1,f); |
fread(&clevel1->emin,sizeof(clevel1->emin),1,f); |
| 367 |
}; |
}; |
| 368 |
// |
// |
| 369 |
delete glparam; |
delete glparam; |
| 370 |
|
dbc->Close(); |
| 371 |
|
delete dbc; |
| 372 |
// |
// |
| 373 |
return(0); |
return(0); |
| 374 |
} |
} |
| 375 |
|
|
| 376 |
|
Int_t CaloLevel0::CalcCrossTalkCorr(GL_TABLES *glt, UInt_t runheader){ |
| 377 |
|
// |
| 378 |
|
if ( ctground ) return(0); |
| 379 |
|
// |
| 380 |
|
const TString host = glt->CGetHost(); |
| 381 |
|
const TString user = glt->CGetUser(); |
| 382 |
|
const TString psw = glt->CGetPsw(); |
| 383 |
|
TSQLServer *dbc = TSQLServer::Connect(host.Data(),user.Data(),psw.Data()); |
| 384 |
|
if ( !dbc->IsConnected() ) throw -116; |
| 385 |
|
stringstream myquery; |
| 386 |
|
myquery.str(""); |
| 387 |
|
myquery << "SET time_zone='+0:00'"; |
| 388 |
|
dbc->Query(myquery.str().c_str()); |
| 389 |
|
// |
| 390 |
|
stringstream bmfile; |
| 391 |
|
Int_t error = 0; |
| 392 |
|
ifstream badfile; |
| 393 |
|
GL_PARAM *glparam = new GL_PARAM(); |
| 394 |
|
// |
| 395 |
|
// determine where I can find file with offline bad pulser mask |
| 396 |
|
// |
| 397 |
|
error = 0; |
| 398 |
|
error = glparam->Query_GL_PARAM(runheader,105,dbc); |
| 399 |
|
if ( error < 0 ) return(error); |
| 400 |
|
// |
| 401 |
|
bmfile.str(""); |
| 402 |
|
bmfile << glparam->PATH.Data() << "/"; |
| 403 |
|
bmfile << glparam->NAME.Data(); |
| 404 |
|
// |
| 405 |
|
if ( verbose ) printf("\n Using bad pulser offline mask file: \n %s \n\n",bmfile.str().c_str()); |
| 406 |
|
badfile.open(bmfile.str().c_str()); |
| 407 |
|
if ( !badfile ){ |
| 408 |
|
if ( verbose ) printf(" CALORIMETER - ERROR: no bad pulser offline mask file!\n"); |
| 409 |
|
return(-115); |
| 410 |
|
}; |
| 411 |
|
// |
| 412 |
|
Bool_t isdone = false; |
| 413 |
|
Int_t bad = 0; |
| 414 |
|
Int_t view = 1; |
| 415 |
|
Int_t pre = 0; |
| 416 |
|
Int_t plane = 21; |
| 417 |
|
while ( !isdone ) { |
| 418 |
|
badfile >> bad; |
| 419 |
|
obadpulsemask[view][plane][pre] = bad; |
| 420 |
|
if ( debug && bad ) printf(" SETTING view %i plane %i pre %i BAD = %i \n",view,plane,pre,bad); |
| 421 |
|
pre++; |
| 422 |
|
if ( pre > 5 ){ |
| 423 |
|
pre = 0; |
| 424 |
|
plane--; |
| 425 |
|
if ( plane < 0 ){ |
| 426 |
|
plane = 21; |
| 427 |
|
view--; |
| 428 |
|
}; |
| 429 |
|
if ( view < 0 ) isdone = true; |
| 430 |
|
}; |
| 431 |
|
}; |
| 432 |
|
// |
| 433 |
|
delete glparam; |
| 434 |
|
badfile.close(); |
| 435 |
|
// |
| 436 |
|
// Let's start with cross-talk correction calculation |
| 437 |
|
// |
| 438 |
|
GL_CALOPULSE_CALIB *glp = new GL_CALOPULSE_CALIB(); |
| 439 |
|
Float_t adcp[2][22][96]; |
| 440 |
|
Float_t adcpcal[2][22][96]; |
| 441 |
|
memset(adcp , 0, 2*22*96*sizeof(Float_t)); |
| 442 |
|
memset(adcpcal , 0, 2*22*96*sizeof(Float_t)); |
| 443 |
|
// |
| 444 |
|
UInt_t pampli = 0; |
| 445 |
|
for (Int_t s=0; s<4; s++){ |
| 446 |
|
// |
| 447 |
|
// Save into matrix adcp the values of the highest pulse calibration (pulse amplitude = 2) |
| 448 |
|
// |
| 449 |
|
pampli = 2; |
| 450 |
|
error = 0; |
| 451 |
|
error = glp->Query_GL_CALOPULSE_CALIB(runheader,s,pampli,dbc); |
| 452 |
|
if ( error < 0 ){ |
| 453 |
|
if ( verbose ) printf(" CALORIMETER - ERROR: error from GLTables\n"); |
| 454 |
|
return(error); |
| 455 |
|
}; |
| 456 |
|
// |
| 457 |
|
UInt_t idcalib = glp->ID_ROOT_L0; |
| 458 |
|
UInt_t fromtime = glp->FROM_TIME; |
| 459 |
|
UInt_t calibno = glp->EV_ROOT; |
| 460 |
|
// |
| 461 |
|
// determine path and name and entry of the calibration file |
| 462 |
|
// |
| 463 |
|
GL_ROOT *glroot = new GL_ROOT(); |
| 464 |
|
if ( verbose ) printf("\n"); |
| 465 |
|
if ( verbose ) printf(" ** SECTION %i **\n",s); |
| 466 |
|
// |
| 467 |
|
error = 0; |
| 468 |
|
error = glroot->Query_GL_ROOT(idcalib,dbc); |
| 469 |
|
if ( error < 0 ){ |
| 470 |
|
if ( verbose ) printf(" CALORIMETER - ERROR: error from GLTables\n"); |
| 471 |
|
return(error); |
| 472 |
|
}; |
| 473 |
|
// |
| 474 |
|
stringstream name; |
| 475 |
|
name.str(""); |
| 476 |
|
name << glroot->PATH.Data() << "/"; |
| 477 |
|
name << glroot->NAME.Data(); |
| 478 |
|
// |
| 479 |
|
TString fcalname = (TString)name.str().c_str(); |
| 480 |
|
ifstream myfile; |
| 481 |
|
myfile.open(fcalname.Data()); |
| 482 |
|
if ( !myfile ){ |
| 483 |
|
return(-107); |
| 484 |
|
}; |
| 485 |
|
myfile.close(); |
| 486 |
|
// |
| 487 |
|
TFile *File = new TFile(fcalname.Data()); |
| 488 |
|
if ( !File ) return(-108); |
| 489 |
|
TTree *tr = (TTree*)File->Get("CalibCalPulse2"); |
| 490 |
|
if ( !tr ) return(-119); |
| 491 |
|
// |
| 492 |
|
TBranch *calo = tr->GetBranch("CalibCalPulse2"); |
| 493 |
|
// |
| 494 |
|
pamela::CalibCalPulse2Event *ce = 0; |
| 495 |
|
tr->SetBranchAddress("CalibCalPulse2", &ce); |
| 496 |
|
// |
| 497 |
|
Long64_t ncalibs = calo->GetEntries(); |
| 498 |
|
// |
| 499 |
|
if ( !ncalibs ) return(-110); |
| 500 |
|
// |
| 501 |
|
calo->GetEntry(calibno); |
| 502 |
|
if ( verbose ) printf(" PULSE2 using entry %u from file %s",calibno,fcalname.Data()); |
| 503 |
|
// |
| 504 |
|
// retrieve calibration table |
| 505 |
|
// |
| 506 |
|
if ( ce->pstwerr[s] && ce->pperror[s] == 0 && ce->unpackError == 0 ){ |
| 507 |
|
for ( Int_t d=0 ; d<11 ;d++ ){ |
| 508 |
|
for ( Int_t j=0; j<96 ;j++){ |
| 509 |
|
if ( s == 2 ){ |
| 510 |
|
adcp[0][2*d+1][j] = ce->calpuls[3][d][j]; |
| 511 |
|
}; |
| 512 |
|
if ( s == 3 ){ |
| 513 |
|
adcp[0][2*d][j] = ce->calpuls[1][d][j]; |
| 514 |
|
}; |
| 515 |
|
if ( s == 0 ){ |
| 516 |
|
adcp[1][2*d][j] = ce->calpuls[0][d][j]; |
| 517 |
|
}; |
| 518 |
|
if ( s == 1 ){ |
| 519 |
|
adcp[1][2*d+1][j] = ce->calpuls[2][d][j]; |
| 520 |
|
}; |
| 521 |
|
}; |
| 522 |
|
}; |
| 523 |
|
} else { |
| 524 |
|
if ( verbose ) printf(" CALORIMETER - ERROR: problems finding a good calibration in this file! \n\n "); |
| 525 |
|
return(-111); |
| 526 |
|
}; |
| 527 |
|
// |
| 528 |
|
File->Close(); |
| 529 |
|
delete glroot; |
| 530 |
|
// |
| 531 |
|
// Save into matrix adcpcal the calibrated values of the pulse calibration (subtraction of pulse amplitude = 0 relative to the pulse2 calibration used) |
| 532 |
|
// |
| 533 |
|
pampli = 0; |
| 534 |
|
error = 0; |
| 535 |
|
error = glp->Query_GL_CALOPULSE_CALIB(fromtime,s,pampli,dbc); |
| 536 |
|
if ( error < 0 ){ |
| 537 |
|
if ( verbose ) printf(" CALORIMETER - ERROR: error from GLTables\n"); |
| 538 |
|
return(error); |
| 539 |
|
}; |
| 540 |
|
// |
| 541 |
|
idcalib = glp->ID_ROOT_L0; |
| 542 |
|
calibno = glp->EV_ROOT; |
| 543 |
|
// |
| 544 |
|
// determine path and name and entry of the calibration file |
| 545 |
|
// |
| 546 |
|
glroot = new GL_ROOT(); |
| 547 |
|
if ( verbose ) printf("\n"); |
| 548 |
|
if ( verbose ) printf(" ** SECTION %i **\n",s); |
| 549 |
|
// |
| 550 |
|
error = 0; |
| 551 |
|
error = glroot->Query_GL_ROOT(idcalib,dbc); |
| 552 |
|
if ( error < 0 ){ |
| 553 |
|
if ( verbose ) printf(" CALORIMETER - ERROR: error from GLTables\n"); |
| 554 |
|
return(error); |
| 555 |
|
}; |
| 556 |
|
// |
| 557 |
|
name.str(""); |
| 558 |
|
name << glroot->PATH.Data() << "/"; |
| 559 |
|
name << glroot->NAME.Data(); |
| 560 |
|
// |
| 561 |
|
fcalname = (TString)name.str().c_str(); |
| 562 |
|
myfile.open(fcalname.Data()); |
| 563 |
|
if ( !myfile ){ |
| 564 |
|
return(-107); |
| 565 |
|
}; |
| 566 |
|
myfile.close(); |
| 567 |
|
// |
| 568 |
|
TFile *File1 = new TFile(fcalname.Data()); |
| 569 |
|
if ( !File1 ) return(-108); |
| 570 |
|
TTree *tr1 = (TTree*)File1->Get("CalibCalPulse1"); |
| 571 |
|
if ( !tr1 ) return(-120); |
| 572 |
|
// |
| 573 |
|
TBranch *calo1 = tr1->GetBranch("CalibCalPulse1"); |
| 574 |
|
// |
| 575 |
|
pamela::CalibCalPulse1Event *ce1 = 0; |
| 576 |
|
tr1->SetBranchAddress("CalibCalPulse1", &ce1); |
| 577 |
|
// |
| 578 |
|
ncalibs = calo1->GetEntries(); |
| 579 |
|
// |
| 580 |
|
if ( !ncalibs ) return(-110); |
| 581 |
|
// |
| 582 |
|
calo1->GetEntry(calibno); |
| 583 |
|
if ( verbose ) printf(" PULSE1 using entry %u from file %s",calibno,fcalname.Data()); |
| 584 |
|
// |
| 585 |
|
// retrieve calibration table |
| 586 |
|
// |
| 587 |
|
if ( ce1->pstwerr[s] && ce1->pperror[s] == 0 && ce1->unpackError == 0 ){ |
| 588 |
|
for ( Int_t d=0 ; d<11 ;d++ ){ |
| 589 |
|
for ( Int_t j=0; j<96 ;j++){ |
| 590 |
|
if ( s == 2 ){ |
| 591 |
|
adcpcal[0][2*d+1][j] = adcp[0][2*d+1][j] - ce1->calpuls[3][d][j]; |
| 592 |
|
}; |
| 593 |
|
if ( s == 3 ){ |
| 594 |
|
adcpcal[0][2*d][j] = adcp[0][2*d][j] - ce1->calpuls[1][d][j]; |
| 595 |
|
}; |
| 596 |
|
if ( s == 0 ){ |
| 597 |
|
adcpcal[1][2*d][j] = adcp[1][2*d][j] - ce1->calpuls[0][d][j]; |
| 598 |
|
}; |
| 599 |
|
if ( s == 1 ){ |
| 600 |
|
adcpcal[1][2*d+1][j] = adcp[1][2*d+1][j] - ce1->calpuls[2][d][j]; |
| 601 |
|
}; |
| 602 |
|
}; |
| 603 |
|
}; |
| 604 |
|
} else { |
| 605 |
|
if ( verbose ) printf(" CALORIMETER - ERROR: problems finding a good calibration in this file! \n\n "); |
| 606 |
|
return(-111); |
| 607 |
|
}; |
| 608 |
|
// |
| 609 |
|
File1->Close(); |
| 610 |
|
// |
| 611 |
|
delete glroot; |
| 612 |
|
// |
| 613 |
|
};// loop on the four sections |
| 614 |
|
// |
| 615 |
|
// |
| 616 |
|
delete glp; |
| 617 |
|
dbc->Close(); |
| 618 |
|
delete dbc; |
| 619 |
|
// |
| 620 |
|
// Ok, now we can try to calculate the cross-talk correction for each pre-amplifier |
| 621 |
|
// |
| 622 |
|
for ( Int_t v=0; v<2; v++){ |
| 623 |
|
if ( debug ) printf(" \n\n NEW VIEW \n"); |
| 624 |
|
for ( Int_t p=0; p<22; p++){ |
| 625 |
|
for ( Int_t npre=0; npre<6; npre++){ |
| 626 |
|
ctprecor[v][p][npre] = 1000.; |
| 627 |
|
ctneigcor[v][p][npre] = 1000.; |
| 628 |
|
Int_t str0=npre*16; |
| 629 |
|
Int_t str16= -1 + (1+npre)*16; |
| 630 |
|
// |
| 631 |
|
UInt_t neigc = 0; |
| 632 |
|
UInt_t farc = 0; |
| 633 |
|
UInt_t pulsc = 0; |
| 634 |
|
Float_t sigpulsed = 0.; |
| 635 |
|
Float_t neigbase = 0.; |
| 636 |
|
Float_t farbase = 0.; |
| 637 |
|
// |
| 638 |
|
// Loop over the strip of the pre and sum all signal far away from pulsed strip, signal in the neighbour(s) strip(s) and save the pulsed signal |
| 639 |
|
// moreover count the number of strips in each case |
| 640 |
|
// |
| 641 |
|
for (Int_t s=str0; s<=str16; s++){ |
| 642 |
|
if ( adcpcal[v][p][s] > 10000.){ |
| 643 |
|
sigpulsed = adcpcal[v][p][s]; |
| 644 |
|
pulsc++; |
| 645 |
|
if ( s > str0 ){ |
| 646 |
|
neigbase += adcpcal[v][p][s-1]; |
| 647 |
|
neigc++; |
| 648 |
|
farbase -= adcpcal[v][p][s-1]; |
| 649 |
|
farc--; |
| 650 |
|
}; |
| 651 |
|
if ( s < str16 ){ |
| 652 |
|
neigbase += adcpcal[v][p][s+1]; |
| 653 |
|
neigc++; |
| 654 |
|
farbase -= adcpcal[v][p][s+1]; |
| 655 |
|
farc--; |
| 656 |
|
}; |
| 657 |
|
} else { |
| 658 |
|
farc++; |
| 659 |
|
farbase += adcpcal[v][p][s]; |
| 660 |
|
}; |
| 661 |
|
}; |
| 662 |
|
// |
| 663 |
|
// Now calculate the corrections |
| 664 |
|
// |
| 665 |
|
Float_t avefarbase = 0.; |
| 666 |
|
if ( farc ) avefarbase = farbase/(Float_t)farc; |
| 667 |
|
Float_t aveneigbase = 0.; |
| 668 |
|
if ( neigc ) aveneigbase = neigbase/(Float_t)neigc; |
| 669 |
|
// |
| 670 |
|
if ( pulsc == 1 && farc && neigc ){ |
| 671 |
|
ctprecor[v][p][npre] = -avefarbase/(sigpulsed+fabs(avefarbase)); |
| 672 |
|
ctneigcor[v][p][npre] = fabs(aveneigbase-avefarbase)/(sigpulsed+fabs(avefarbase)); |
| 673 |
|
if ( debug ) printf(" Cross-talk correction View %i Plane %i Pre %i : pre-correction: %f neighbour strips correction %f \n",v,p,npre,ctprecor[v][p][npre],ctneigcor[v][p][npre]); |
| 674 |
|
} else { |
| 675 |
|
// |
| 676 |
|
// did not find the pulsed strip or more than one pulsed strip found! |
| 677 |
|
// |
| 678 |
|
if ( debug ) printf(" Problems finding the cross-talk corrections: \n View %i Plane %i Pre %i number of pulsed strip %i \n Average faraway baseline %f number of strips %i Average neighbour baseline %f number of neighbour strips %i \n",v,p,npre,pulsc,avefarbase,farc,aveneigbase,neigc); |
| 679 |
|
// |
| 680 |
|
}; |
| 681 |
|
}; |
| 682 |
|
if ( debug ) printf(" \n ==================== \n"); |
| 683 |
|
}; |
| 684 |
|
}; |
| 685 |
|
// |
| 686 |
|
// Check the calculated corrections |
| 687 |
|
// |
| 688 |
|
Int_t opre=0; |
| 689 |
|
Int_t ppre=0; |
| 690 |
|
Bool_t found = false; |
| 691 |
|
for ( Int_t v=0; v<2; v++){ |
| 692 |
|
for ( Int_t p=0; p<22; p++){ |
| 693 |
|
for ( Int_t npre=0; npre<6; npre++){ |
| 694 |
|
if ( ctprecor[v][p][npre] == 1000. || ctneigcor[v][p][npre] == 1000. || obadpulsemask[v][p][npre] != 0 ){ |
| 695 |
|
if ( debug ) printf(" Cross-talk correction CHANGED for view %i Plane %i Pre %i\n BEFORE: pre-correction: %f neighbour strips correction %f \n",v,p,npre,ctprecor[v][p][npre],ctneigcor[v][p][npre]); |
| 696 |
|
if ( npre%2 ){ |
| 697 |
|
opre = npre-1; |
| 698 |
|
} else { |
| 699 |
|
opre = npre+1; |
| 700 |
|
}; |
| 701 |
|
if ( ctprecor[v][p][opre] == 1000. || ctneigcor[v][p][opre] == 1000. || obadpulsemask[v][p][opre] != 0 ){ |
| 702 |
|
ppre=0; |
| 703 |
|
found = false; |
| 704 |
|
while ( ppre < 6 ){ |
| 705 |
|
if ( ctprecor[v][p][ppre] != 1000. && ctneigcor[v][p][ppre] != 1000. && !obadpulsemask[v][p][ppre] ){ |
| 706 |
|
found = true; |
| 707 |
|
ctprecor[v][p][npre] = ctprecor[v][p][ppre]; |
| 708 |
|
ctneigcor[v][p][npre] = ctneigcor[v][p][ppre]; |
| 709 |
|
break; |
| 710 |
|
}; |
| 711 |
|
ppre++; |
| 712 |
|
}; |
| 713 |
|
if ( !found ){ |
| 714 |
|
if ( verbose ) printf(" WARNING: cannot find a good cross-talk correction for view %i plane %i pre %i \n Setting to default values 0.002 0.002\n",v,p,npre); |
| 715 |
|
ctprecor[v][p][npre] = 0.002; |
| 716 |
|
ctneigcor[v][p][npre] = 0.002; |
| 717 |
|
}; |
| 718 |
|
} else { |
| 719 |
|
ctprecor[v][p][npre] = ctprecor[v][p][opre]; |
| 720 |
|
ctneigcor[v][p][npre] = ctneigcor[v][p][opre]; |
| 721 |
|
}; |
| 722 |
|
if ( debug ) printf(" AFTER: pre-correction: %f neighbour strips correction %f \n",ctprecor[v][p][npre],ctneigcor[v][p][npre]); |
| 723 |
|
}; |
| 724 |
|
}; |
| 725 |
|
}; |
| 726 |
|
}; |
| 727 |
|
// |
| 728 |
|
return(0); |
| 729 |
|
} |
| 730 |
|
|
| 731 |
void CaloLevel0::FindBaseRaw(Int_t l, Int_t m, Int_t pre){ |
void CaloLevel0::FindBaseRaw(Int_t l, Int_t m, Int_t pre){ |
| 732 |
Float_t minstrip = 100000.; |
Float_t minstrip = 100000.; |
| 782 |
// |
// |
| 783 |
// if it was not a selftrigger event, could it ever been a selftrigger event? if so trigty = 3. |
// if it was not a selftrigger event, could it ever been a selftrigger event? if so trigty = 3. |
| 784 |
// |
// |
| 785 |
|
clevel2->nsatstrip = 0.; |
| 786 |
Int_t val = 0; |
Int_t val = 0; |
| 787 |
Int_t del = 1100; |
Int_t del = 1100; |
| 788 |
|
for (Int_t sec = 0; sec < 4; sec++){ |
| 789 |
|
for (Int_t dsec = 0; dsec < 7; dsec++){ |
| 790 |
|
val = (Int_t)de->calselftrig[sec][dsec]; |
| 791 |
|
del = delay(val); |
| 792 |
|
clevel2->selfdelay[sec][dsec] = del; |
| 793 |
|
}; |
| 794 |
|
}; |
| 795 |
|
val = 0; |
| 796 |
|
del = 1100; |
| 797 |
if ( clevel2->trigty != 2. ){ |
if ( clevel2->trigty != 2. ){ |
| 798 |
Bool_t ck = false; |
Bool_t ck = false; |
| 799 |
for (Int_t sec = 0; sec < 4; sec++){ |
for (Int_t sec = 0; sec < 4; sec++){ |
| 1024 |
ipre = ip[i] - 1; |
ipre = ip[i] - 1; |
| 1025 |
}; |
}; |
| 1026 |
for (Int_t j = ipre*16 ; j < (ipre+1)*16 ; j++){ |
for (Int_t j = ipre*16 ; j < (ipre+1)*16 ; j++){ |
| 1027 |
clevel1->estrip[j][m][l] += (qpre[ipre] - qpre[ip[i]]) * 0.00478; |
if ( !ctground ){ |
| 1028 |
|
clevel1->estrip[j][m][l] += (qpre[ipre] - qpre[ip[i]]) * ctprecor[l][m][ipre]; |
| 1029 |
|
} else { |
| 1030 |
|
clevel1->estrip[j][m][l] += (qpre[ipre] - qpre[ip[i]]) * 0.00478; |
| 1031 |
|
}; |
| 1032 |
}; |
}; |
| 1033 |
}; |
}; |
| 1034 |
if (ck == 2){ |
if (ck == 2){ |
| 1035 |
for (Int_t j = i*32 ; j < (i+1)*32 ; j++){ |
for (Int_t j = i*32 ; j < (i+1)*32 ; j++){ |
| 1036 |
ipre = j/16 + 1; |
ipre = j/16 + 1; |
| 1037 |
clevel1->estrip[j][m][l] += qpre[ipre] * 0.00478; |
if ( !ctground ){ |
| 1038 |
|
clevel1->estrip[j][m][l] += qpre[ipre] * ctprecor[l][m][ipre]; |
| 1039 |
|
} else { |
| 1040 |
|
clevel1->estrip[j][m][l] += qpre[ipre] * 0.00478; |
| 1041 |
|
}; |
| 1042 |
}; |
}; |
| 1043 |
}; |
}; |
| 1044 |
}; |
}; |
| 1053 |
Int_t j4 = -4; |
Int_t j4 = -4; |
| 1054 |
Int_t jjj = -3; |
Int_t jjj = -3; |
| 1055 |
Int_t jj = -2; |
Int_t jj = -2; |
| 1056 |
for (Int_t j = 0 ; j < 100 ; j++){ |
Int_t jjpre = -1; |
| 1057 |
|
Int_t jjjpre = -1; |
| 1058 |
|
for (Int_t j = 0 ; j < 100 ; j++){ |
| 1059 |
jj++; |
jj++; |
| 1060 |
jjj++; |
jjj++; |
| 1061 |
j4++; |
j4++; |
| 1062 |
if ( j < 96 ) ene[j] = clevel1->estrip[j][m][l]; |
if ( j < 96 ) ene[j] = clevel1->estrip[j][m][l]; |
| 1063 |
if ( crosst ){ |
if ( crosst ){ |
| 1064 |
if ( jj >= 0 && jj < 96 ){ |
if ( jj >= 0 && jj < 96 ){ |
| 1065 |
if ( jj != 0 && jj != 32 && jj != 64 ) ene[jj-1] += -clevel1->estrip[jj][m][l] * 0.01581; |
if ( !ctground ){ |
| 1066 |
if ( jj != 31 && jj != 63 && jj != 95 ) ene[jj+1] += -clevel1->estrip[jj][m][l] * 0.01581; |
if ( jj%16 == 0 ) jjpre++; |
| 1067 |
|
if ( jj != 0 && jj != 32 && jj != 64 ) ene[jj-1] += -clevel1->estrip[jj][m][l] * ctneigcor[l][m][jjpre]; |
| 1068 |
|
if ( jj != 31 && jj != 63 && jj != 95 ) ene[jj+1] += -clevel1->estrip[jj][m][l] * ctneigcor[l][m][jjpre]; |
| 1069 |
|
} else { |
| 1070 |
|
if ( jj != 0 && jj != 32 && jj != 64 ) ene[jj-1] += -clevel1->estrip[jj][m][l] * 0.01581; |
| 1071 |
|
if ( jj != 31 && jj != 63 && jj != 95 ) ene[jj+1] += -clevel1->estrip[jj][m][l] * 0.01581; |
| 1072 |
|
}; |
| 1073 |
}; |
}; |
| 1074 |
if ( jjj >= 0 && jjj < 96 ){ |
if ( jjj >= 0 && jjj < 96 ){ |
| 1075 |
if ( jjj != 0 && jjj != 32 && jjj != 64 ) clevel1->estrip[jjj-1][m][l] += -ene[jjj] * 0.01581; |
if ( !ctground ){ |
| 1076 |
if ( jjj != 31 && jjj != 63 && jjj != 95 ) clevel1->estrip[jjj+1][m][l] += -ene[jjj] * 0.01581; |
if ( jjj%16 == 0 ) jjjpre++; |
| 1077 |
|
if ( jjj != 0 && jjj != 32 && jjj != 64 ) clevel1->estrip[jjj-1][m][l] += -ene[jjj] * ctneigcor[l][m][jjjpre]; |
| 1078 |
|
if ( jjj != 31 && jjj != 63 && jjj != 95 ) clevel1->estrip[jjj+1][m][l] += -ene[jjj] * ctneigcor[l][m][jjjpre]; |
| 1079 |
|
} else { |
| 1080 |
|
if ( jjj != 0 && jjj != 32 && jjj != 64 ) clevel1->estrip[jjj-1][m][l] += -ene[jjj] * 0.01581; |
| 1081 |
|
if ( jjj != 31 && jjj != 63 && jjj != 95 ) clevel1->estrip[jjj+1][m][l] += -ene[jjj] * 0.01581; |
| 1082 |
|
}; |
| 1083 |
}; |
}; |
| 1084 |
}; |
}; |
| 1085 |
if ( j4 >= 0 && j4 < 96 ){ |
if ( j4 >= 0 && j4 < 96 ){ |
| 1089 |
if ( obadmask[l][m][j4] == 1 || clevel1->estrip[j4][m][l] <= clevel1->emin || calrms[l][m][j4] > 26 ){ |
if ( obadmask[l][m][j4] == 1 || clevel1->estrip[j4][m][l] <= clevel1->emin || calrms[l][m][j4] > 26 ){ |
| 1090 |
clevel1->estrip[j4][m][l] = 0.; |
clevel1->estrip[j4][m][l] = 0.; |
| 1091 |
}; |
}; |
| 1092 |
// |
// |
| 1093 |
// code and save the energy for each strip in svstrip |
// code and save the energy for each strip in svstrip |
| 1094 |
// |
// |
| 1095 |
if ( clevel1->estrip[j4][m][l] > clevel1->emin ){ |
if ( clevel1->estrip[j4][m][l] > clevel1->emin ){ |
| 1096 |
// |
// |
| 1097 |
|
Float_t savel1 = clevel1->estrip[j4][m][l]; |
| 1098 |
|
if ( dexyc[j4][m][l] == 32767. ){ |
| 1099 |
|
savel1 += 5000.; |
| 1100 |
|
clevel2->nsatstrip += 1.; |
| 1101 |
|
}; |
| 1102 |
|
// |
| 1103 |
tim = 100000.; |
tim = 100000.; |
| 1104 |
plo = m; |
plo = m; |
| 1105 |
fbi = 0; |
fbi = 0; |
| 1106 |
if ( clevel1->estrip[j4][m][l] > 0.99995 ){ |
if ( savel1 > 0.99995 ){ |
| 1107 |
tim = 10000.; |
tim = 10000.; |
| 1108 |
plo = m; |
plo = m; |
| 1109 |
fbi = 1; |
fbi = 1; |
| 1110 |
}; |
}; |
| 1111 |
if ( clevel1->estrip[j4][m][l] > 9.9995 ){ |
if ( savel1 > 9.9995 ){ |
| 1112 |
tim = 1000.; |
tim = 1000.; |
| 1113 |
plo = 22 + m; |
plo = 22 + m; |
| 1114 |
fbi = 1; |
fbi = 1; |
| 1115 |
}; |
}; |
| 1116 |
if ( clevel1->estrip[j4][m][l] > 99.995 ){ |
if ( savel1 > 99.995 ){ |
| 1117 |
tim = 100.; |
tim = 100.; |
| 1118 |
plo = 22 + m; |
plo = 22 + m; |
| 1119 |
fbi = 0; |
fbi = 0; |
| 1120 |
}; |
}; |
| 1121 |
if ( clevel1->estrip[j4][m][l] > 999.95 ){ |
if ( savel1 > 999.95 ){ |
| 1122 |
tim = 10.; |
tim = 10.; |
| 1123 |
plo = 44 + m; |
plo = 44 + m; |
| 1124 |
fbi = 0; |
fbi = 0; |
| 1125 |
}; |
}; |
| 1126 |
if ( clevel1->estrip[j4][m][l] > 9999.5 ){ |
if ( savel1 > 9999.5 ){ |
| 1127 |
tim = 1.; |
tim = 1.; |
| 1128 |
plo = 66 + m; |
plo = 66 + m; |
| 1129 |
fbi = 0; |
fbi = 0; |
| 1130 |
}; |
}; |
| 1131 |
// |
// |
| 1132 |
cle = (Int_t)lroundf(tim*clevel1->estrip[j4][m][l]); |
cle = (Int_t)lroundf(tim*savel1); |
| 1133 |
// |
// |
| 1134 |
if ( l == 0 ){ |
if ( l == 0 ){ |
| 1135 |
// |
// |
| 1209 |
memcpy(t_ca->tibar,clevel2->cibar,sizeof(clevel2->cibar)); |
memcpy(t_ca->tibar,clevel2->cibar,sizeof(clevel2->cibar)); |
| 1210 |
memcpy(t_ca->tbar,clevel2->cbar,sizeof(clevel2->cbar)); |
memcpy(t_ca->tbar,clevel2->cbar,sizeof(clevel2->cbar)); |
| 1211 |
memcpy(ca->planemax,clevel2->planemax,sizeof(clevel2->planemax)); |
memcpy(ca->planemax,clevel2->planemax,sizeof(clevel2->planemax)); |
| 1212 |
|
memcpy(ca->selfdelay,clevel2->selfdelay,sizeof(clevel2->selfdelay)); |
| 1213 |
ca->varcfit[2] = clevel2->varcfit[0]; |
ca->varcfit[2] = clevel2->varcfit[0]; |
| 1214 |
ca->varcfit[3] = clevel2->varcfit[1]; |
ca->varcfit[3] = clevel2->varcfit[1]; |
| 1215 |
ca->npcfit[2] = clevel2->npcfit[0]; |
ca->npcfit[2] = clevel2->npcfit[0]; |
| 1250 |
memcpy(ca->swerr,clevel2->swerr,sizeof(clevel2->swerr)); |
memcpy(ca->swerr,clevel2->swerr,sizeof(clevel2->swerr)); |
| 1251 |
memcpy(ca->crc,clevel2->crc,sizeof(clevel2->crc)); |
memcpy(ca->crc,clevel2->crc,sizeof(clevel2->crc)); |
| 1252 |
ca->nstrip = (Int_t)clevel2->nstrip; |
ca->nstrip = (Int_t)clevel2->nstrip; |
| 1253 |
|
ca->nsatstrip = (Int_t)clevel2->nsatstrip; |
| 1254 |
ca->qtot = clevel2->qtot; |
ca->qtot = clevel2->qtot; |
| 1255 |
// ca->impx = clevel2->impx; |
// ca->impx = clevel2->impx; |
| 1256 |
// ca->impy = clevel2->impy; |
// ca->impy = clevel2->impy; |
| 1263 |
ca->selen = clevel2->selen; |
ca->selen = clevel2->selen; |
| 1264 |
memcpy(ca->qq,clevel2->qq,sizeof(clevel2->qq)); |
memcpy(ca->qq,clevel2->qq,sizeof(clevel2->qq)); |
| 1265 |
memcpy(ca->planemax,clevel2->planemax,sizeof(clevel2->planemax)); |
memcpy(ca->planemax,clevel2->planemax,sizeof(clevel2->planemax)); |
| 1266 |
|
memcpy(ca->selfdelay,clevel2->selfdelay,sizeof(clevel2->selfdelay)); |
| 1267 |
ca->varcfit[0] = clevel2->varcfit[0]; |
ca->varcfit[0] = clevel2->varcfit[0]; |
| 1268 |
ca->varcfit[1] = clevel2->varcfit[1]; |
ca->varcfit[1] = clevel2->varcfit[1]; |
| 1269 |
ca->npcfit[0] = clevel2->npcfit[0]; |
ca->npcfit[0] = clevel2->npcfit[0]; |
| 1295 |
memset(dexyc, 0, 2*22*96*sizeof(Float_t)); |
memset(dexyc, 0, 2*22*96*sizeof(Float_t)); |
| 1296 |
memset(base, 0, 2*22*6*sizeof(Float_t)); |
memset(base, 0, 2*22*6*sizeof(Float_t)); |
| 1297 |
memset(sbase, 0, 2*22*6*sizeof(Float_t)); |
memset(sbase, 0, 2*22*6*sizeof(Float_t)); |
| 1298 |
|
memset(ctprecor, 0, 2*22*6*sizeof(Float_t)); |
| 1299 |
|
memset(ctneigcor, 0, 2*22*6*sizeof(Float_t)); |
| 1300 |
// |
// |
| 1301 |
} |
} |
| 1302 |
|
|
| 1341 |
clevel2->wartrig = 0.; |
clevel2->wartrig = 0.; |
| 1342 |
clevel2->good = 0; |
clevel2->good = 0; |
| 1343 |
clevel2->nstrip = 0.; |
clevel2->nstrip = 0.; |
| 1344 |
|
clevel2->nsatstrip = 0.; |
| 1345 |
clevel2->qtot = 0.; |
clevel2->qtot = 0.; |
| 1346 |
// clevel2->impx = 0.; |
// clevel2->impx = 0.; |
| 1347 |
// clevel2->impy = 0.; |
// clevel2->impy = 0.; |
| 1357 |
memset(clevel2->varcfit, 0, 4*sizeof(Float_t)); |
memset(clevel2->varcfit, 0, 4*sizeof(Float_t)); |
| 1358 |
memset(clevel2->npcfit, 0, 4*sizeof(Int_t)); |
memset(clevel2->npcfit, 0, 4*sizeof(Int_t)); |
| 1359 |
memset(clevel2->planemax, 0, 2*sizeof(Int_t)); |
memset(clevel2->planemax, 0, 2*sizeof(Int_t)); |
| 1360 |
|
memset(clevel2->selfdelay, 0, 4*7*sizeof(Int_t)); |
| 1361 |
memset(clevel2->fmode, 0, 2*sizeof(Int_t)); |
memset(clevel2->fmode, 0, 2*sizeof(Int_t)); |
| 1362 |
memset(clevel2->cibar, 0, 2*22*sizeof(Int_t)); |
memset(clevel2->cibar, 0, 2*22*sizeof(Int_t)); |
| 1363 |
memset(clevel2->cbar, 0, 2*22*sizeof(Float_t)); |
memset(clevel2->cbar, 0, 2*22*sizeof(Float_t)); |
| 1414 |
return; |
return; |
| 1415 |
} |
} |
| 1416 |
|
|
| 1417 |
Int_t CaloLevel0::Update(TSQLServer *dbc, UInt_t atime, Int_t s){ |
Int_t CaloLevel0::Update(GL_TABLES *glt, UInt_t atime, Int_t s){ |
| 1418 |
// |
// |
| 1419 |
|
const TString host = glt->CGetHost(); |
| 1420 |
|
const TString user = glt->CGetUser(); |
| 1421 |
|
const TString psw = glt->CGetPsw(); |
| 1422 |
|
TSQLServer *dbc = TSQLServer::Connect(host.Data(),user.Data(),psw.Data()); |
| 1423 |
|
if ( !dbc->IsConnected() ) throw -116; |
| 1424 |
|
stringstream myquery; |
| 1425 |
|
myquery.str(""); |
| 1426 |
|
myquery << "SET time_zone='+0:00'"; |
| 1427 |
|
dbc->Query(myquery.str().c_str()); |
| 1428 |
Int_t sgnl = 0; |
Int_t sgnl = 0; |
| 1429 |
// |
// |
| 1430 |
GL_CALO_CALIB *glcalo = new GL_CALO_CALIB(); |
GL_CALO_CALIB *glcalo = new GL_CALO_CALIB(); |