/[PAMELA software]/quicklook/QLflightS4_ND/S4_QL.cpp
ViewVC logotype

Contents of /quicklook/QLflightS4_ND/S4_QL.cpp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations) (download)
Thu Jun 15 14:00:30 2006 UTC (18 years, 5 months ago) by pam-rm2
Branch: MAIN
Branch point for: QLflightS4_ND
Initial revision

1
2 /*
3 * S4 Quick Look
4 * Author Marcelli-Malvezzi
5 * Version 1.00 - March 2006
6 *
7 * Description - The aim of S4 QL software is to monitor the bahaviour of this detector.
8 * It creates three canvases: the first one contains the histogram of S4 data, the second one
9 * is relative to the time behaviour of collected data while the last shows S4 rate
10 * (information from trigger Packet).
11 * See documentation for a more detailed description of the output.
12 *
13 *
14 * Parameters:
15 * TSTring base - the path to the root directory for the specific Pamela unpack session
16 * There is no default value, without this input the program will not run
17 * TString outDir - the path where to save the output image (Default = ./)
18 * TString format - the format which will be used fo rsave the produced images (Default = "jpg")
19 * Float_t DeltaT - the time interval in minute for calculation of average S4 data for minute,
20 * see S4_QL_2 plot (Default = 1 minute)
21 *
22 *
23 * Version 1.1 - June 2006
24 * Fixed bugs: the vector "trcss" was inizilized to have dimension 10, but for files with large number of events this
25 * is not true; now this vector is inizialized at 100.
26 *
27 * the threshold at which S4 is set and the trigger configuration can change in the file; all these changes are reported
28 * in a pad
29 *
30 * for a large namber of events is not possible to have vectors, so all graphs have been converted in histograms
31 *******/
32
33
34 #include <iostream>
35 #include <fstream>
36 #include <sstream>
37 #include <math.h>
38 #include "TStyle.h"
39 #include "TFile.h"
40 #include "TList.h"
41 #include "TTree.h"
42 #include "TLatex.h"
43 #include "TObjString.h"
44 #include "TCanvas.h"
45 #include "TGraph.h"
46 #include "TH1F.h"
47 #include "TF1.h"
48 #include "TGaxis.h"
49 #include "TString.h"
50 #include "TPaveText.h"
51 #include "EventHeader.h"
52 #include "PscuHeader.h"
53 #include "TMultiGraph.h"
54 #include "physics/S4/S4Event.h"
55 #include "varDump/VarDumpEvent.h"
56 #include "varDump/VarDumpRecord.h"
57 #include "physics/trigger/TriggerEvent.h"
58
59 using namespace std;
60
61 void S4_QL(TString base, TString outDir, TString format, ULong_t DeltaT){ //DeltaT in minute
62
63 //------ Variables initialization ---------/
64 Int_t tmpSize;
65 ULong_t mintime, maxtime;
66 Int_t adcmax;
67 Int_t j=0;
68 Int_t S4_TRHadc;
69 Int_t S4_TRHmip;
70 TString filename = ((TObjString*)base.Tokenize('/')->Last())->GetString();
71 filename = ((TObjString*)filename.Tokenize('.')->First())->GetString();
72 char *trc;
73 TString trcs;
74 TString str;
75 TString trcsstot[31];
76 TString trcsstot2;
77 TString trcss[100]="";
78 TString trgconf[31]={"TOF1","TOF2","TOF3","TOF4","TOF5","TOF6","TOF7","S4","CALO","CALO-S4","TOF1-S4","TOF2-S4","TOF3-S4","TOF4-S4","TOF5-S4","TOF6-S4","TOF7-S4","TOF1-CALO","TOF2-CALO","TOF3-CALO","TOF4-CALO","TOF5-CALO","TOF6-CALO","TOF7-CALO","TOF1-CALO-S4","TOF2-CALO-S4","TOF3-CALO-S4","TOF4-CALO-S4","TOF5-CALO-S4","TOF6-CALO-S4","TOF7-CALO-S4",};
79 stringstream oss, oss1, oss2, oss3, s4soglia, buffer, conftrig, noentries;
80 ULong_t lastime, firstime;
81 Int_t vardumpentries = 0;
82 char S4_TRH[10];
83 char S4_TRH2[10];
84 Int_t trigconf = 0;
85 Long64_t nevents;
86 string title;
87 double obmin=0.;
88 double obmax=0.;
89 double obt;
90 double s4rate;
91 int nbin=0;
92 //------to open headerfile, s4file, Trigfile and vardumpfile---------------------------/
93 TFile *file =new TFile(base.Data()) ;
94 if (!file){
95 printf("No such file in the directory has been found");
96 return;
97 }
98
99 TTree *VarDumpTr = (TTree*)file->Get("VarDump");
100 TTree *PhysicsTr = (TTree*)file->Get("Physics");
101
102 TBranch *S4Br = PhysicsTr->GetBranch("S4");
103 TBranch *TriggerBr = PhysicsTr->GetBranch("Trigger");
104 TBranch *headBr = PhysicsTr->GetBranch("Header");
105 TBranch *VarDumpBr = VarDumpTr->GetBranch("VarDump");
106 TBranch *headVarDumpBr = VarDumpTr->GetBranch("Header");
107
108 pamela::S4::S4Event *s4e = 0;
109 pamela::EventHeader *eh = 0;
110 pamela::PscuHeader *ph = 0;
111 pamela::trigger::TriggerEvent *trige = 0;
112 pamela::VarDumpEvent *vde = 0;
113 pamela::VarDumpRecord *vdr = 0;
114
115 PhysicsTr->SetBranchAddress("S4", &s4e);
116 PhysicsTr->SetBranchAddress("Header", &eh);
117 PhysicsTr->SetBranchAddress("Trigger", &trige);
118 VarDumpTr->SetBranchAddress("VarDump", &vde);
119
120 nevents = headBr->GetEntries();
121 const Int_t sizetot = nevents;
122
123 //----------- If nevents < = 0 ---------------------------------/
124 if (nevents<=0) {
125 printf("nevents = %i \n", nevents);
126 printf(" \n");
127
128 TCanvas *canvas4 = new TCanvas("No entries", "No entries ", 400, 200);
129 canvas4->SetFillColor(10);
130 canvas4->cd();
131
132 TLatex *l = new TLatex();
133 l->SetTextAlign(12);
134 l->SetTextSize(0.15);
135 l->SetTextColor(2);
136 noentries.str("");
137 noentries<< "S4_QL:";
138 l->DrawLatex(0.05, 0.7, noentries.str().c_str());
139 noentries.str("");
140 noentries<< "No entries for this files";
141 l->DrawLatex(0.05, 0.5, noentries.str().c_str());
142
143 if (outDir == "./") {
144 oss.str("");
145 oss << filename.Data() << "_S4_QL." << format.Data();
146 } else {
147 oss.str("");
148 oss << outDir.Data() << filename.Data() << "_S4_QL." << format.Data();
149 }
150
151 canvas4->Update();
152 canvas4->SaveAs(oss.str().c_str());
153
154 return;
155 }
156
157 for (Int_t i = 0; i < nevents; i++){
158 headBr->GetEntry(i);
159 S4Br->GetEntry(i);
160 TriggerBr->GetEntry(i);
161 if (s4e->unpackError == 1 || s4e->S4_DATA==0) continue;
162 //-------to set max adc value------------------------------------------//
163 if (i==0){
164 adcmax=s4e->S4_DATA;
165 }
166 //-------to set trigger configuration---------------------------------//
167 if ((s4e->S4_DATA)> adcmax) adcmax=(s4e->S4_DATA);
168 trigconf = trige->trigconf;
169 trc = 0;
170 if ( trigconf & (1<<0) ) trc = "TOF1";
171 if ( trigconf & (1<<1) ) {
172 if (trc==0) trc= "TOF2";
173 else trc = Form("%s-TOF2",trc);
174 }
175 if ( trigconf & (1<<2) ) {
176 if (trc==0) trc= "TOF3";
177 else trc = Form("%s-TOF3",trc);
178 }
179 if ( trigconf & (1<<3) ) {
180 if (trc==0) trc= "TOF4";
181 else trc = Form("%s-TOF4",trc);
182 }
183 if ( trigconf & (1<<4) ) {
184 if (trc==0) trc= "TOF5";
185 else trc = Form("%s-TOF5",trc);
186 }
187 if ( trigconf & (1<<5) ) {
188 if (trc==0) trc= "TOF6";
189 else trc = Form("%s-TOF6",trc);
190 }
191 if ( trigconf & (1<<6) ) {
192 if (trc==0) trc= "TOF7";
193 else trc = Form("%s-TOF7",trc);
194 }
195 if ( trigconf & (1<<7) ) {
196 if (trc==0) trc= "S4";
197 else trc = Form("%s-S4",trc);
198 }
199 if ( trigconf & (1<<8) ) {
200 if (trc==0) trc= "CALO";
201 else trc = Form("%s-CALO",trc);
202 }
203 if ( trigconf & (1<<9) ) {
204 if (trc==0) trc= "CALIB_ON";
205 else trc = Form("%s-CALIB_ON",trc);
206 }
207 trcs = "";
208 trcs = trc;
209 if (i==0){
210 trcss[0]=trcs;
211 j=j+1;
212 }
213 if (trcs!=trcss[j-1] && i>0){
214 trcss[j]=trcs;
215 j=j+1;
216 }
217 }
218 for(Int_t k=0; k<31; k++){
219 for(Int_t p=0; p<j ; p++){
220 if(trgconf[k]==trcss[p]){
221 trcsstot[k]=trgconf[k];
222 }
223 }
224 }
225 for(Int_t k=0; k<31; k++){
226 if(trcsstot[k]!= "")
227 trcsstot2=trcsstot2+"/"+ trcsstot[k];
228 }
229 //---------to search S4 threshold and convert it into char (hexadecimal value)--------//
230 vardumpentries = VarDumpBr->GetEntries();
231 if(vardumpentries==0){
232 cout<<"TTree VarDump: Entries = 0"<<"\n"<<" S4 Threshold not defined"<<"\n";
233 str= " Not defined";
234 }
235 else{
236 for(Int_t k=0; k< vardumpentries; k++){
237 VarDumpBr->GetEntry(k);
238 vdr = (pamela::VarDumpRecord*)vde->Records->At(118);
239 S4_TRHadc=((vdr->VAR_VALUE)/256); //trh (number of ADC channels)
240 S4_TRHmip=S4_TRHadc*2;
241
242 //-----to convert decimal value to TString of S4 threshold value-------//
243 if(k==0){
244 sprintf(S4_TRH, "%d" , S4_TRHmip);
245 str= S4_TRH;
246 }else{
247 sprintf(S4_TRH2, "%d" , S4_TRHmip);
248 if(!strcmp(S4_TRH, S4_TRH2)) continue;
249 str= str+"/"+S4_TRH2;
250 }
251 sprintf(S4_TRH, "%d" , S4_TRHmip);
252 }
253 }
254
255 //********************** First Histogram ************************************//
256 TH1F *h1 = new TH1F("All events", "S4 distribution for file: "+filename, adcmax, 10, adcmax+(adcmax/10));
257 TH1F *h2 = new TH1F("S4 Triggered events", "S4 distribution for file: "+filename, adcmax, 10, adcmax+(adcmax/10));
258
259 //********************** Second Histogram ************************************//
260 headBr->GetEntry(0);
261 ph = eh->GetPscuHeader();
262 firstime = ph->GetOrbitalTime();
263 headBr->GetEntry(nevents-1);
264 ph = eh->GetPscuHeader();
265 lastime = ph->GetOrbitalTime();
266 obmin=firstime;
267 obmax=lastime;
268 const ULong_t nint=(((lastime-firstime)/(DeltaT*60000)));
269 const Int_t size = (Int_t)(nint+1);
270
271 TH1F *Allev = new TH1F("Mean signal from S4-all events", filename+": Mean signal from S4 (all triggered events)", size, obmin, obmax);
272 TH1F *Alltime = new TH1F("Mean signal from S4-all events", filename+": Mean signal from S4 (all triggered events)", size, obmin, obmax);
273 TH1F *S4ev = new TH1F("Mean signal from S4-triggered events", filename+": Mean signal from S4 (only s4 triggered events)", size, obmin, obmax);
274 TH1F *S4time = new TH1F("Mean signal from S4-triggered events", filename+": Mean signal from S4 (only s4 triggered events)", size, obmin, obmax);
275
276 //********************** Third Histogram ************************************//
277 nbin=sizetot;
278 title="";
279 title=filename+": S4 rate from Trigger Packet";
280
281 const ULong_t nint3=(lastime-firstime);
282 const Int_t size3 = (Int_t)((nint3)/3);
283
284 TH1F *rate= new TH1F(title.c_str(), title.c_str(), nint3, obmin, obmax);
285 TH1F *rateline= new TH1F(filename+": smoothed S4 rate", filename+": smoothed S4 rate", size3, obmin, obmax);
286
287 //------------------------------------------------------------------------------------------------------------------
288 //------- fill histograms ---------//
289 Int_t n=0, p=0;
290 for (Int_t i = 0; i < nevents; i++){
291 TriggerBr->GetEntry(i);
292 headBr->GetEntry(i);
293 S4Br->GetEntry(i);
294 ph = eh->GetPscuHeader();
295 obt = ph->GetOrbitalTime();
296 if (s4e->unpackError == 1 && (s4e->S4_DATA)==0) continue;
297 s4rate= trige->s4calcount[0];
298 rate->Fill(obt, s4rate);
299 h1->Fill(s4e->S4_DATA);
300 Allev->Fill(obt,s4e->S4_DATA);
301 Alltime->Fill(obt);
302 if((i==n) && (s4rate >0)){
303 rateline->Fill(obt,s4rate);
304 n=n+5;
305 }
306 if ((trige->patterntrig[0] == 0) && (trige->patterntrig[2] == 0) && (trige->patterntrig[3] == 0) && (trige->patterntrig[4] == 0) && (trige->patterntrig[5] == 0)){
307 h2->Fill(s4e->S4_DATA);
308 S4ev->Fill(obt,s4e->S4_DATA);
309 S4time->Fill(obt);
310 p=p+1;
311 }
312 }
313
314
315 //****************************** Canvases *******************************//
316 //------------------- First Canvas --------------------------------//
317 TCanvas *canvas1 = new TCanvas("S4_QL_1", "S4 HISTO ", 1280, 1024);
318 canvas1->SetFillColor(10);
319 canvas1->Divide(1,2);
320
321 TPad *all= new TPad ("","", 0, 0, 1, 1);
322 all->SetFillColor(10);
323 TPad *s4 = new TPad ("s4","s4", 0, 1, 1, 0);
324 s4->SetFillColor(10);
325 TPad *pad = new TPad("pad","pad", .30,.80,.78,.90);
326 pad->SetFillColor(10);
327 TPad *pad2 = new TPad("pad2","pad2", .30,.80,.78,.90);
328 pad2->SetFillColor(10);
329 TLatex *l = new TLatex();
330 l->SetTextAlign(12);
331 l->SetTextSize(0.35);
332 l->SetTextColor(8);
333 s4soglia.str("");
334 s4soglia << "S4_THRESHOLD: "<<str.Data()<<" MIP";
335 TLatex *ll = new TLatex();
336 ll->SetTextAlign(12);
337 ll->SetTextSize(0.35);
338 conftrig.str("");
339 conftrig<<"TRIGGER CONF: "<<trcsstot2.Data();
340 if(adcmax<=100) adcmax=120;
341
342 canvas1->cd(1);
343 all->Draw();
344 all->cd();
345 h1->SetLineColor(kBlack);
346 h1->SetFillColor(kRed);
347 h1->GetXaxis()->SetTitle("ADC");
348 h1->GetXaxis()->CenterTitle();
349 h1->GetYaxis()->SetTitle("Number of Events");
350 h1->GetYaxis()->CenterTitle();
351 h1->Draw();
352 pad->Draw();
353 pad->cd();
354 l->DrawLatex(0.05, 0.65, s4soglia.str().c_str());
355 ll->DrawLatex(0.05, 0.15, conftrig.str().c_str());
356
357
358 canvas1->cd(2);
359 s4->Draw();
360 s4->cd();
361 h2->SetLineColor(kBlack);
362 h2->SetFillColor(2);
363 h2->GetXaxis()->SetTitle("ADC");
364 h2->GetXaxis()->CenterTitle();
365 h2->GetYaxis()->SetTitle("Number of Events");
366 h2->GetYaxis()->CenterTitle();
367 h2->Draw();
368 pad2->Draw();
369 pad2->cd();
370 l->DrawLatex(0.05, 0.65, s4soglia.str().c_str());
371 ll->DrawLatex(0.05, 0.15, conftrig.str().c_str());
372
373 if (h1->GetMaximum()>0){
374 all->SetLogy();
375 all->SetLogx();
376 }
377 if (h2->GetMaximum()>0){
378 s4->SetLogy();
379 s4->SetLogx();
380 }
381 canvas1->Update();
382
383
384 if (outDir == "./") {
385 oss1.str("");
386 oss1 << filename.Data() << "_S4_QL_1." << format.Data();
387 } else {
388 oss1.str("");
389 oss1 << outDir.Data() << filename.Data() << "_S4_QL_1." << format.Data();
390 }
391 canvas1->SaveAs(oss1.str().c_str());
392
393 //------------------- Second Canvas --------------------------------//
394 if (nint==0){
395 cout<<"Number of Time Interval = 0"<<"\n"<<" Set another value for input parameter DeltaTevtime "<<"\n"<<"RETURN"<<"\n";
396
397 TCanvas *canvas2 = new TCanvas("Number of time interval=0", "Number of time interval=0", 900, 300);
398 canvas2->SetFillColor(10);
399 canvas2->cd();
400
401 TLatex *l = new TLatex();
402 l->SetTextAlign(12);
403 l->SetTextSize(0.10);
404 l->SetTextColor(2);
405 noentries.str("");
406 noentries<< "S4_QL: Time evolution";
407 l->DrawLatex(0.05, 0.7, noentries.str().c_str());
408 noentries.str("");
409 noentries<< "Number of Time Interval = 0";
410 l->SetTextColor(1);
411 l->DrawLatex(0.05, 0.5, noentries.str().c_str());
412 noentries.str(" Set another value for input parameter DeltaTevtime");
413 noentries<< "";
414 l->DrawLatex(0.05, 0.3, noentries.str().c_str());
415
416 if (outDir == "./") {
417 oss.str("");
418 oss << filename.Data() << "_S4_QL_2." << format.Data();
419 } else {
420 oss.str("");
421 oss << outDir.Data() << filename.Data() << "_S4_QL_2." << format.Data();
422 }
423 canvas2->Update();
424 canvas2->SaveAs(oss.str().c_str());
425
426 return;
427 }
428 TCanvas *canvas2 = new TCanvas("S4_QL_2", "S4 - Time evolution", 1280, 1024);
429 canvas2->SetFillColor(10);
430 canvas2->Divide(1,2);
431
432 TPad *pad3 = new TPad("pad3","pad3", .7,.1,.88,.30);
433 pad3->SetFillColor(10);
434 TPad *pad4 = new TPad("pad4","pad4", .7,.1,.88,.30);
435 pad4->SetFillColor(10);
436
437 TLatex *l3 = new TLatex();
438 l3->SetTextAlign(12);
439 l3->SetTextSize(.3);
440 l3->SetTextColor(2);
441 buffer.str("");
442 buffer<<"DT : "<<DeltaT<<" min";
443
444 canvas2->cd(1);
445 Allev->SetStats(kFALSE);
446 Allev->SetMarkerColor(2);
447 Allev->SetMarkerSize(.5);
448 Allev->SetMarkerStyle(21);
449 Allev->GetXaxis()->SetTitle("Time ( OBT in ms )");
450 Allev->GetXaxis()->CenterTitle();
451 Allev->GetYaxis()->SetTitle("Mean signal ( ADC )");
452 Allev->GetYaxis()->CenterTitle();
453 Allev->SetMinimum(20);
454 Allev->Divide(Alltime);
455 Allev->Draw("p");
456 pad3->Draw();
457 pad3->cd();
458 l3->DrawLatex(0.05, 0.65, buffer.str().c_str());
459
460
461 canvas2->cd(2);
462 if(p != 0){
463 S4ev->SetStats(kFALSE);
464 S4ev->SetMarkerColor(2);
465 S4ev->SetMarkerSize(.5);
466 S4ev->SetMarkerStyle(21);
467 S4ev->GetXaxis()->SetTitle("Time ( OBT in ms )");
468 S4ev->GetXaxis()->CenterTitle();
469 S4ev->GetYaxis()->SetTitle("Mean signal ( ADC )");
470 S4ev->GetYaxis()->CenterTitle();
471 S4ev->SetMinimum(20);
472 S4ev->Divide(S4time);
473 S4ev->Draw("p");
474 pad4->Draw();
475 pad4->cd();
476 l3->DrawLatex(0.05, 0.65, buffer.str().c_str());
477 }else{
478 TLatex *l = new TLatex();
479 l->SetTextAlign(12);
480 l->SetTextSize(0.07);
481 l->SetTextColor(2);
482 noentries.str("");
483 noentries<< "S4_QL: Time evolution";
484 l->DrawLatex(0.06, 0.6, noentries.str().c_str());
485 noentries.str("");
486 noentries<< "No S4 triggered events.";
487 l->SetTextColor(1);
488 l->DrawLatex(0.06, 0.5, noentries.str().c_str());
489 }
490
491 if (outDir == "./") {
492 oss2.str("");
493 oss2 << filename.Data() << "_S4_QL_2." << format.Data();
494 } else {
495 oss2.str("");
496 oss2 << outDir.Data() << filename.Data() << "_S4_QL_2." << format.Data();
497 }
498 canvas2->SaveAs(oss2.str().c_str());
499
500 //------------------- Third Canvas --------------------------------//
501 TCanvas *canvas3 = new TCanvas("S4 - Rate", "S4 - Rate", 1280, 1024);
502 canvas3->SetFillColor(10);
503 canvas3->Divide(1,2);
504
505 canvas3->cd(1);
506 rate->SetStats(kFALSE);
507 rate->SetMarkerColor(2);
508 rate->SetMarkerSize(.5);
509 rate->SetMarkerStyle(21);
510 rate->GetXaxis()->SetTitle("Time ( OBT in ms )");
511 rate->GetXaxis()->CenterTitle();
512 rate->GetYaxis()->SetTitle("S4 rate (Hz)");
513 rate->GetYaxis()->CenterTitle();
514 if(rate->GetMaximum() > 1000) gPad->SetLogy();
515 rate->Draw("9p");
516
517 canvas3->cd(2);
518 rateline->SetStats(kFALSE);
519 rateline->SetMarkerColor(4);
520 rateline->SetMarkerSize(.5);
521 rateline->SetMarkerStyle(21);
522 rateline->GetXaxis()->SetTitle("Time ( OBT in ms )");
523 rateline->GetXaxis()->CenterTitle();
524 rateline->GetYaxis()->SetTitle("S4 rate (Hz)");
525 rateline->GetYaxis()->CenterTitle();
526 rateline->SetMaximum(rate->GetMaximum());
527 if(rateline->GetMaximum() > 1000) gPad->SetLogy();
528 rateline->Draw("9p");
529
530
531 if (outDir == "./") {
532 oss3.str("");
533 oss3 << filename.Data() << "_S4_QL_3." << format.Data();
534 } else {
535 oss3.str("");
536 oss3 << outDir.Data() << filename.Data() << "_S4_QL_3." << format.Data();
537 }
538 canvas3->SaveAs(oss3.str().c_str());
539 file->Close();
540 }
541
542
543 int main(int argc, char* argv[]){
544 TString path;
545 TString outDir ="./";
546 TString format ="jpg";
547 ULong_t DeltaT =1;
548
549
550 if (argc < 2){
551 printf("You have to insert at least the file to analyze \n");
552 printf("Try '--help' for more information. \n");
553 exit(1);
554 }
555
556 if (!strcmp(argv[1], "--help")){
557 printf( "Usage: ND_QL FILE [OPTION] \n");
558 printf( "\t --help Print this help and exit \n");
559 printf( "\t -outDir[path] Path where to put the output [default ./] \n");
560 printf( "\t -format[jpg|gif|ps] Format for output files [default 'jpg'] \n");
561 printf( "\t -DeltaT Time interval to control time evolution of acquired data in minute [default = 1 min] \n");
562 exit(1);
563 }
564
565 path=argv[1];
566
567 for (int i = 2; i < argc; i++){
568
569 if (!strcmp(argv[i], "-outDir")){
570 if (++i >= argc){
571 printf( "-outDir needs arguments. \n");
572 printf( "Try '--help' for more information. \n");
573 exit(1);
574 }
575 else{
576 outDir = argv[i];
577 continue;
578 }
579 }
580
581 if (!strcmp(argv[i], "-format")){
582 if (++i >= argc){
583 printf( "-format needs arguments. \n");
584 printf( "Try '--help' for more information. \n");
585 exit(1);
586 }
587 else{
588 format = argv[i];
589 continue;
590 }
591 }
592
593 if (!strcmp(argv[i], "-DeltaT")){
594 if (++i >= argc){
595 printf( "-DeltaT needs arguments. \n");
596 printf( "Try '--help' for more information. \n");
597 exit(1);
598 }
599 else{
600 DeltaT = atol(argv[i]);
601 continue;
602 }
603 }
604
605
606 }
607
608 S4_QL(argv[1], outDir, format, DeltaT);
609
610 }
611

  ViewVC Help
Powered by ViewVC 1.1.23