From bbb58ecc09e0d35768aa957673ae4684f063fae8 Mon Sep 17 00:00:00 2001 From: "Ryan@WorkStation" Date: Mon, 20 Dec 2021 17:26:48 -0500 Subject: [PATCH] move source files to armory --- Analyzer.C | 4 +- Analyzer.h | 2 +- AnalysisLibrary.h => armory/AnalysisLibrary.h | 0 Analyzer_Utili.c => armory/Analyzer_Utili.c | 0 AutoFit.C => armory/AutoFit.C | 0 evt2hist.cpp => armory/evt2hist.cpp | 4 +- evt2root.cpp => armory/evt2root.cpp | 38 +- pixie2root.cpp => armory/pixie2root.cpp | 2 +- pxi-time-order.c => armory/pxi-time-order.c | 0 xia2root.cpp => armory/xia2root.cpp | 0 makefile | 30 +- scan.c | 1208 ----------------- xia2ev2_nopart.cpp | 418 ------ 13 files changed, 41 insertions(+), 1665 deletions(-) rename AnalysisLibrary.h => armory/AnalysisLibrary.h (100%) rename Analyzer_Utili.c => armory/Analyzer_Utili.c (100%) rename AutoFit.C => armory/AutoFit.C (100%) rename evt2hist.cpp => armory/evt2hist.cpp (99%) rename evt2root.cpp => armory/evt2root.cpp (85%) rename pixie2root.cpp => armory/pixie2root.cpp (99%) rename pxi-time-order.c => armory/pxi-time-order.c (100%) rename xia2root.cpp => armory/xia2root.cpp (100%) delete mode 100644 scan.c delete mode 100644 xia2ev2_nopart.cpp diff --git a/Analyzer.C b/Analyzer.C index 5b776ed..5e9465e 100644 --- a/Analyzer.C +++ b/Analyzer.C @@ -179,9 +179,9 @@ void Analyzer::Terminate(){ hcoinBGO->Draw("colz"); printf("=============== loaded AutoFit.C, try showFitMethos()\n"); - gROOT->ProcessLine(".L AutoFit.C"); + gROOT->ProcessLine(".L armory/AutoFit.C"); printf("=============== Analyzer Utility\n"); - gROOT->ProcessLine(".L Analyzer_Utili.c"); + gROOT->ProcessLine(".L armory/Analyzer_Utili.c"); gROOT->ProcessLine("listDraws()"); diff --git a/Analyzer.h b/Analyzer.h index 9304948..b2e900e 100644 --- a/Analyzer.h +++ b/Analyzer.h @@ -15,7 +15,7 @@ #include #include "mapping.h" -#include "AnalysisLibrary.h" +#include "armory/AnalysisLibrary.h" // Header file for the classes stored in the TTree if any. diff --git a/AnalysisLibrary.h b/armory/AnalysisLibrary.h similarity index 100% rename from AnalysisLibrary.h rename to armory/AnalysisLibrary.h diff --git a/Analyzer_Utili.c b/armory/Analyzer_Utili.c similarity index 100% rename from Analyzer_Utili.c rename to armory/Analyzer_Utili.c diff --git a/AutoFit.C b/armory/AutoFit.C similarity index 100% rename from AutoFit.C rename to armory/AutoFit.C diff --git a/evt2hist.cpp b/armory/evt2hist.cpp similarity index 99% rename from evt2hist.cpp rename to armory/evt2hist.cpp index fa1b10e..06a3069 100644 --- a/evt2hist.cpp +++ b/armory/evt2hist.cpp @@ -15,8 +15,8 @@ #include "TCanvas.h" #include "TSystem.h" -#include "mapping.h" -#include "AnalysisLibrary.h" +#include "../mapping.h" +#include "../armory/AnalysisLibrary.h" #define MAX_CRATES 2 #define MAX_BOARDS_PER_CRATE 13 diff --git a/evt2root.cpp b/armory/evt2root.cpp similarity index 85% rename from evt2root.cpp rename to armory/evt2root.cpp index d69ff54..e79471b 100644 --- a/evt2root.cpp +++ b/armory/evt2root.cpp @@ -54,10 +54,10 @@ public: printf("HeaderLength: %d, Event Length: %d, energy: %d, timeStamp: %llu\n", headerLength, eventLength, energy, time); printf("trace_length: %d, pile-up:%d\n", trace_length, pileup); } - - }; - +//############################################# +// main +//############################################# int main(int argn, char **argv) { if (argn != 2 && argn != 3 ) { @@ -72,7 +72,7 @@ int main(int argn, char **argv) { outFileName.Remove(inFileName.First('.')); outFileName.Append("_raw.root"); - long int fprpos; + long int inFilePos; TBenchmark gClock; gClock.Reset(); gClock.Start("timer"); @@ -97,7 +97,8 @@ int main(int argn, char **argv) { printf(" in file: %s\n", inFileName.Data()); printf("out file: %s\n", outFileName.Data()); printf("--------------------------------\n"); - + + //====== ROOT file TFile * outFile = new TFile(outFileName, "recreate"); TTree * tree = new TTree("tree", "tree"); @@ -110,14 +111,13 @@ int main(int argn, char **argv) { unsigned int header[4]; //read 4 header, unsigned int = 4 byte = 32 bits. unsigned long long nWords = 0; - unsigned long long fpos = 0; //=============== Read File -// while ( ! feof(inFile) ){ - while ( fpos <= inFileSize ){ // need to check is the last data included. + /// while ( ! feof(inFile) ){ + while ( inFilePos <= inFileSize ){ // need to check is the last data included. fread(header, sizeof(header), 1, inFile); - fpos += sizeof(header); + inFilePos = ftell(inFile); measureID ++; /// see the Pixie-16 user manual, Table4-2 @@ -137,27 +137,27 @@ int main(int argn, char **argv) { nWords += data.eventLength; - //printf("----------------------nWords: %llu, fpos: %llu\n", nWords, fpos); - //for(int i = 0; i < 4; i++){ - // printf(" %x\n", header[i]); - //} - //data.Print(); + ///printf("----------------------nWords: %llu, inFilePos: %llu\n", nWords, inFilePos); + ///for(int i = 0; i < 4; i++){ + /// printf(" %x\n", header[i]); + ///} + ///data.Print(); //=== jump to next measurement if( data.eventLength > 4 ){ fseek(inFile, sizeof(int) * (data.eventLength-4), SEEK_CUR); - fpos += sizeof(int) * (data.eventLength-4); + inFilePos = ftell(inFile); } //event stats, print status every 10000 events if ( measureID % 10000 == 0 ) { - fprpos = ftell(inFile); + inFilePos = ftell(inFile); float tempf = (float)inFileSize/(1024.*1024.*1024.); gClock.Stop("timer"); double time = gClock.GetRealTime("timer"); gClock.Start("timer"); printf("Total measurements: \x1B[32m%llu \x1B[0m\nPercent Complete: \x1B[32m%ld%% of %.3f GB\x1B[0m\nTime used:%3.0f min %5.2f sec\033[A\033[A\r", - measureID, (100*fprpos/inFileSize), tempf, TMath::Floor(time/60.), time - TMath::Floor(time/60.)*60.); + measureID, (100*inFilePos/inFileSize), tempf, TMath::Floor(time/60.), time - TMath::Floor(time/60.)*60.); } //cern fill tree @@ -166,13 +166,13 @@ int main(int argn, char **argv) { } - fprpos = ftell(inFile); + inFilePos = ftell(inFile); gClock.Stop("timer"); double time = gClock.GetRealTime("timer"); gClock.Start("timer"); float tempf = (float)inFileSize/(1024.*1024.*1024.); printf("Total measurements: \x1B[32m%llu \x1B[0m\nPercent Complete: \x1B[32m%ld%% of %.3f GB\x1B[0m\nTime used:%3.0f min %5.2f sec\033[A\r", - measureID, (100*fprpos/inFileSize), tempf, TMath::Floor(time/60.), time - TMath::Floor(time/60.)*60.); + measureID, (100*inFilePos/inFileSize), tempf, TMath::Floor(time/60.), time - TMath::Floor(time/60.)*60.); fclose(inFile); diff --git a/pixie2root.cpp b/armory/pixie2root.cpp similarity index 99% rename from pixie2root.cpp rename to armory/pixie2root.cpp index 93e0feb..bfd3d17 100644 --- a/pixie2root.cpp +++ b/armory/pixie2root.cpp @@ -31,7 +31,7 @@ #define RAWE_REBIN_FACTOR 2.0 // Rebin 32k pixie16 spectra to something smaller to fit better into 8k. -#include "mapping.h" +#include "../mapping.h" ///////////////////// // RAW EVENT TYPES // diff --git a/pxi-time-order.c b/armory/pxi-time-order.c similarity index 100% rename from pxi-time-order.c rename to armory/pxi-time-order.c diff --git a/xia2root.cpp b/armory/xia2root.cpp similarity index 100% rename from xia2root.cpp rename to armory/xia2root.cpp diff --git a/makefile b/makefile index 5f02089..602ba94 100644 --- a/makefile +++ b/makefile @@ -1,25 +1,27 @@ CC=g++ #all: xia2root xia2ev2_nopart pixie2root scan pxi-time-order -all: xia2root xia2ev2_nopart pixie2root scan evt2root evt2hist +#all: xia2root xia2ev2_nopart pixie2root scan evt2root evt2hist +all: xia2root pixie2root evt2root evt2hist -xia2root: xia2root.cpp - $(CC) xia2root.cpp -o xia2root `root-config --cflags --glibs` +#this is FSU evt to root +xia2root: armory/xia2root.cpp + $(CC) armory/xia2root.cpp -o xia2root `root-config --cflags --glibs` -xia2ev2_nopart: xia2ev2_nopart.cpp - $(CC) xia2ev2_nopart.cpp -o xia2ev2_nopart +#xia2ev2_nopart: armory/xia2ev2_nopart.cpp +# $(CC) armory/xia2ev2_nopart.cpp -o xia2ev2_nopart -pixie2root: pixie2root.cpp - $(CC) pixie2root.cpp -o pixie2root `root-config --cflags --glibs` +#this is for eventbuild +pixie2root: armory/pixie2root.cpp + $(CC) armory/pixie2root.cpp -o pixie2root `root-config --cflags --glibs` -evt2root: evt2root.cpp - $(CC) evt2root.cpp -o evt2root `root-config --cflags --glibs` +#this is for online root +evt2root: armory/evt2root.cpp + $(CC) armory/evt2root.cpp -o evt2root `root-config --cflags --glibs` -evt2hist: evt2hist.cpp - $(CC) evt2hist.cpp -o evt2hist `root-config --cflags --glibs` - -scan: scan.c - $(CC) scan.c -o scan +#this is for online spectrums +evt2hist: armory/evt2hist.cpp + $(CC) armory/evt2hist.cpp -o evt2hist `root-config --cflags --glibs` #pxi-time-order: pxi-time-order.c # $(CC) pxi-time-order.c -o pxi-time-order diff --git a/scan.c b/scan.c deleted file mode 100644 index 5e2532a..0000000 --- a/scan.c +++ /dev/null @@ -1,1208 +0,0 @@ -/**********************************************************/ -/* PXI SCAN CODE -- J.M. Allmond (ORNL) -- July 2016 */ -/* */ -/* !unpak data from Pixie-16 digitizers, event build, */ -/* !and create detctors and user defined spectra */ -/* */ -/* gcc -o pxi-scan pxi-scan.c */ -/* ./pxi-scan -op datafile calibrationfile mapfile */ -/* */ -/* ..... calibration file optional */ -/* ..... map file optional */ -/* ..... u for update spectra */ -/* ..... o for overwrite spectra */ -/* ..... p for print realtime stats */ -/**********************************************************/ - -#include -#include -#include -#include -#include - -#define PRINT_CAL 1 -#define PRINT_MAP 1 - -#define DB(x) fwrite(x, sizeof(x), 1, debugfile); -#define DEBUGFN "debug.mat" - -#define RAND ((float) rand() / ((unsigned int) RAND_MAX + 1)) // random number in interval (0,1) -#define TRUE 1 -#define FALSE 0 - -#define LINE_LENGTH 120 - -#define MAX_CRATES 2 -#define MAX_BOARDS_PER_CRATE 13 -#define MAX_CHANNELS_PER_BOARD 16 -#define BOARD_START 2 - -#define MAX_ID MAX_CRATES*MAX_BOARDS_PER_CRATE*MAX_CHANNELS_PER_BOARD - -#define HEADER_LENGTH 4 //unit = words with 4 bytes per word -#define MAX_SUB_LENGTH 2016 //unit = words with 4 bytes per word ; 2004 --> 40 micro-second trace + 4 word header - -#define EVENT_BUILD_TIME 109 // 100 = 1 micro-second ; should be < L + G ~ 5.04 us (note 0.08 us scale factor in set file) - -#define RAWE_REBIN_FACTOR 2.0 // Rebin 32k pixie16 spectra to something smaller to fit better into 8k. - -///////////////////// -// RAW EVENT TYPES // -///////////////////// -struct subevent -{ - int chn; - int sln; - int crn; - int id; - int hlen; - int elen; - int trlen; //number of samples - int trwlen; //number of words (two samples per word) - int fcode; //pileup flag - long long int time; - int ctime; - int ctimef; - int energy; - int extra; - short tr[4096]; - int esum[4]; - int qsum[8]; -}; -struct subevent subevt[MAX_ID]={0}; -int sevtmult=0; -unsigned long long int sevtcount=0; -unsigned long long int pileupcount=0; -unsigned long long int evtcount=0; - - - -////////////////////////////////////////// -// INPUT CALIBRATION AND MAP PARAMETERS // -////////////////////////////////////////// - -float ecal[MAX_ID][2]={0}; -float tcal[MAX_ID][2]={0}; -float new_gain=1.0; - -char map2type[MAX_ID]={0}; -int map2det[MAX_ID]={0}; -int map2deti[MAX_ID]={0}; -float mapangles[MAX_ID][2]={0}; //theta and phi -float mapanglesi[MAX_ID][2]={0}; //theta and phi -float mapangles1[MAX_ID][2]={0}; //theta and phi -float mapangles2[MAX_ID][2]={0};//theta and phi - -//////////////////// -// DETECTOR TYPES // -//////////////////// - -//G = Ge -#define MAX_GE 16 // max number of Ge detectors -#define MAX_GE_XTL 4 // max number of crystals per Ge detector -#define MAX_GE_SEG 3 // max number of segments per Ge detector -#define MAX_GE_BGO 1 // max number of BGO PMTs per Ge detector -#define GE_BGO_SUPPRESSION TRUE -struct gdetector -{ - int xmult; - int xid[MAX_GE_XTL]; - int xe[MAX_GE_XTL]; - long long int xt[MAX_GE_XTL]; - int xct[MAX_GE_XTL]; - float xtheta[MAX_GE_XTL][4]; - float xphi[MAX_GE_XTL][4]; - bool xpileup[MAX_GE_XTL]; - bool xsuppress[MAX_GE_XTL]; - int xsubevtid[MAX_GE_XTL]; - - int smult; - int sid[MAX_GE_SEG]; - int se[MAX_GE_SEG]; - long long int st[MAX_GE_SEG]; - int sct[MAX_GE_SEG]; - float stheta[MAX_GE_SEG][4]; - float sphi[MAX_GE_SEG][4]; - bool spileup[MAX_GE_SEG]; - bool ssuppress[MAX_GE_SEG]; - int ssubevtid[MAX_GE_SEG]; - - int bgomult; - int bgoid[MAX_GE_BGO]; - int bgoe[MAX_GE_BGO]; - long long int bgot[MAX_GE_BGO]; - int bgoct[MAX_GE_BGO]; - float bgotheta[MAX_GE_XTL][4]; - float bgophi[MAX_GE_XTL][4]; - bool bgopileup[MAX_GE_BGO]; - int bgosubevtid[MAX_GE_BGO]; - - int id; - int energy; - int edop; - long long int time; - int ctime; - float theta[3]; //det, xtl, or seg angle - float phi[3]; //det, xtl, or seg angle - bool suppress; //at least one xtl was suppressed by bgo - bool pileup; //two or more unspressed xtls but at least one had pileup - bool nonprompt; //two or more unspressed xtls but at least one was non-prompt with first xtl - bool clean; -}; -struct gdetector ge[MAX_GE]={0}; -int gmult=0; -unsigned long long int gcount=0; - -//S = Si -// ....... - -/////////////////////////////////////// -// SPECTRA and FILE NAME DEFINITIONS // -/////////////////////////////////////// -//All spectra are considered two-dimensional arrays -//Must add "write spectra" at end of file - -//[Y-dim][X-dim] - -//////////////// -//Event Spectra -//////////////// - -#define HIT "hit.spn" -int hit[2][4096]={0}; //first for all hits, second for pilup hits - -#define MULT "mult.spn" //total detector multiplicity for one event -int mult[1][4096]={0}; - -#define TDIFID "tdif.sec" //time diference between sequential events of a single channel ; 1 micro-second bins -int tdifid[MAX_ID][8192]={0}; - -#define E_RAW "e_raw.sec" -int e_raw[MAX_ID][8192]={0}; - -#define E_CAL "e_cal.sec" -int e_cal[MAX_ID][8192]={0}; - -#define TEVT_RAW "tevt_raw.sec" // 10 second bins -int tevt_raw[MAX_ID][8192]={0}; - -#define TEVT_CAL "tevt_cal.sec" -int tevt_cal[MAX_ID][8192]={0}; // 10 second bins - -#define TCFD_RAW "tcfd_raw.sec" -int tcfd_raw[MAX_ID][8192]={0}; - -#define TDIF_RAW "tdif_raw.spn" // 10 nano-second bins -int tdif_raw[MAX_ID][4096]={0}; - -#define TDIF_CAL "tdif_cal.spn" // 10 nano-second bins -int tdif_cal[MAX_ID][4096]={0}; - -#define TDIF_CAL0_ETHRESH "tdif_cal0_ethresh.spn" //time difference relative to channel 0 ; 10 nano-second bins -int tdif_cal0_ethresh[MAX_ID][4096]={0}; - -#define IDID "idid.spn" //id vs id correlation hit pattern -int idid[MAX_ID][MAX_ID]={0}; - -//////////////////////////// -//Detector Processed Spectra -//////////////////////////// - -//Ge -#define GE_BGO_TDIF "ge_bgo_tdif.spn" -int ge_bgo_tdif[MAX_GE][4096]={0}; - -#define GE_XTL_TDIF "ge_xtl_tdif.spn" -int ge_xtl_tdif[MAX_GE][4096]={0}; - -#define GE_XTL_TDIF_ETHRESH "ge_xtl_tdif_ethresh.spn" -int ge_xtl_tdif_ethresh[MAX_GE][4096]={0}; - -#define GE_SPE_XTL "ge_spe_xtl.sec" -int ge_spe_xtl[MAX_GE*MAX_GE_XTL][8192]={0}; - -#define GE_SPE "ge_spe.sec" -int ge_spe[MAX_GE][8192]={0}; - -#define GE_SPE_CLEAN "ge_spe_clean.sec" -int ge_spe_clean[MAX_GE][8192]={0}; - -//trinity -#define PID "pid.spn" -int pid[4096][4096]={{0}}; -#define PID_EVSP "pid_evsp.spn" -int pid_evsp[4096][4096]={{0}}; -#define PID_EVST "pid_evst.spn" -int pid_evst[4096][4096]={{0}}; -#define PID_EVSTAU "pid_evstau.spn" -int pid_evstau[4096][4096]={{0}}; -#define PID_EVSR "pid_evsr.spn" -int pid_evsr[4096][4096]={{0}}; -#define PID_TAUVSR "pid_tauvsr.spn" -int pid_tauvsr[4096][4096]={{0}}; -#define GAGGDT "gaggdt.spn" -int gaggdt[4096][4096]={{0}}; -#define SPTRACE "sptrace.spn" -int sptrace[1][4096]={{0}}; - -////////////////////// -//Final User Spectra -////////////////////// - -//gamma-gamma -#define GG_TDIF "gg_tdif.spn" -int gg_tdif[4096][4096]={0}; - -#define GG_PROMPT "gg_prompt.spn" -int gg_prompt[4096][4096]={0}; - -#define GG_NPROMPT "gg_nprompt.spn" -int gg_nprompt[4096][4096]={0}; - - - - -/////////////////////// -// Write 2-byte data // -/////////////////////// -void write_data2(char *filename, short *data, int xdim, int ydim, int overwrite) { //2byte per channel Write / Add to previous - - FILE *FP; - int i; - short *previous; - - if(!overwrite) { - //allocate memory for 1d-array for reading in rows of 2d Radware matrix - if ( ( previous = (short *)malloc(xdim * ydim * sizeof(short)) ) == NULL ) { - printf("\nError, memory not allocated.\n"); - exit(1); - } - - //open previous spectra file - if( (FP=fopen(filename, "r")) != NULL ){ - fread(previous, sizeof(short)*xdim*ydim, 1, FP); - fclose(FP); - //update spectra - for (i=0; i= 4) { - - if ((fprcal = fopen(argv[3], "r")) == NULL) { - fprintf(stderr, "Error, cannot open input file %s\n", argv[3]); - return 1; - } - - printf("%s loaded!\n", argv[3]); - - while(fgets(line, LINE_LENGTH, fprcal) != NULL){ - calid=0; caloffset=0; calgain=0; - for(i=0; i=0){ - if (firstcal==0) { - sscanf(line,"%f\n", &new_gain); - if(PRINT_CAL) printf("%f\n", new_gain); - firstcal=1; - break; - } - sscanf(line,"%d\t%f\t%f\n", &calid, &caloffset, &calgain); - if(PRINT_CAL) printf("%d\t%.4f\t%.4f\n", calid, caloffset, calgain); - if(calid >=0 && calid < MAX_ID) { - ecal[calid][0] = caloffset; - ecal[calid][1] = calgain; - necal++; - break; - } - if(calid >=1000 && calid < 1000+MAX_ID) { - tcal[calid-1000][0] = caloffset; - tcal[calid-1000][1] = calgain; - ntcal++; - break; - } - else { - printf("Error in reading %s : bad id or format\n", argv[3]); - return -1; - } - } - else if(line[i]=='\n'){ - if(PRINT_CAL) printf("\n"); - break; - } - else { - continue; - } - - } - memset(line, 0, LINE_LENGTH); - } - - fclose(fprcal); - printf("read %d energy calibrations\n", necal); - printf("read %d time calibrations\n", ntcal); - } - - - - //open ID->Detector map file (e.g., *.map file) - int mapid=0, detid=0, detidi; - char dettype=0; - float theta=0, phi=0, thetai=0, phii=0, theta1=0, phi1=0, theta2=0, phi2=0; - FILE *fprmap; - int nmmap=0; - if (argc >= 5) { - - if ((fprmap = fopen(argv[4], "r")) == NULL) { - fprintf(stderr, "Error, cannot open input file %s\n", argv[4]); - return 1; - } - - printf("%s loaded!\n", argv[4]); - - while(fgets(line, LINE_LENGTH, fprmap) != NULL){ - mapid=0; dettype=0; thetai=0; phii=0; theta=0; phi=0; theta1=0; phi1=0; theta2=0; phi2=0; - for(i=0; i=0){ - sscanf(line,"%d\t%c\t%d\t%d\t%f\t%f\t%f\t%f\t%f\t%f\t%f\t%f\n", &mapid, &dettype, &detid, &detidi, &theta, &phi, &thetai, &phii, &theta1, &phi1, &theta2, &phi2); - if(PRINT_MAP) printf("%d\t%c\t%d\t%d\t%.2f\t%.2f\t%.2f\t%.2f\t%.2f\t%.2f\t%.2f\t%.2f\n", mapid, dettype, detid, detidi, theta, phi, thetai, phii, theta1, phi1, theta2, phi2); - if(mapid >=0 && mapid < MAX_ID) { - map2type[mapid] = dettype; - map2det[mapid] = detid; - map2deti[mapid] = detidi; - mapangles[mapid][0] = theta; - mapangles[mapid][1] = phi; - mapanglesi[mapid][0]=thetai; - mapanglesi[mapid][1]=phii; - mapangles1[mapid][0]= theta1; - mapangles1[mapid][1]= phi1; - mapangles2[mapid][0]= theta2; - mapangles2[mapid][1]= phi2; - nmmap++; - break; - } - else { - printf("Error in reading %s : bad id or format\n", argv[4]); - return -1; - } - } - else if(line[i]=='\n'){ - if(PRINT_MAP) printf("\n"); - break; - } - else { - continue; - } - - } - memset(line, 0, LINE_LENGTH); - } - - fclose(fprmap); - printf("read %d id maps\n", nmmap); - } - - - - - ///////////////////// - // MAIN WHILE LOOP // - ///////////////////// - while (1) { //main while loop - - - ///////////////////////////////// - // UNPACK DATA AND EVENT BUILD // - ///////////////////////////////// - etime=-1; tdif=-1; sevtmult=0; - //memset(&subevt, 0, sizeof(subevt)); //not needed since everything is redefined (except maybe trace on pileup evts) - while (1) { //get subevents and event build for one "event" - - // memset(&subevt[sevtmult], 0, sizeof(subevt[sevtmult])); //not needed since everything is redefined (except maybe trace on pileup evts) - - //read 4-byte header - if (fread(sub, sizeof(int)*HEADER_LENGTH, 1, fpr) != 1) break; - subevt[sevtmult].chn = sub[0] & 0xF; - subevt[sevtmult].sln = (sub[0] & 0xF0) >> 4; - subevt[sevtmult].crn = (sub[0] & 0xF00) >> 8; - subevt[sevtmult].id = subevt[sevtmult].crn*MAX_BOARDS_PER_CRATE*MAX_CHANNELS_PER_BOARD + (subevt[sevtmult].sln-BOARD_START)*MAX_CHANNELS_PER_BOARD + subevt[sevtmult].chn; - subevt[sevtmult].hlen = (sub[0] & 0x1F000) >> 12; - subevt[sevtmult].elen = (sub[0] & 0x7FFE0000) >> 17; - subevt[sevtmult].fcode = (sub[0] & 0x80000000) >> 31; - subevt[sevtmult].time = ( (long long int)(sub[2] & 0xFFFF) << 32) + sub[1]; - subevt[sevtmult].ctime = (sub[2] & 0x7FFF0000) >> 16; - subevt[sevtmult].ctimef = (sub[2] & 0x80000000) >> 31; - subevt[sevtmult].energy = (sub[3] & 0xFFFF); - subevt[sevtmult].trlen = (sub[3] & 0x7FFF0000) >> 16; - subevt[sevtmult].trwlen = subevt[sevtmult].trlen / 2; - subevt[sevtmult].extra = (sub[3] & 0x80000000) >> 31; - - //rebin raw trap energy from 32k to .... - tempf = (float)subevt[sevtmult].energy/RAWE_REBIN_FACTOR;// + RAND; - subevt[sevtmult].energy = (int)tempf; - - //check lengths (sometimes all of the bits for trace length are turned on ...) - /* if (subevt[sevtmult].elen - subevt[sevtmult].hlen != subevt[sevtmult].trwlen) { - printf("SEVERE ERROR: event, header, and trace length inconsistencies found\n"); - printf("event length = %d\n", subevt[sevtmult].elen); - printf("header length = %d\n", subevt[sevtmult].hlen); - printf("trace length = %d\n", subevt[sevtmult].trwlen); - printf("Extra = %d\n", subevt[sevtmult].extra); - printf("fcode = %d\n", subevt[sevtmult].fcode); - //sleep(1); - //return 0; - } */ - - - //Set reference time for event building - if (etime == -1) { - etime = subevt[sevtmult].time; - tdif = 0; - } - else { - tdif = subevt[sevtmult].time - etime; - if (tdif < 0) { - printf("SEVERE ERROR: tdiff < 0, file must be time sorted\n"); - printf("etime = %lld, time = %lld, and tdif = %lld\n", etime, subevt[sevtmult].time, tdif); - return 0; - } - } - - //Check for end of event, rewind, and break out of while loop - if (tdif > EVENT_BUILD_TIME) { - fseek(fpr, -sizeof(int)*HEADER_LENGTH, SEEK_CUR); //fwrite/fread is buffered by system ; storing this in local buffer is no faster! - break; - } - - - //time between sequential events for a single channel ; useful for determining optimal event building time - temptime = (subevt[sevtmult].time - idtime[subevt[sevtmult].id])/100; //rebin to 1 micro-second - if ( temptime >= 0 && temptime < 8192) { - tdifid[subevt[sevtmult].id][temptime]++; - } - idtime[subevt[sevtmult].id]=subevt[sevtmult].time; //store time for next subevent of channel - - // total pileups - if (subevt[sevtmult].fcode==1) { - pileupcount++; - } - - //Histogram raw spectra - hit[0][subevt[sevtmult].id]++; - if (subevt[sevtmult].fcode==1) - hit[1][subevt[sevtmult].id]++; - - if (subevt[sevtmult].energy >= 0 && subevt[sevtmult].energy < 8192) - e_raw[subevt[sevtmult].id][subevt[sevtmult].energy]++; - - if (subevt[sevtmult].time/1000000000 >= 0 && subevt[sevtmult].time/1000000000 < 8192) // rebin to 10 seconds - tevt_raw[subevt[sevtmult].id][subevt[sevtmult].time/1000000000]++; // rebin to 10 seconds - - if (subevt[sevtmult].ctime >= 0 && subevt[sevtmult].ctime < 8192) - tcfd_raw[subevt[sevtmult].id][subevt[sevtmult].ctime]++; - - if (tdif >= 0 && tdif < 4096 && sevtmult!=0) - tdif_raw[subevt[sevtmult].id][tdif]++; - - - //if CFD is enabled, ctime will be non-zero - //tempf = (float)subevt[sevtmult].ctime*10.0/32768.0; - //subevt[sevtmult].time = subevt[sevtmult].time + (long long int)tempf; - - //Calibrate energy and time - tempf = ((float)subevt[sevtmult].energy*ecal[subevt[sevtmult].id][1] + ecal[subevt[sevtmult].id][0])/new_gain;// + RAND; - subevt[sevtmult].energy = (int)tempf; - //subevt[sevtmult].time += (long long int)tcal[subevt[sevtmult].id][0]; - - //Histogram calibrated spectra - if (subevt[sevtmult].energy >= 0 && subevt[sevtmult].energy < 8192) - e_cal[subevt[sevtmult].id][subevt[sevtmult].energy]++; - - if (subevt[sevtmult].time/1000000000 >= 0 && subevt[sevtmult].time/1000000000 < 8192) - tevt_cal[subevt[sevtmult].id][subevt[sevtmult].time/1000000000]++; - - //continue on if no trace, esum, or qsum - if (subevt[sevtmult].hlen==HEADER_LENGTH && subevt[sevtmult].trwlen==0 ) { - sevtmult++; - continue; - } - - //more data than just the header; read entire sub event - fseek(fpr, -sizeof(int)*HEADER_LENGTH, SEEK_CUR); - if (fread(sub, sizeof(int)*subevt[sevtmult].elen, 1, fpr) != 1) break; - - //trace - k=0; - for (i = subevt[sevtmult].hlen; i < subevt[sevtmult].elen; i++) { - subevt[sevtmult].tr[i - subevt[sevtmult].hlen + k] = sub[i] & 0x3FFF; - subevt[sevtmult].tr[i - subevt[sevtmult].hlen + k + 1] = (sub[i]>>16) & 0x3FFF; - k=k+1; - } - - // if (subevt[sevtmult].id == 4 && subevt[sevtmult].fcode == 1) DB(subevt[sevtmult].tr); - - //continue if no esum or qsum - if (subevt[sevtmult].hlen==HEADER_LENGTH) { - sevtmult++; - continue; - } - - //esum - if (subevt[sevtmult].hlen==8 || subevt[sevtmult].hlen==16) { - for (i=4; i < 8; i++) { - subevt[sevtmult].esum[i-4] = sub[i]; - } - } - - //qsum - if (subevt[sevtmult].hlen==12) { - for (i=4; i < 12; i++) { - subevt[sevtmult].qsum[i-4] = sub[i]; - } - } - - //qsum - if (subevt[sevtmult].hlen==16) { - for (i=8; i < 16; i++) { - subevt[sevtmult].qsum[i-8] = sub[i]; - } - } - - sevtmult++; - - } //end while loop for unpacking sub events and event building for one "event" - if (sevtmult==0) break; //end main WHILE LOOP when out of events - mult[0][sevtmult]++; //Histogram raw sub event multiplicity - sevtcount += sevtmult; - evtcount++; //event-built number - ///////////////////////////////////// - // END UNPACK DATA AND EVENT BUILD // - ///////////////////////////////////// - - //int GAGG1=58; - //int GAGG2=59; - - int GAGG1=60; - int GAGG2=70; - - if (sevtmult == 2 && (subevt[0].id == GAGG1 || subevt[0].id == GAGG2) && (subevt[1].id == GAGG1 || subevt[1].id == GAGG2) && ((subevt[0].time - subevt[1].time) + 2000 > 1992) && ((subevt[0].time - subevt[1].time) + 2000 < 2005) ) { - - if (evtcount < 200) DB(subevt[0].tr); - - etrace0 = 0; - btrace0 = 0; - etrace1 = 0; - btrace1 = 0; - ptrace0 = 0; - ptrace1 = 0; - ttrace0 = 0; - ttrace1 = 0; - tautrace0 = 0; - tautrace1 = 0; - - for (i=0; i<60; i++) { - btrace0 = btrace0 + subevt[0].tr[i]; - btrace1 = btrace1 + subevt[1].tr[i]; - } - btrace0 = btrace0/60.; - btrace1 = btrace1/60.; - - for (i=60; i<173; i++) { //180-230 - etrace0 = etrace0 + subevt[0].tr[i] - btrace0; - etrace1 = etrace1 + subevt[1].tr[i] - btrace1; - tautrace0 = tautrace0 + (subevt[0].tr[i] - btrace0)*i; - tautrace1 = tautrace1 + (subevt[1].tr[i] - btrace1)*i; - } - tautrace0 = tautrace0 / etrace0; - tautrace1 = tautrace1 / etrace1; - etrace0 = etrace0 / 2.; - etrace1 = etrace1 / 2.; - - - //peak sum - for (i=77; i<93; i++) { //180-223 // 197-213 - ptrace0 = ptrace0 + subevt[0].tr[i] - btrace0; - ptrace1 = ptrace1 + subevt[1].tr[i] - btrace1; - } -// for (i=193; i<199; i++) { //180-223 // 197-213 -// ptrace0 = ptrace0 - (subevt[0].tr[i] - btrace0); -// ptrace1 = ptrace1 - (subevt[1].tr[i] - btrace1); -// } - ptrace0 = ptrace0 / 2.; - ptrace1 = ptrace1 / 2.; - ptrace0 = (ptrace0 + ptrace1)/10; - - //tail sum - for (i=101; i<160; i++) { //223-293 // 221-280 - ttrace0 = ttrace0 + subevt[0].tr[i] - btrace0; - ttrace1 = ttrace1 + subevt[1].tr[i] - btrace1; - } - ttrace0 = ttrace0 / 2.; - ttrace1 = ttrace1 / 2.; - ttrace0 = (ttrace0 + ttrace1)/10; - - if ((int)ptrace0 > 0 && (int)ptrace0 < 4096 && (int)ttrace0 > 0 && (int)ttrace0 < 4096) pid[(int)ptrace0][(int)ttrace0]++; - if ((int)etrace0 > 0 && (int)etrace0 < 4096 && (int)ptrace0 > 0 && (int)ptrace0 < 4096) pid_evsp[(int)etrace0][(int)ptrace0]++; - if ((int)etrace0 > 0 && (int)etrace0 < 4096 && (int)ttrace0 > 0 && (int)ttrace0 < 4096) pid_evst[(int)etrace0][(int)ttrace0]++; - if ((int)etrace0 > 0 && (int)etrace0 < 4096 && (int)tautrace0 > 0 && (int)tautrace0 < 4096) pid_evstau[(int)etrace0][(int)tautrace0]++; - if ((int)(etrace0) > 0 && (int)(etrace0) < 4096 && (int)((100.*ttrace0)/ptrace0) > 0 && (int)((100.*ttrace0)/ptrace0) < 4096) pid_evsr[(int)(etrace0)][(int)((100.*ttrace0)/ptrace0)]++; - if ((int)(tautrace0) > 0 && (int)(tautrace0) < 4096 && (int)((100.*ttrace0)/ptrace0) > 0 && (int)((100.*ttrace0)/ptrace0) < 4096) pid_tauvsr[(int)(tautrace0)][(int)((100.*ttrace0)/ptrace0)]++; - - - -/* - for (i=1; i<6; i++) { - etrace0 = etrace0 + subevt[0].qsum[i]; - etrace1 = etrace1 + subevt[1].qsum[i]; - //printf("subevt[0].qsum[%d]=%d\n", i, subevt[0].qsum[i]); - } - etrace0 = etrace0 - subevt[0].qsum[0]*0.5/1.8; - etrace1 = etrace1 - subevt[1].qsum[0]*0.5/1.8; - - etrace0 = etrace0 / 1; - etrace1 = etrace1 / 1; -*/ - - //return 0; - - //printf("etrace = %f\n", etrace); - if ((int)etrace0 >0 && (int)etrace0 < 8192) e_raw[200-GAGG1+subevt[0].id][(int)etrace0]++; - if ((int)etrace1 >0 && (int)etrace1 < 8192) e_raw[200-GAGG1+subevt[1].id][(int)etrace1]++; - if ((int)etrace0 >0 && (int)etrace0 < 8192 && (int)ttrace0>500/10 && (int)ptrace0 > 978/10 && (int)ptrace0 < 1270/10 ) { - e_raw[203][(int)etrace0]++; - //if (evtcount < 200) DB(subevt[0].tr); - } - // if ((int)ttrace0<40 && (int)ptrace0 > 131) { - if ((int)etrace0>1350 && (int)etrace0<1400 && (int)((100.*ttrace0)/ptrace0) < 200 ) { -// DB(subevt[0].tr); - for (i=0; i<500; i++) { - strace[i]=strace[i]+subevt[0].tr[i]; - } - dbcount++; - } - // } - - etrace1 = etrace0 + etrace1; - etrace1 = etrace1/2.0; - if ((int)etrace1 >0 && (int)etrace1 < 8192) { - e_raw[202][(int)etrace1]++; - } - - if ((subevt[0].time - subevt[1].time) + 2000 > 0 && (subevt[0].time - subevt[1].time) + 2000 < 4096 && (int)etrace1 >0 && (int)etrace1 < 4096) - gaggdt[(subevt[0].time - subevt[1].time) + 2000][(int)etrace1]++; - - } - - //skip detector building below if no map file - if (argc >= 5) { - - - //////////////////////////////////////// - // MAP SUB EVENTS INTO DETECTOR TYPES // - //////////////////////////////////////// - memset(&ge, 0, sizeof(ge)); //This is needed but could be replaced by setting suppress, pileup, nonprompt, clean, x/s/bmult to zero at start of loop! - - for (i=0; i= 0 && tdif < 4096 && i!=0) tdif_cal[subevt[i].id][tdif]++; - //if (tdif > 20 && tdif < 50) DB(subevt[i].tr); - - //tdif with respect to channel id 0 - if (i!=0 && subevt[0].id==0 && subevt[0].energy >= 10 && subevt[0].energy <= 8000 && subevt[i].energy >= 10 && subevt[i].energy <= 8000) { - if (tdif >= 0 && tdif < 4096 ) tdif_cal0_ethresh[subevt[i].id][tdif]++; - } - - - ///////////////////// - // G = Ge Detector // - ///////////////////// - if ( map2type[subevt[i].id] == 'G' ) { //Keep G and ge or switch to C and clover/cl? - - if (map2deti[subevt[i].id] > 0 && map2deti[subevt[i].id] <= MAX_GE_XTL) { //Ge crystal - if ( ge[map2det[subevt[i].id]].xmult >= MAX_GE_XTL) { - printf("SEVERE ERROR: Same Ge(xtl) twice within event build; Make event build time smaller!\n"); - printf("ge[map2det[subevt[i].id]].xmult=%d, ge[map2det[subevt[i].id]].smult=%d, ge[map2det[subevt[i].id]].bgomult=%d\n", ge[map2det[subevt[i].id]].xmult, ge[map2det[subevt[i].id]].smult,ge[map2det[subevt[i].id]].bgomult); - continue; - //return -1; - } - ge[map2det[subevt[i].id]].xid[ge[map2det[subevt[i].id]].xmult] = map2deti[subevt[i].id]; - ge[map2det[subevt[i].id]].xe[ge[map2det[subevt[i].id]].xmult] = subevt[i].energy; - ge[map2det[subevt[i].id]].xt[ge[map2det[subevt[i].id]].xmult] = subevt[i].time; - ge[map2det[subevt[i].id]].xct[ge[map2det[subevt[i].id]].xmult] = subevt[i].ctime; - ge[map2det[subevt[i].id]].xpileup[ge[map2det[subevt[i].id]].xmult] = subevt[i].fcode; - ge[map2det[subevt[i].id]].xsubevtid[ge[map2det[subevt[i].id]].xmult] = i; - - ge[map2det[subevt[i].id]].xtheta[ge[map2det[subevt[i].id]].xmult][0] = mapangles[subevt[i].id][0]; - ge[map2det[subevt[i].id]].xtheta[ge[map2det[subevt[i].id]].xmult][1] = mapanglesi[subevt[i].id][0]; - ge[map2det[subevt[i].id]].xtheta[ge[map2det[subevt[i].id]].xmult][2] = mapangles1[subevt[i].id][0]; - ge[map2det[subevt[i].id]].xtheta[ge[map2det[subevt[i].id]].xmult][3] = mapangles2[subevt[i].id][0]; - ge[map2det[subevt[i].id]].xphi[ge[map2det[subevt[i].id]].xmult][0] = mapangles[subevt[i].id][1]; - ge[map2det[subevt[i].id]].xphi[ge[map2det[subevt[i].id]].xmult][1] = mapanglesi[subevt[i].id][1]; - ge[map2det[subevt[i].id]].xphi[ge[map2det[subevt[i].id]].xmult][2] = mapangles1[subevt[i].id][1]; - ge[map2det[subevt[i].id]].xphi[ge[map2det[subevt[i].id]].xmult][3] = mapangles2[subevt[i].id][1]; - - ge[map2det[subevt[i].id]].xmult++; - } - if (map2deti[subevt[i].id] > MAX_GE_XTL && map2deti[subevt[i].id] <= MAX_GE_XTL + MAX_GE_SEG) { //Ge segment - if ( ge[map2det[subevt[i].id]].smult >= MAX_GE_SEG ) { - printf("SEVERE ERROR: Same Ge(seg) twice within event build; Make event build time smaller!\n"); - printf("ge[map2det[subevt[i].id]].xmult=%d, ge[map2det[subevt[i].id]].smult=%d, ge[map2det[subevt[i].id]].bgomult=%d\n", ge[map2det[subevt[i].id]].xmult, ge[map2det[subevt[i].id]].smult,ge[map2det[subevt[i].id]].bgomult); - continue; - //return -1; - } - ge[map2det[subevt[i].id]].sid[ge[map2det[subevt[i].id]].smult] = map2deti[subevt[i].id]; - ge[map2det[subevt[i].id]].se[ge[map2det[subevt[i].id]].smult] = subevt[i].energy; - ge[map2det[subevt[i].id]].st[ge[map2det[subevt[i].id]].smult] = subevt[i].time; - ge[map2det[subevt[i].id]].sct[ge[map2det[subevt[i].id]].smult] = subevt[i].ctime; - ge[map2det[subevt[i].id]].spileup[ge[map2det[subevt[i].id]].smult] = subevt[i].fcode; - ge[map2det[subevt[i].id]].ssubevtid[ge[map2det[subevt[i].id]].smult] = i; - - ge[map2det[subevt[i].id]].smult++; - } - if (map2deti[subevt[i].id] > MAX_GE_XTL + MAX_GE_SEG) { //BGO - if ( ge[map2det[subevt[i].id]].bgomult >= MAX_GE_BGO ) { - printf("SEVERE ERROR: Same Ge(bgo) twice within event build; Make event build time smaller!\n"); - printf("ge[map2det[subevt[i].id]].xmult=%d, ge[map2det[subevt[i].id]].smult=%d, ge[map2det[subevt[i].id]].bgomult=%d\n", ge[map2det[subevt[i].id]].xmult, ge[map2det[subevt[i].id]].smult,ge[map2det[subevt[i].id]].bgomult); - continue; - //return -1; - } - ge[map2det[subevt[i].id]].bgoid[ge[map2det[subevt[i].id]].bgomult] = map2deti[subevt[i].id]; - ge[map2det[subevt[i].id]].bgoe[ge[map2det[subevt[i].id]].bgomult] = subevt[i].energy; - ge[map2det[subevt[i].id]].bgot[ge[map2det[subevt[i].id]].bgomult] = subevt[i].time; - ge[map2det[subevt[i].id]].bgoct[ge[map2det[subevt[i].id]].bgomult] = subevt[i].ctime; - ge[map2det[subevt[i].id]].bgopileup[ge[map2det[subevt[i].id]].bgomult] = subevt[i].fcode; - ge[map2det[subevt[i].id]].bgosubevtid[ge[map2det[subevt[i].id]].bgomult] = i; - - ge[map2det[subevt[i].id]].bgomult++; - } - - - } //end G - - /////////////////// - // S=Si Detector // - /////////////////// - - } // end i loop over sevtmult - //////////////////////////////////////////// - // END MAP SUB EVENTS INTO DETECTOR TYPES // - //////////////////////////////////////////// - - - //////////////////////////// - // PROCESS DETECTOR TYPES // - //////////////////////////// - - - ///////////////////// - // G = Ge Detector // - ///////////////////// - gmult = 0; - for (i=0; i= 0 && tdif <= 4096) ge_bgo_tdif[i][tdif]++; - if ( (tdif < 50 && ge[i].bgoe[k] > 10) || ge[i].bgopileup[k]==TRUE) { //need to fix bgo pileup with trace analysis - ge[i].xsuppress[j] = TRUE; - ge[i].suppress = TRUE; - } - } - } - - //addback - if (ge[i].xsuppress[j] == FALSE) { - if (ge[i].xpileup[j] == TRUE) { - ge[i].pileup = TRUE; - continue; - } - //xtl spectra - if (ge[i].xe[j] > 0 && ge[i].xe[j] < 8192 && ge[i].id >= 1) ge_spe_xtl[(ge[i].id-1)*MAX_GE_XTL + ge[i].xid[j]][ge[i].xe[j]]++; - tdif = abs( ge[i].xt[j] - ge[i].time ); - if (tdif >= 0 && tdif <= 4096 && ge[i].time != 0 ) ge_xtl_tdif[i][tdif]++; - - if (ge[i].xe[j] > 50 && ge[i].xe[j] < 4000) { - if (tdif >= 0 && tdif <= 4096 && ge[i].time != 0 ) ge_xtl_tdif_ethresh[i][tdif]++; - if (tdif < 20 || ge[i].time == 0) { - ge[i].energy = ge[i].energy + ge[i].xe[j]; - if (max1 < ge[i].xe[j]) { - max1 = ge[i].xe[j]; - maxid1 = j; - ge[i].time = ge[i].xt[j]; - ge[i].ctime = ge[i].xct[j]; - } - } - else { - ge[i].nonprompt = TRUE; // the first time will become the adopted value / event - } - } - } - - } - - if (max1 == -1) continue; - - //Segmentation Position and Compton Suppression - for (j=0; j 10) { - ge[i].ssuppress[j] = TRUE; - } - } - } - - //segment - if (ge[i].ssuppress[j] == FALSE && ge[i].se[j] > 0 && ge[i].se[j] < 10000) { - if (max2 < ge[i].se[j]) { - max2 = ge[i].se[j]; - maxid2 = j; - } - } - - } - - //Angle assignments - ge[i].theta[0] = ge[i].xtheta[maxid1][0]; //detector center - ge[i].phi[0] = ge[i].xphi[maxid1][0]; - ge[i].theta[1] = ge[i].xtheta[maxid1][1]; //crystal center - ge[i].phi[1] = ge[i].xphi[maxid1][1]; - if (ge[i].sid[maxid2] == 6) { // side channel C - ge[i].theta[2] = ge[i].xtheta[maxid1][2]; - ge[i].phi[2] = ge[i].xphi[maxid1][2]; - } - else if (ge[i].sid[maxid2] == 5 || ge[i].sid[maxid2] == 7) { // side channel L/R - ge[i].theta[2] = ge[i].xtheta[maxid1][3]; - ge[i].phi[2] = ge[i].xphi[maxid1][3]; - } - else { - ge[i].theta[2] = ge[i].xtheta[maxid1][1]; // side channel failure --> crystal center - ge[i].phi[2] = ge[i].xphi[maxid1][1]; - } - - - //clean addback - if (ge[i].suppress == FALSE && ge[i].pileup == FALSE && ge[i].nonprompt == FALSE) { - ge[i].clean=TRUE; //maybe clean should not include suppress == FALSE? - } - - //Ge spectra - if (ge[i].energy > 0 && ge[i].energy < 8192) ge_spe[ge[i].id][ge[i].energy]++; - if (ge[i].energy > 0 && ge[i].energy < 8192 && ge[i].clean == TRUE) ge_spe_clean[ge[i].id][ge[i].energy]++; - - //copy data and increment counters - ge[gmult]=ge[i]; - gmult++; - gcount++; - - } //end G - - - - /////////////////////////// - // END PROCESS DETECTORS // - /////////////////////////// - - - - //////////////////////// - // FINAL USER SPECTRA // - //////////////////////// - - - //gamma-gamma time and energy - for (i=0; i= 0 && tdif < 4096 && ge[i].energy >= 0 && ge[i].energy < 4096 && ge[j].energy >= 0 && ge[j].energy < 4096) { - if (ge[i].energy < ge[j].energy) - gg_tdif[ge[i].energy][tdif]++; - else - gg_tdif[ge[j].energy][tdif]++; - } - //prompt gamma-gamma - if (tdif >= 1920 && tdif <= 2080) { - if (ge[i].energy >= 0 && ge[i].energy < 4096 && ge[j].energy >= 0 && ge[j].energy < 4096) - gg_prompt[ge[i].energy][ge[j].energy]++; - } - //non-prompt gamma-gamma (mult by 0.2555) - if ( (tdif >= 1532 && tdif <= 1846) || (tdif >= 2138 && tdif <= 2452 ) ) { - if (ge[i].energy >= 0 && ge[i].energy < 4096 && ge[j].energy >= 0 && ge[j].energy < 4096) - gg_nprompt[ge[i].energy][ge[j].energy]++; - } - } - } - } - - - //////////////////////////// - // END FINAL USER SPECTRA // - //////////////////////////// - - } //end argc >= 5 condition - - //event stats, print status every 10000 events - lle_div=lldiv(evtcount,10000); - if ( lle_div.rem == 0 && strstr(argv[1], "p") != NULL) { - fprpos = ftell(fpr); - tempf = (float)fprsize/(1024.*1024.*1024.); - printf("Total SubEvents: \x1B[32m%llu \x1B[31m(%d%% pileup)\x1B[0m\nTotal Events: \x1B[32m%llu (%.1f )\x1B[0m\nPercent Complete: \x1B[32m%ld%% of %.3f GB\x1B[0m\n\033[3A\r", sevtcount, (int)((100*pileupcount)/sevtcount), evtcount, (float)sevtcount/(float)evtcount, (100*fprpos/fprsize), tempf); - } - - - } // end main while loop - ///////////////////////// - // END MAIN WHILE LOOP // - ///////////////////////// - fprpos = ftell(fpr); - tempf = (float)fprsize/(1024.*1024.*1024.); - printf("Total SubEvents: \x1B[32m%llu \x1B[31m(%d%% pileup)\x1B[0m\nTotal Events: \x1B[32m%llu (%.1f )\x1B[0m\nPercent Complete: \x1B[32m%ld%% of %.3f GB\x1B[0m\n\033[3A\r", sevtcount, (int)((100*pileupcount)/sevtcount), evtcount, (float)sevtcount/(float)evtcount, (100*fprpos/fprsize), tempf); - - - - - - - - //////////////////// - // WRITE SPECTRA // - /////////////////// - printf("\n\n\n\nWriting Spectra to Disk ...\n"); - - //Event Spectra - write_data4(HIT, *hit, 4096, 2, overwrite); - write_data4(MULT, *mult, 4096, 1, overwrite); - write_data4(TDIFID, *tdifid, MAX_ID, 8192, overwrite); - write_data4(E_RAW, *e_raw, MAX_ID, 8192, overwrite); - write_data4(E_CAL, *e_cal, MAX_ID, 8192, overwrite); - write_data4(TEVT_RAW, *tevt_raw, MAX_ID, 8192, overwrite); - write_data4(TEVT_CAL, *tevt_cal, MAX_ID, 8192, overwrite); - write_data4(TCFD_RAW, *tcfd_raw, MAX_ID, 8192, overwrite); - write_data4(TDIF_RAW, *tdif_raw, MAX_ID, 4096, overwrite); - write_data4(TDIF_CAL, *tdif_cal, MAX_ID, 4096, overwrite); - // write_data4(TDIF_CAL0_ETHRESH, *tdif_cal0_ethresh, MAX_ID, 4096, overwrite); -// write_data4(IDID, *idid, MAX_ID, MAX_ID, overwrite); - - //Detector Processed Spectra - //Ge -// write_data4(GE_BGO_TDIF, *ge_bgo_tdif, MAX_GE, 4096, overwrite); -// write_data4(GE_XTL_TDIF, *ge_xtl_tdif, MAX_GE, 4096, overwrite); -// write_data4(GE_XTL_TDIF_ETHRESH, *ge_xtl_tdif_ethresh, MAX_GE, 4096, overwrite); -// write_data4(GE_SPE_XTL, *ge_spe_xtl, MAX_GE*MAX_GE_XTL, 8192, overwrite); -// write_data4(GE_SPE, *ge_spe, MAX_GE, 8192, overwrite); -// write_data4(GE_SPE_CLEAN, *ge_spe_clean, MAX_GE, 8192, overwrite); - //trinity - write_data4(PID, *pid, 4096, 4096, overwrite); - write_data4(PID_EVSP, *pid_evsp, 4096, 4096, overwrite); - write_data4(PID_EVST, *pid_evst, 4096, 4096, overwrite); - write_data4(PID_EVSTAU, *pid_evstau, 4096, 4096, overwrite); - write_data4(PID_EVSR, *pid_evsr, 4096, 4096, overwrite); - write_data4(PID_TAUVSR, *pid_tauvsr, 4096, 4096, overwrite); - write_data4(GAGGDT, *gaggdt, 4096, 4096, overwrite); - - for (i=0; i<500; i++) { - if (strace[i]>0) sptrace[0][i] = strace[i]/dbcount; - } - write_data4(SPTRACE, *sptrace, 1, 4096, overwrite); - - //Final User Spectra - //gamma-gamma -// write_data4(GG_TDIF, *gg_tdif, 4096, 4096, overwrite); - // write_data4(GG_PROMPT, *gg_prompt, 4096, 4096, overwrite); - // write_data4(GG_NPROMPT, *gg_nprompt, 4096, 4096, overwrite); - - - fclose(fpr); - fclose(debugfile); - - return 0; -} - - diff --git a/xia2ev2_nopart.cpp b/xia2ev2_nopart.cpp deleted file mode 100644 index c148dd3..0000000 --- a/xia2ev2_nopart.cpp +++ /dev/null @@ -1,418 +0,0 @@ -#include -#include -#include -//for 64bit compiler: -#include -#include - -char outdata[70],outloga[70]; - -//int *outenergy=NULL; -int outsize=1; -//char *outcount=NULL; -//char *outdetnum=NULL; -char *outcount=new char[1]; -char *outdetnum=new char[1]; -//outenergy=new int[1]; -int *outenergy=new int[1]; -//outcount[0]=1; -int correctflag = 0,gateflag = 0,CntAll = 0,CntGate = 0; -long maxtime=100; //max number of 10 ns tics for an event -long maxeventime=0,mineventime=400000000,CntEvts[64]; -int multiplicity[10],startdet=15,PileUp[64]; -int evN=0; -int evStart = 0; -int evEnd = 1; -unsigned int *bufsam=NULL; -long *bufsiz=NULL; -long negativedelevtimecount=0,timezero=-30000; -int size1,size2,bsize,bsam=2,bread=1,chan,slot,chann,outevtcount=0; -int pu,energy,evtimehi,pileupcount=0,zerocount=0; -unsigned short cfd,cfdold; -int detectorcount=0,mul=0; -short detenergy[256],detid[256]; -unsigned long maskpu = 2147483648,evtimelo; -long long deltime=0LL,timeinevent=0LL; -unsigned long long evtime,multiplier=4294967296LL,oldtime=0LL; -long long zero=0LL; -int channel[65][100],timelo[65],timehi[65]; -float correctable[65][100]; -float fracx,correct,top,bottom,tdc,percent,averagetime=0; -int ipnt,iadc,itdc; -int pntcnt[65]; - -void InitializeVariables(char **args); -void WriteOutEvent(char **args,FILE *outdat); -void BuildEvent(); - -int main(int argn,char **argv) { - if ((argn<3) || (argn>8)) { - std::cerr<<"Usage:\n "<6) { - evStart=atoi(argv[6]); - maxtime=atoi(argv[4]); - startdet=atoi(argv[5]); - correctflag = 1; - if (evStart == 0) evEnd = 1; - else { - std::cerr<<"You must specify an end event number if the start event number is not 0. Your start event number is "< int for 64 bit - fread(bufsiz,sizeof(int),bread,infile); - //std::cout<=evStart) { - - if (bufsam[0] == 30) { - chan = (bufsam[2]) & (15); - slot = ((bufsam[2]) & (240))/16; - chann = (slot - 2)*16 + chan + 1; - pu = ((bufsam[2]) & (maskpu))/maskpu; - energy = ((bufsam[5]) & 65535); - evtimehi = ((bufsam[4]) & 65535); - evtimelo = bufsam[3]; - evtime = evtimelo + multiplier*evtimehi; - cfd = bufsam[4]/65536; - deltime = evtime - oldtime; - if(deltime < zero) negativedelevtimecount++; - if (energy==0) zerocount++; - if(pu>0)pileupcount++; - if ((pu > 0)&&(chann>0)&&(chann<65)) PileUp[chann-1]++; - - - // ignore pileups - timeinevent=timeinevent+deltime; - oldtime = evtime; - - if(timeinevent > maxtime) { - //This detector starts another event. First write out the previous event. - - WriteOutEvent(argv,outdat); - - // Now store this signal which starts a new event - timeinevent = 1; - timezero = -30000; - detectorcount = 0; - mul = 0; - averagetime = 0; - - BuildEvent(); - }else { - //This is just another detector in the current event - //Now we have to put the event just read into the buffer - - BuildEvent(); - - } //end if(timeinevent - - } //end if bufsam[0]=30 - - } //end if evN >= evStart - - } //end while evN < evEnd - - delete [] bufsiz; - delete [] bufsam; - - if(feof(infile) && evN 0) std::cout<<"PU("<0) fprintf(outlog,"Corrected time walk using file %s \n\n",argv[3]); - if (strcmp(argv[2],"NULL") != 0) fprintf(outlog,"wrote %i events to %s using xia2ev2_part with particle detector number %i\n\n",outevtcount,outdata,startdet); - - fprintf(outlog,"negativedelevtimecount = %i, pileupcount = %i zerocount = %i\n",negativedelevtimecount,pileupcount,zerocount); - - fprintf(outlog,"max time (10 ns) in event = %i min time betweeen events = %i\n\n",mineventime,maxtime); - - - for(int is=0;is<10;is=is+2) fprintf(outlog,"multiplicity %i: counts = %i; multiplicity %i: counts = %i\n",is+1,multiplicity[is],is+2,multiplicity[is+1]); - fprintf(outlog,"\n"); - - for(int is=0; is<64;is++) { - if (CntEvts[is] > 0) fprintf(outlog,"ADC(%i): Counts = %i Pileups = %i\n",is+1,CntEvts[is],PileUp[is]); - } - - percent = 0.; - if (CntAll > 0) percent = 100. * float(CntGate)/ float(CntAll); - fprintf(outlog,"Total coincidence events = %i Number in time gates = %i\n Percent in time gate = %5.2f\n",CntAll,CntGate,percent); - - - if (strcmp(argv[2],"NULL") != 0) fclose(outdat); - return 0; -} - - - -void InitializeVariables(char **args) { - - //initialize correctable - - for (ipnt = 0; ipnt<65; ipnt++) pntcnt[ipnt]=0; - for (int adc=0; adc<65; adc++){ - timelo[adc] = 0; timehi[adc]=32767; - for (ipnt=0; ipnt<100; ipnt++) { - correctable[adc][ipnt] = -1.; - channel[adc][ipnt]=-1; - } - } - - for (int is=0; is<10; is++) multiplicity[is]=0; - for (int is=0; is<64;is++) PileUp[is]=0; - for (int is=0; is<64; is++) CntEvts[is]=0; - - - if (correctflag > 0) { -// Read in correction table - std::cerr<<"correction table file = "<> iadc; - *in >> offset; - *in >> timelo[iadc]; - *in >> timehi[iadc]; - while (iadc >= 0) { - if (startdet == -2) std::cout<<"iadc ="<> channel[iadc][ipnt]; -// std::cout<> iadc; - *in >> offset; - *in >> timelo[iadc]; - *in >> timehi[iadc]; - - } //end if (iadc - ipnt=0; - } //end while (iadc - - - if (startdet == -2) return; - - } //end if (correctflag > 0 - -} //end void InitializaVariables - -void WriteOutEvent(char **args,FILE *outdat) { - - if(timeinevent < mineventime) mineventime = timeinevent; - if (mul>8) mul=9; - multiplicity[mul]++; - -if (strcmp(args[2],"NULL") != 0) { - detectorcount = detectorcount & 255; -// timezero will be > 0 if startdet fired in this event -// if(detectorcount > 0 && timezero > -30000) { - if(detectorcount > 0 && timezero == -30000) { - CntAll ++; -// printf("\n[%i] ",detectorcount); - for (int icnt=1; icnt 0) { //Is there a correct table for this ADC? - ipnt=0; - -// Linear interpolation between points in correct.tab - while (ipnt < pntcnt[iadc] && (detenergy[icnt-1] >= channel[iadc][ipnt])) ipnt++; - top = correctable[iadc][ipnt] - correctable[iadc][ipnt-1]; - bottom = channel[iadc][ipnt] - channel[iadc][ipnt-1]; - fracx = top/bottom; - correct = correctable[iadc][ipnt-1] + fracx*(detenergy[icnt] - channel[iadc][ipnt-1]); - tdc = detenergy[icnt]; - if (detid[icnt-1] != startdet) tdc = 200 - correct + tdc; - if (detid[icnt-1] == startdet) tdc = correct + tdc; - if (tdc <1) tdc=1; if (tdc > 32767) tdc=32767; - detenergy[icnt] = tdc + 0.5; - averagetime += tdc; - if (detid[icnt-1] == startdet) timezero = (long) (tdc+0.5); - } //end if (pntcnt - - else if (timezero == -30000) { - detenergy[icnt] = detenergy[icnt] + 99; - averagetime += detenergy[icnt]; - } - - - } //end for (int icnt= - -// Adjust for timezero - averagetime = 2*averagetime/detectorcount; - for (int icnt=1; icnt timehi[iadc])) gateflag = 1; - } - -// write out event if in gate - - if (gateflag == 0) { - CntGate ++; - outevtcount++; - outcount[0] = detectorcount; - fwrite(outcount,sizeof(char),outsize,outdat); - for (int icnt=0; icnt 0 && timezero > -30000) - } //endif strcmp -// timeinevent = 0; -// timezero=-30000; - -} //end void WriteOutEvent( - -void BuildEvent() { - - if(timeinevent > maxeventime) maxeventime = timeinevent; - mul++; -//first put energy in list -//suppress zero energies and those over range to not confuse gnuscope - if(energy>10 && energy < 32000) { - detid[detectorcount]=chann; - detenergy[detectorcount]=energy; - detectorcount++; - if (chann == startdet) timezero = timeinevent + 99; -//now put timeinevent in list as chann + 64 - detid[detectorcount]=chann+64; - detenergy[detectorcount]=timeinevent; - detectorcount++; - } // end if (energy>10 .. - -} // end BuildEvent