1 |
/** @file |
/** @file |
2 |
* $Source: /home/cvsmanager/yoda/techmodel/physics/CalorimeterReader.cpp,v $ |
* $Source: /home/cvsmanager/yoda/techmodel/physics/CalorimeterReader.cpp,v $ |
3 |
* $Id: CalorimeterReader.cpp,v 2.4 2004/12/03 22:08:12 kusanagi Exp $ |
* $Id: CalorimeterReader.cpp,v 2.6 2004/12/16 17:33:02 kusanagi Exp $ |
4 |
* $Author: kusanagi $ |
* $Author: kusanagi $ |
5 |
* |
* |
6 |
* Implementation of the CalorimeterReader class. |
* Implementation of the CalorimeterReader class. |
16 |
|
|
17 |
|
|
18 |
extern struct { |
extern struct { |
19 |
int IEV; |
int iev; |
20 |
int stwerr[4]; |
int stwerr[4]; |
21 |
float perror[4]; |
float perror[4]; |
22 |
float dexy[2][22][96]; |
float dexy[2][22][96]; |
30 |
} evento_; |
} evento_; |
31 |
|
|
32 |
void calunpack_(unsigned char[], long int*, int*); |
void calunpack_(unsigned char[], long int*, int*); |
|
//void calunpack_(char[], long int*, int*); |
|
33 |
//Struct per il passaggio di dati da e verso la chiamata fortran |
//Struct per il passaggio di dati da e verso la chiamata fortran |
34 |
} |
} |
35 |
|
|
52 |
*/ |
*/ |
53 |
std::string CalorimeterReader::GetVersionInfo(void) const { |
std::string CalorimeterReader::GetVersionInfo(void) const { |
54 |
return |
return |
55 |
"$Header: /home/cvsmanager/yoda/techmodel/physics/CalorimeterReader.cpp,v 2.4 2004/12/03 22:08:12 kusanagi Exp $"; |
"$Header: /home/cvsmanager/yoda/techmodel/physics/CalorimeterReader.cpp,v 2.6 2004/12/16 17:33:02 kusanagi Exp $"; |
56 |
} |
} |
57 |
|
|
58 |
/** |
/** |
88 |
|
|
89 |
//Call to the routine that unpack calorimeter events |
//Call to the routine that unpack calorimeter events |
90 |
calunpack_((unsigned char*)data, &length, &ERROR); |
calunpack_((unsigned char*)data, &length, &ERROR); |
|
//calunpack_((char*)data, &length, &ERROR); |
|
91 |
|
|
92 |
|
calorimeter->unpackError = ERROR; |
93 |
if (ERROR != 0) { |
if (ERROR != 0) { |
94 |
char *errmsg; |
char *errmsg; |
95 |
switch (ERROR){ |
switch (ERROR){ |
102 |
// In case of "ERROR != 0" the calunpack will take care to set all |
// In case of "ERROR != 0" the calunpack will take care to set all |
103 |
// parameters to zero |
// parameters to zero |
104 |
//} else { |
//} else { |
105 |
calorimeter->IEV = evento_.IEV; |
calorimeter->iev = evento_.iev; |
106 |
memcpy(calorimeter->stwerr, evento_.stwerr, sizeof(calorimeter->stwerr)); |
memcpy(calorimeter->stwerr, evento_.stwerr, sizeof(calorimeter->stwerr)); |
107 |
memcpy(calorimeter->perror, evento_.perror, sizeof(calorimeter->perror)); |
memcpy(calorimeter->perror, evento_.perror, sizeof(calorimeter->perror)); |
108 |
//--------have to invert array because of FORTRAN <-> C different management of the indexes |
//--------have to invert array because of FORTRAN <-> C different management of the indexes |