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