| 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 |