Belle II Software  release-05-01-25
TOPf77fun.h
1 //*****************************************************************************
2 //-----------------------------------------------------------------------------
3 // Fast simulation and reconstruction package for TOP counter (F77 core)
4 // M. Staric, March-2009, Sept-2011, Avg-2013
5 //-----------------------------------------------------------------------------
6 //
7 // TOPf77fun.h
8 // Definitions of FORTRAN 77 functions
9 //-----------------------------------------------------------------------------
10 //*****************************************************************************
11 
12 #ifndef _TOPf77fun_h
13 #define _TOPf77fun_h
14 
15 extern "C" {
16  // fortran functions defined in top_geo.F
17  void set_topvol_(float*, float*, float*, float*);
18  void set_bfield_(float*);
19  void set_simu_par_(float*, float*);
20  void set_qbar_redg_(float*);
21  int set_qbar_(float*, float*, float*, float*, float*, float*, float*, int*, int*);
22  void set_bbwin_(int*, float*);
23  void set_extvol_(int*, int*, int*, float*, float*, float*, float*, float*, float*, float*, float*);
24  void arrange_pmt_(int*, int*, float*, float*, float*, float*);
25  void set_rmi_(int*, float*);
26  void set_xyc_(int*, float*, float*);
27  int top_geo_finalize_(int*);
28  float phase_index_(float*);
29  float group_index_(float*);
30  float abspt_leng_(float*);
31  float mirror_refl_(float*);
32  int inside_qbar_(float*, float*, float*, int*);
33  int inside_extvol_(float*, float*, float*, int*);
34  void to_global_(float*, float*, int*);
35  void to_local_(float*, float*, int*);
36  void track2top_(float*, float*, float*, float*, int*);
37  void get_qbar_(int*, float*, float*, float*, int*, int*, int*, int*);
38  void get_mirror_(int*, float*, float*, float*, float*, float*);
39  void get_expvol_(int*, float*, float*, float*, float*, float*, float*, int*, int*);
40  float get_bbwin_(int*);
41 
42  // fortran functions defined in top_pmt.F
43  void set_pmt_(float*, float*, float*, float*, int*, int*, float*);
44  void set_tts_(int*, float*, float*, float*);
45  void read_qeffi_(const char*, float*, int);
46  void set_qeffi_(float*, float*, int*, float*);
47  float qe_pmt_(float*);
48  void qe_range_(float*, float*);
49  float qe_max_();
50  float qe_nzero_();
51 
52  // fortran functions defined in top_tdc.F
53  void set_tdc_(int*, float*, float*);
54  void set_cfd_(float*, float*);
55 
56  // fortran functions defined in top_par.F
57  void set_top_par_(float*, float*);
58  void get_top_par_(float*, float*);
59 
60  // fortran functions defined in top_rtra.F
61  void rtra_clear_();
62  void rtra_set_hypo_(int*, float*);
63  void rtra_set_hypid_(int*, int*);
64  void rtra_get_hypid_(int*, int*);
65  void rtra_put_(float*, float*, float*, float*, float*, float*, float*,
66  int*, int*, int*, int*);
67  int rtra_getnum_();
68  float rtra_get_plkh_(int*, int*);
69  float rtra_get_sfot_(int*, int*);
70  float rtra_get_bfot_(int*);
71  int rtra_get_nfot_(int*);
72  int rtra_get_flag_(int*);
73  void rtra_get_(int*, float*, float*, int*, int*, int*, int*, int*);
74  void rtra_gethit_(int*, int*, float*, float*, float*, float*, float*, int*);
75 
76  // fortran functions defined in top_data.F
77  void data_clear_();
78  void data_restore_();
79  void data_put_(int*, int*, float*, float*, int*);
80  int data_getnum_();
81  void data_get_(int*, int*, int*, float*, float*);
82 
83  // fortran functions defined in top_digi_func.F
84  int ich_digi_(float*, float*, int*, int*);
85  int ich_digiz_(float*, float*, float*, int*);
86  void ichxyz_(int*, int*, float*, float*, float*);
87  int ichan_(int*, int*, int*, int*, int*, int*);
88  void ichiii_(int*, int*, int*, int*, int*, int*, int*);
89  int tdc_digi_(float*);
90  float tdc_to_t_(int*);
91 
92  // fortran functions defined in top_reco.F
93  void top_reco_();
94  float cher_angle_(float*, float*, float*);
95  void getnum_pulls_(int*);
96  void get_pulls_(int*, float*, float*, float*, float*, float*, int*);
97  float get_pdf_(int*, float*, float*, float*, int*);
98 
99 }
100 
101 #endif
102 
103 
104 
105 
106 
107 
108