yoda/techmodel/CalibCalPulse2Reader.cpp


// Implementation of the CalibCalPulse2Reader class.


#define UINT unsigned int
#define BYTE  unsigned char
#include <string>
#include <log4cxx/logger.h>

extern "C" {
#include "CRC.h"  
    //Struct per il passaggio di dati da e verso la chiamata fortran
extern struct {
        int   iev;
        int   pstwerr[4];
        float pperror[4];
        float calpuls[4][11][96];
    } calpul_; 
    
    //external declaration of the Fortran function 
    void calpulse_(char*, long int*, int*);
}
#include <fstream>
#include "stdio.h"
#include "ReaderAlgorithms.h"

#include "event/CalibCalPulse2Event.h"

using namespace pamela;
using namespace pamela::techmodel;

static log4cxx::LoggerPtr logger = log4cxx::Logger::getLogger(_T("pamela.techmodel.CalibCalPulse2Reader"));

/**
 * Constructor. 
 */
CalibCalPulse2Reader::CalibCalPulse2Reader(void): 
  TechmodelAlgorithm(PacketType::CalibCalPulse2, "TechmodelCalibCalPulse2Reader") { 
  logger->debug(_T("Constructor"));
  calibCalPulse2 = new CalibCalPulse2Event();
}

/**
 * Get a string with the version info of the algorithm.
 */
std::string CalibCalPulse2Reader::GetVersionInfo(void) const {
  return 
    "$Header: /home/cvsmanager/yoda/techmodel/CalibCalPulse2Reader.cpp,v 2.0 2004/09/21 20:50:54 kusanagi Exp $\n";
}

/**
 * Initialize the algorithm with a special run. This will initialize the
 * event reader routines for all packet types.
 */
void CalibCalPulse2Reader::Init(PamelaRun *run) {
  logger->debug(_T("Initialize"));
  SetInputStream(run);
  run->WriteSubPacket(this, &calibCalPulse2, calibCalPulse2->Class());
}

/**
 * Unpack the CalibCalPulse2 event from an input file.
 */
void CalibCalPulse2Reader::RunEvent(int EventNumber, long int dataLength) throw (Exception){
    std::stringstream oss;       
    char        packetData[dataLength];
    int         ERROR;
    InputFile->read(packetData, sizeof(packetData));
    calpulse_(packetData, &dataLength, &ERROR);
    if (ERROR != 0) {
        char *errmsg;
        switch (ERROR){
            case 1: errmsg = "CALORIMETER NOT FOUND";
        }
        oss.str("");
        oss << "Fortran77 function calpulse error code = " << ERROR
            <<  "\n" <<errmsg;
        logger->warn(oss.str().c_str());
    } else {
       //Store the unpacked data
        calibCalPulse2->iev = calpul_.iev;
        memcpy(calibCalPulse2->pstwerr, calpul_.pstwerr, sizeof(calibCalPulse2->pstwerr));
        memcpy(calibCalPulse2->pperror, calpul_.pperror, sizeof(calibCalPulse2->pperror));
    //--------have to invert array because of FORTRAN <-> C different management of the indexes
        float tempCalpuls[96][11][4];
        memcpy(tempCalpuls, calpul_.calpuls, sizeof(tempCalpuls));
        for (int i = 0; i < 4; i++){
            for (int j = 0; j <11; j++){
                for (int z = 0; z < 96; z++){
                    calibCalPulse2->calpuls[i][j][z]  = tempCalpuls[z][j][i];
                }
            }
        }
   //-----------------------------------------------------------------------------------------
    }
}

1
2	// Implementation of the CalibCalPulse2Reader class.
3
4
5	#define UINT unsigned int
6	#define BYTE unsigned char
7	#include <string>
8	#include <log4cxx/logger.h>
9
10	extern "C" {
11	#include "CRC.h"
12	//Struct per il passaggio di dati da e verso la chiamata fortran
13	extern struct {
14	int iev;
15	int pstwerr[4];
16	float pperror[4];
17	float calpuls[4][11][96];
18	} calpul_;
19
20	//external declaration of the Fortran function
21	void calpulse_(char, long int, int*);
22	}
23	#include <fstream>
24	#include "stdio.h"
25	#include "ReaderAlgorithms.h"
26
27	#include "event/CalibCalPulse2Event.h"
28
29	using namespace pamela;
30	using namespace pamela::techmodel;
31
32	static log4cxx::LoggerPtr logger = log4cxx::Logger::getLogger(_T("pamela.techmodel.CalibCalPulse2Reader"));
33
34	/**
35	* Constructor.
36	*/
37	CalibCalPulse2Reader::CalibCalPulse2Reader(void):
38	TechmodelAlgorithm(PacketType::CalibCalPulse2, "TechmodelCalibCalPulse2Reader") {
39	logger->debug(_T("Constructor"));
40	calibCalPulse2 = new CalibCalPulse2Event();
41	}
42
43	/**
44	* Get a string with the version info of the algorithm.
45	*/
46	std::string CalibCalPulse2Reader::GetVersionInfo(void) const {
47	return
48	"$Header: /home/cvsmanager/yoda/techmodel/CalibCalPulse2Reader.cpp,v 2.0 2004/09/21 20:50:54 kusanagi Exp $\n";
49	}
50
51	/**
52	* Initialize the algorithm with a special run. This will initialize the
53	* event reader routines for all packet types.
54	*/
55	void CalibCalPulse2Reader::Init(PamelaRun *run) {
56	logger->debug(_T("Initialize"));
57	SetInputStream(run);
58	run->WriteSubPacket(this, &calibCalPulse2, calibCalPulse2->Class());
59	}
60
61	/**
62	* Unpack the CalibCalPulse2 event from an input file.
63	*/
64	void CalibCalPulse2Reader::RunEvent(int EventNumber, long int dataLength) throw (Exception){
65	std::stringstream oss;
66	char packetData[dataLength];
67	int ERROR;
68	InputFile->read(packetData, sizeof(packetData));
69	calpulse_(packetData, &dataLength, &ERROR);
70	if (ERROR != 0) {
71	char *errmsg;
72	switch (ERROR){
73	case 1: errmsg = "CALORIMETER NOT FOUND";
74	}
75	oss.str("");
76	oss << "Fortran77 function calpulse error code = " << ERROR
77	<< "\n" <<errmsg;
78	logger->warn(oss.str().c_str());
79	} else {
80	//Store the unpacked data
81	calibCalPulse2->iev = calpul_.iev;
82	memcpy(calibCalPulse2->pstwerr, calpul_.pstwerr, sizeof(calibCalPulse2->pstwerr));
83	memcpy(calibCalPulse2->pperror, calpul_.pperror, sizeof(calibCalPulse2->pperror));
84	//--------have to invert array because of FORTRAN <-> C different management of the indexes
85	float tempCalpuls[96][11][4];
86	memcpy(tempCalpuls, calpul_.calpuls, sizeof(tempCalpuls));
87	for (int i = 0; i < 4; i++){
88	for (int j = 0; j <11; j++){
89	for (int z = 0; z < 96; z++){
90	calibCalPulse2->calpuls[i][j][z] = tempCalpuls[z][j][i];
91	}
92	}
93	}
94	//-----------------------------------------------------------------------------------------
95	}
96	}
97