10 |
#define NVIEW 12 |
#define NVIEW 12 |
11 |
#define NVK 24 |
#define NVK 24 |
12 |
#define NLADDER 3 |
#define NLADDER 3 |
13 |
|
#define NSENSOR 2 |
14 |
|
#define NSTRIPVK 128 |
15 |
|
#define NSTRIP NSTRIPVK*NVK |
16 |
|
|
17 |
#define NCLMAX_VIEW 200 //max n.clusters per view |
#define NCLMAX_VIEW 200 //max n.clusters per view |
18 |
#define NCLSTR 20 //max n.strip per cluster |
#define NCLSTR 20 //max n.strip per cluster |
28 |
#define NSINGMAX NCLMAX //100 |
#define NSINGMAX NCLMAX //100 |
29 |
|
|
30 |
#define NANGMAX 21 |
#define NANGMAX 21 |
31 |
#define NETAVALMAX 150 |
#define NETAVALMAX 500 |
32 |
|
|
33 |
|
#define NTRACKSMAX (NCLOYZ_MAX*NCLOXZ_MAX) |
34 |
|
|
35 |
//#include <CalibTrk1Event.h> |
#include <CalibTrk1Event.h> |
36 |
//#include <CalibTrk2Event.h> |
#include <CalibTrk2Event.h> |
37 |
#include <TrkCalib.h> |
using namespace pamela; |
38 |
|
//#include <TrkCalib.h> |
39 |
|
|
40 |
#include <TString.h> |
#include <TString.h> |
41 |
#include <TFile.h> |
#include <TFile.h> |
42 |
#include <TTree.h> |
#include <TTree.h> |
43 |
|
|
44 |
|
|
45 |
|
|
46 |
#include <fstream> |
#include <fstream> |
47 |
#include <iostream> |
#include <iostream> |
48 |
/** |
/** |
56 |
float sigma_t[128][24][12]; |
float sigma_t[128][24][12]; |
57 |
int bad[128][24][12]; |
int bad[128][24][12]; |
58 |
|
|
59 |
void FillACalibFrom(TFile* , Int_t , Int_t ); |
void Reset(){ |
60 |
void FillFCalibFrom(TFile* , Int_t , Int_t ); |
for(int is=0; is<128; is++){ |
61 |
void FillTCalibFrom(TFile* , Int_t , Int_t ); |
for(int ivk=0; ivk<24; ivk++){ |
62 |
void FillTCalibFrom(TString); |
for(int iv=0; iv<12; iv++){ |
63 |
|
pedestal[is][ivk][iv]=0.; |
64 |
|
pedestal_t[is][ivk][iv]=0.; |
65 |
|
sigma[is][ivk][iv]=0.; |
66 |
|
sigma_t[is][ivk][iv]=0.; |
67 |
|
bad[is][ivk][iv]=1; |
68 |
|
} |
69 |
|
} |
70 |
|
} |
71 |
|
} |
72 |
|
|
73 |
|
/* void FillACalibFrom(TFile* , Int_t , Int_t ); */ |
74 |
|
/* void FillFCalibFrom(TFile* , Int_t , Int_t ); */ |
75 |
|
/* void FillTCalibFrom(TFile* , Int_t , Int_t ); */ |
76 |
|
/* void FillTCalibFrom(TString); */ |
77 |
|
|
78 |
}; |
}; |
79 |
// ================================================================== |
// ================================================================== |
134 |
float cnrmsev[24][12]; |
float cnrmsev[24][12]; |
135 |
int fshower[12]; |
int fshower[12]; |
136 |
int whichtrack[NCLMAX]; |
int whichtrack[NCLMAX]; |
137 |
|
|
138 |
}; |
}; |
139 |
// ================================================================== |
// ================================================================== |
140 |
/** |
/** |
143 |
struct cTrkLevel2 { |
struct cTrkLevel2 { |
144 |
// int good2; |
// int good2; |
145 |
// int crc[12]; |
// int crc[12]; |
146 |
int good[12]; |
int good[12]; |
147 |
|
int vkflag[24][12]; |
148 |
// ---------------------------- |
// ---------------------------- |
149 |
int nclsx; |
int nclsx; |
150 |
int planex[NSINGMAX]; |
int planex[NSINGMAX]; |
151 |
float xs[NSINGMAX][2]; |
float xs[NSINGMAX][2]; |
152 |
float signlxs[NSINGMAX]; |
float signlxs[NSINGMAX]; |
153 |
int clsx[NSINGMAX]; |
int clsx[NSINGMAX]; |
154 |
|
int sxbad[NSINGMAX]; |
155 |
|
int multmaxsx[NSINGMAX]; |
156 |
// ---------------------------- |
// ---------------------------- |
157 |
int nclsy; |
int nclsy; |
158 |
int planey[NSINGMAX]; |
int planey[NSINGMAX]; |
159 |
float ys[NSINGMAX][2]; |
float ys[NSINGMAX][2]; |
160 |
float signlys[NSINGMAX]; |
float signlys[NSINGMAX]; |
161 |
int clsy[NSINGMAX]; |
int clsy[NSINGMAX]; |
162 |
|
int sybad[NSINGMAX]; |
163 |
|
int multmaxsy[NSINGMAX]; |
164 |
// ---------------------------- |
// ---------------------------- |
165 |
int ntrk; |
int ntrk; |
166 |
int image[NTRKMAX]; |
int image[NTRKMAX]; |
169 |
float zm_nt[NTRKMAX][6]; |
float zm_nt[NTRKMAX][6]; |
170 |
float resx_nt[NTRKMAX][6]; |
float resx_nt[NTRKMAX][6]; |
171 |
float resy_nt[NTRKMAX][6]; |
float resy_nt[NTRKMAX][6]; |
172 |
|
float tailx[NTRKMAX][6]; |
173 |
|
float taily[NTRKMAX][6]; |
174 |
float al_nt[NTRKMAX][5]; |
float al_nt[NTRKMAX][5]; |
175 |
float coval[NTRKMAX][5][5]; |
float coval[NTRKMAX][5][5]; |
176 |
float chi2_nt[NTRKMAX]; |
float chi2_nt[NTRKMAX]; |
177 |
int nstep_nt[NTRKMAX]; |
int nstep_nt[NTRKMAX]; |
178 |
int xgood_nt[NTRKMAX][6]; |
int xgood_nt[NTRKMAX][6]; |
179 |
int ygood_nt[NTRKMAX][6]; |
int ygood_nt[NTRKMAX][6]; |
180 |
|
int ls[NTRKMAX][6]; |
181 |
|
int xbad[NTRKMAX][6]; |
182 |
|
int ybad[NTRKMAX][6]; |
183 |
float xv_nt[NTRKMAX][6]; |
float xv_nt[NTRKMAX][6]; |
184 |
float yv_nt[NTRKMAX][6]; |
float yv_nt[NTRKMAX][6]; |
185 |
float zv_nt[NTRKMAX][6]; |
float zv_nt[NTRKMAX][6]; |
189 |
float dedx_y[NTRKMAX][6]; |
float dedx_y[NTRKMAX][6]; |
190 |
int cltrx[NTRKMAX][6]; |
int cltrx[NTRKMAX][6]; |
191 |
int cltry[NTRKMAX][6]; |
int cltry[NTRKMAX][6]; |
192 |
|
int multmaxx[NTRKMAX][6]; |
193 |
|
int multmaxy[NTRKMAX][6]; |
194 |
|
float seedx[NTRKMAX][6]; |
195 |
|
float seedy[NTRKMAX][6]; |
196 |
|
float xpu[NTRKMAX][6]; |
197 |
|
float ypu[NTRKMAX][6]; |
198 |
// float bdl[NTRKMAX]; |
// float bdl[NTRKMAX]; |
199 |
|
|
200 |
void InitcTrkLevel2(){ |
void InitcTrkLevel2(){ |
201 |
|
|
202 |
// good2 = 0; |
// good2 = 0; |
203 |
for(Int_t i=0; i<12 ; i++) |
for(Int_t i=0; i<12 ; i++){ |
204 |
// crc[i] = 0; |
good[i] = 0; |
205 |
good[i] = 0; |
for(Int_t ii=0; ii<24 ; ii++)vkflag[ii][i]=0; |
206 |
// ---------------------------- |
} |
207 |
nclsx = 0; |
// ---------------------------- |
208 |
nclsy = 0; |
nclsx = 0; |
209 |
for(Int_t i=0; i<NSINGMAX ; i++){ |
nclsy = 0; |
210 |
planex[i] = 0; |
for(Int_t i=0; i<NSINGMAX ; i++){ |
211 |
xs[i][0] = 0; |
planex[i] = 0; |
212 |
xs[i][1] = 0; |
xs[i][0] = 0; |
213 |
signlxs[i] = 0; |
xs[i][1] = 0; |
214 |
planey[i] = 0; |
signlxs[i] = 0; |
215 |
ys[i][0] = 0; |
clsx[i] = 0; |
216 |
ys[i][1] = 0; |
sxbad[i] = 0; |
217 |
signlys[i] = 0; |
planey[i] = 0; |
218 |
} |
ys[i][0] = 0; |
219 |
// ---------------------------- |
ys[i][1] = 0; |
220 |
ntrk =0 ; |
signlys[i] = 0; |
221 |
|
clsy[i] = 0; |
222 |
for(Int_t i=0; i<NTRKMAX ; i++){ |
sybad[i] = 0; |
223 |
image[i] = 0; |
} |
224 |
chi2_nt[i] = 0; |
// ---------------------------- |
225 |
|
ntrk =0 ; |
226 |
|
|
227 |
|
for(Int_t i=0; i<NTRKMAX ; i++){ |
228 |
|
image[i] = 0; |
229 |
|
chi2_nt[i] = 0; |
230 |
// bdl[i] = 0; |
// bdl[i] = 0; |
231 |
|
|
232 |
for(Int_t ii=0; ii<5 ; ii++){ |
for(Int_t ii=0; ii<5 ; ii++){ |
233 |
al_nt[i][ii] = 0; |
al_nt[i][ii] = 0; |
234 |
for(Int_t iii=0; iii<5 ; iii++) |
for(Int_t iii=0; iii<5 ; iii++) |
235 |
coval[i][ii][iii] = 0; |
coval[i][ii][iii] = 0; |
236 |
} |
} |
237 |
|
|
238 |
for(Int_t ii=0; ii<6 ; ii++){ |
for(Int_t ii=0; ii<6 ; ii++){ |
239 |
xm_nt[i][ii] = 0; |
xm_nt[i][ii] = 0; |
240 |
ym_nt[i][ii] = 0; |
ym_nt[i][ii] = 0; |
241 |
zm_nt[i][ii] = 0; |
zm_nt[i][ii] = 0; |
242 |
resx_nt[i][ii] = 0; |
resx_nt[i][ii] = 0; |
243 |
resy_nt[i][ii] = 0; |
resy_nt[i][ii] = 0; |
244 |
xgood_nt[i][ii] = 0; |
xgood_nt[i][ii] = 0; |
245 |
ygood_nt[i][ii] = 0; |
ygood_nt[i][ii] = 0; |
246 |
xv_nt[i][ii] = 0; |
xv_nt[i][ii] = 0; |
247 |
yv_nt[i][ii] = 0; |
yv_nt[i][ii] = 0; |
248 |
zv_nt[i][ii] = 0; |
zv_nt[i][ii] = 0; |
249 |
axv_nt[i][ii] = 0; |
axv_nt[i][ii] = 0; |
250 |
ayv_nt[i][ii] = 0; |
ayv_nt[i][ii] = 0; |
251 |
dedx_x[i][ii] = 0; |
dedx_x[i][ii] = 0; |
252 |
dedx_y[i][ii] = 0; |
dedx_y[i][ii] = 0; |
253 |
} |
multmaxx[i][ii] = 0; |
254 |
|
multmaxy[i][ii] = 0; |
255 |
|
seedx[i][ii] = 0; |
256 |
|
seedy[i][ii] = 0; |
257 |
|
xpu[i][ii] = 0; |
258 |
|
ypu[i][ii] = 0; |
259 |
|
} |
260 |
|
} |
261 |
} |
} |
262 |
} |
|
|
|
|
263 |
}; |
}; |
264 |
// ================================================================== |
// ================================================================== |
265 |
/** |
/** |
330 |
struct cMini2track { |
struct cMini2track { |
331 |
double al[5]; |
double al[5]; |
332 |
double xm[NPLANE],ym[NPLANE],zm[NPLANE]; |
double xm[NPLANE],ym[NPLANE],zm[NPLANE]; |
333 |
double xm_a[NPLANE],ym_a[NPLANE]; |
double xm_a[NPLANE],ym_a[NPLANE],zm_a[NPLANE]; |
334 |
double xm_b[NPLANE],ym_b[NPLANE]; |
double xm_b[NPLANE],ym_b[NPLANE],zm_b[NPLANE]; |
335 |
double resx[NPLANE],resy[NPLANE]; |
double resx[NPLANE],resy[NPLANE]; |
336 |
|
double tailx[NPLANE],taily[NPLANE]; |
337 |
double xgood[NPLANE],ygood[NPLANE]; |
double xgood[NPLANE],ygood[NPLANE]; |
338 |
double dedxtrk_x[NPLANE]; |
double dedxtrk_x[NPLANE]; |
339 |
double dedxtrk_y[NPLANE]; |
double dedxtrk_y[NPLANE]; |
343 |
double xv[NPLANE],yv[NPLANE],zv[NPLANE]; |
double xv[NPLANE],yv[NPLANE],zv[NPLANE]; |
344 |
double axv[NPLANE],ayv[NPLANE]; |
double axv[NPLANE],ayv[NPLANE]; |
345 |
double cov[5][5]; |
double cov[5][5]; |
346 |
|
double fact; |
347 |
int nstep; |
int nstep; |
348 |
int idcand; |
int idcand; |
349 |
|
int trackmode; |
350 |
|
int istepmin; |
351 |
|
|
352 |
|
/* cMini2track(){ */ |
353 |
|
/* // -------------------------- */ |
354 |
|
/* // fitting routine parameters */ |
355 |
|
/* // -------------------------- */ |
356 |
|
/* zini = 23.5; */ |
357 |
|
/* trackmode = 0; */ |
358 |
|
/* istepmin = 3; */ |
359 |
|
/* // -------------------------- */ |
360 |
|
/* pfixed = 0.; */ |
361 |
|
/* chi2 = 0; */ |
362 |
|
/* nstep = 0; */ |
363 |
|
/* for(int it1=0;it1<5;it1++){ */ |
364 |
|
/* al[it1] = 0; */ |
365 |
|
/* for(int it2=0;it2<5;it2++)cov[it1][it2] = 0; */ |
366 |
|
/* }; */ |
367 |
|
/* for(int ip=0;ip<6;ip++){ */ |
368 |
|
/* xgood[ip] = 0; */ |
369 |
|
/* ygood[ip] = 0; */ |
370 |
|
/* xm[ip] = 0; */ |
371 |
|
/* ym[ip] = 0; */ |
372 |
|
/* xm_a[ip] = 0; */ |
373 |
|
/* ym_a[ip] = 0; */ |
374 |
|
/* xm_b[ip] = 0; */ |
375 |
|
/* ym_b[ip] = 0; */ |
376 |
|
/* zm[ip] = 0; */ |
377 |
|
/* resx[ip] = 0; */ |
378 |
|
/* resy[ip] = 0; */ |
379 |
|
/* xv[ip] = 0; */ |
380 |
|
/* yv[ip] = 0; */ |
381 |
|
/* zv[ip] = 0; */ |
382 |
|
/* axv[ip] = 0; */ |
383 |
|
/* ayv[ip] = 0; */ |
384 |
|
/* dedxtrk_x[ip] = 0; */ |
385 |
|
/* dedxtrk_y[ip] = 0; */ |
386 |
|
/* }; */ |
387 |
|
|
388 |
|
/* } */ |
389 |
|
|
390 |
|
|
391 |
|
}; |
392 |
|
|
393 |
|
// ================================================================== |
394 |
|
/** |
395 |
|
* \brief Struct to pass DELTAB parameters to F77 routines |
396 |
|
*/ |
397 |
|
struct cDeltaB { |
398 |
|
double delta0; |
399 |
|
double delta1; |
400 |
|
double dlt; |
401 |
}; |
}; |
402 |
|
|
403 |
// |
// |
404 |
/** |
/** |
405 |
* \Struct for the hough transform variables |
* \Struct for the hough transform variables |
468 |
}; |
}; |
469 |
|
|
470 |
/** |
/** |
471 |
|
* \Struct for track candidates after hough transform |
472 |
|
*/ |
473 |
|
struct cTrkCandidates { |
474 |
|
int ntracks; |
475 |
|
float al[NTRACKSMAX][5]; |
476 |
|
float xm[NTRACKSMAX][NPLANE]; |
477 |
|
float ym[NTRACKSMAX][NPLANE]; |
478 |
|
float zm[NTRACKSMAX][NPLANE]; |
479 |
|
float resx[NTRACKSMAX][NPLANE]; |
480 |
|
float resy[NTRACKSMAX][NPLANE]; |
481 |
|
float xv[NTRACKSMAX][NPLANE]; |
482 |
|
float yv[NTRACKSMAX][NPLANE]; |
483 |
|
float zv[NTRACKSMAX][NPLANE]; |
484 |
|
float axv[NTRACKSMAX][NPLANE]; |
485 |
|
float ayv[NTRACKSMAX][NPLANE]; |
486 |
|
float xgood[NTRACKSMAX][NPLANE]; |
487 |
|
float ygood[NTRACKSMAX][NPLANE]; |
488 |
|
int cp[NTRACKSMAX][NPLANE]; |
489 |
|
int cls[NTRACKSMAX][NPLANE]; |
490 |
|
int sensor[NTRACKSMAX][NPLANE]; |
491 |
|
int ladder[NTRACKSMAX][NPLANE]; |
492 |
|
float bx[NTRACKSMAX][NPLANE]; |
493 |
|
float by[NTRACKSMAX][NPLANE]; |
494 |
|
float chi2[NTRACKSMAX]; |
495 |
|
|
496 |
|
void Init(){ |
497 |
|
ntracks=0; |
498 |
|
for(int i=0; i<NTRACKSMAX; i++){ |
499 |
|
for(int ii=0; ii<5; ii++)al[i][ii]=0; |
500 |
|
chi2[i]=0; |
501 |
|
for(int ip=0; ip<NPLANE; ip++){ |
502 |
|
xm[i][ip]=0; |
503 |
|
ym[i][ip]=0; |
504 |
|
zm[i][ip]=0; |
505 |
|
resx[i][ip]=0; |
506 |
|
resy[i][ip]=0; |
507 |
|
xv[i][ip]=0; |
508 |
|
yv[i][ip]=0; |
509 |
|
zv[i][ip]=0; |
510 |
|
axv[i][ip]=0; |
511 |
|
ayv[i][ip]=0; |
512 |
|
xgood[i][ip]=0; |
513 |
|
ygood[i][ip]=0; |
514 |
|
cp[i][ip]=0; |
515 |
|
cls[i][ip]=0; |
516 |
|
sensor[i][ip]=0; |
517 |
|
ladder[i][ip]=0; |
518 |
|
bx[i][ip]=0; |
519 |
|
by[i][ip]=0; |
520 |
|
} |
521 |
|
} |
522 |
|
|
523 |
|
}; |
524 |
|
|
525 |
|
|
526 |
|
}; |
527 |
|
|
528 |
|
/** |
529 |
* \brief Struct to pass VA1-mask to F77 routines |
* \brief Struct to pass VA1-mask to F77 routines |
530 |
*/ |
*/ |
531 |
struct cTrkMask { |
struct cTrkMask { |
533 |
int mask_vk[NVK][NVIEW]; |
int mask_vk[NVK][NVIEW]; |
534 |
int mask_vk_run[NVK][NVIEW]; |
int mask_vk_run[NVK][NVIEW]; |
535 |
|
|
536 |
void Set(TFile* , Int_t , Int_t ); |
// void Set(TFile* , Int_t , Int_t ); |
537 |
|
|
538 |
|
void Reset(){ |
539 |
|
for(int ivk=0; ivk<NVK; ivk++){ |
540 |
|
for(int iv=0; iv<NVIEW; iv++){ |
541 |
|
// mask_vk[ivk][iv]=0; |
542 |
|
mask_vk_run[ivk][iv]=0; |
543 |
|
} |
544 |
|
} |
545 |
|
} |
546 |
|
|
547 |
|
void Dump(){ |
548 |
|
} |
549 |
|
|
550 |
}; |
}; |
551 |
|
|
563 |
float feta3[NANGMAX][NLADDER][NVIEW][NETAVALMAX]; |
float feta3[NANGMAX][NLADDER][NVIEW][NETAVALMAX]; |
564 |
float eta4[NANGMAX][NETAVALMAX]; |
float eta4[NANGMAX][NETAVALMAX]; |
565 |
float feta4[NANGMAX][NLADDER][NVIEW][NETAVALMAX]; |
float feta4[NANGMAX][NLADDER][NVIEW][NETAVALMAX]; |
566 |
|
float fcorr[NANGMAX][NLADDER][NVIEW]; |
567 |
|
float e234ax[6];//F77: e2fax,e2tax,e3fax,e3tax,e4fax,e4tax |
568 |
|
float e234ay[6];//F77: e2fay,e2tay,e3fay,e3tay,e4fay,e4tay |
569 |
|
|
570 |
|
}; |
571 |
|
/** |
572 |
|
* \brief Struct to configure data reduction |
573 |
|
*/ |
574 |
|
struct cTrkSW{ |
575 |
|
int pfaid; |
576 |
|
}; |
577 |
|
/** |
578 |
|
* \brief Struct to read alignment parameters |
579 |
|
*/ |
580 |
|
struct cTrkAlign { |
581 |
|
|
582 |
|
double omega[NSENSOR][NLADDER][NPLANE]; |
583 |
|
double beta[NSENSOR][NLADDER][NPLANE]; |
584 |
|
double gamma[NSENSOR][NLADDER][NPLANE]; |
585 |
|
double dx[NSENSOR][NLADDER][NPLANE]; |
586 |
|
double dy[NSENSOR][NLADDER][NPLANE]; |
587 |
|
double dz[NSENSOR][NLADDER][NPLANE]; |
588 |
|
|
589 |
|
}; |
590 |
|
|
591 |
|
/** |
592 |
|
* \brief Struct to check reduction procedure: CN evaluation |
593 |
|
*/ |
594 |
|
struct cTrkCN { |
595 |
|
|
596 |
|
float cn[NVK][NVIEW]; |
597 |
|
float cnrms[NVK][NVIEW]; |
598 |
|
int cnn[NVK][NVIEW]; |
599 |
|
int clstr[NSTRIPVK][NVK][NVIEW]; |
600 |
|
int strange[NSTRIPVK][NVK][NVIEW]; |
601 |
|
|
602 |
|
}; |
603 |
|
/** |
604 |
|
* \brief Struct to check reduction procedure: pedestal subtraction |
605 |
|
*/ |
606 |
|
struct cTrkEvent { |
607 |
|
float value[NSTRIP]; |
608 |
}; |
}; |
609 |
|
|
610 |
extern "C" { |
extern "C" { |
611 |
|
|
612 |
extern struct cTrkCalib pedsigbad_; |
extern struct cTrkCalib pedsigbad_; |
613 |
|
extern struct cTrkMask mask_; |
614 |
extern struct cTrkLevel0 level0event_; |
extern struct cTrkLevel0 level0event_; |
615 |
extern struct cTrkLevel1 level1event_; |
extern struct cTrkLevel1 level1event_; |
616 |
extern struct cTrkLevel2 level2event_; |
extern struct cTrkLevel2 level2event_; |
617 |
extern struct cPath path_; |
extern struct cPath path_; |
|
/* extern struct cBPath bpath_; */ |
|
618 |
extern struct cDbg dbg_; |
extern struct cDbg dbg_; |
619 |
extern struct cTrkHough houghevent_; |
extern struct cTrkHough houghevent_; |
620 |
|
extern struct cTrkCandidates trackcandidates_; |
621 |
extern struct cMini2track track_; |
extern struct cMini2track track_; |
|
extern struct cTrkMask mask_; |
|
622 |
extern struct cTrkETA pfa_; |
extern struct cTrkETA pfa_; |
623 |
|
extern struct cTrkSW sw_; |
624 |
|
extern struct cDeltaB deltab_; |
625 |
|
extern struct cTrkAlign alignparameters_; |
626 |
|
extern struct cTrkEvent calibratedsignal_; |
627 |
|
|
628 |
void fillpedsigfromdefault_(); |
void fillpedsigfromdefault_(); |
629 |
int readmipparam_(); |
int readmipparam_(); |
633 |
int readetaparam_(); |
int readetaparam_(); |
634 |
void reductionflight_(int*); |
void reductionflight_(int*); |
635 |
int analysisflight_(); |
int analysisflight_(); |
636 |
} |
int readb_(); |
637 |
|
void gufld_(float*, float*); |
638 |
|
void xyzpam_(int*,int*,int*,int*,int*,float*,float*,float*,float*); |
639 |
|
float riseta_(int*,float*); |
640 |
|
void chisq_(int*, int*); |
641 |
|
|
642 |
|
}; |
643 |
|
|
|
#endif |
|
644 |
|
|
645 |
|
#endif |