StRoot  1
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Groups Pages
StFtpcMagboltz1.hh
1 // $Id: StFtpcMagboltz1.hh,v 1.2 2001/04/25 17:47:12 perev Exp $
2 //
3 // $Log: StFtpcMagboltz1.hh,v $
4 // Revision 1.2 2001/04/25 17:47:12 perev
5 // HPcorrs
6 //
7 // Revision 1.1 2000/12/20 08:44:02 jcs
8 // Replace pam/ftpc/fmg with maker
9 //
10 //
11 // Header file for StFtpcMagboltz1
12 // f2c of magboltz 1
13 
14 #ifndef STAR_StFtpcMagboltz1
15 #define STAR_StFtpcMagboltz1
16 
17 
18 
20 {
21 
22 private:
23  int c__1;
24  int c__4;
25  int c__0;
26  int c__3;
27  double c_b12;
28 
29  /* Common Block Declarations */
30 
31  struct {
32  float e_magnitude__, b_magnitude__, b_angle__, pressure, perc_ar__,
33  perc_co2__, perc_ne__, perc_he__, temperature;
34  } callpars_1;
35 
36  struct {
37  double f[2002], df[2002], df0[2002];
38  } f0c_1;
39 
40  struct {
41  double f1[2002], df1[2002];
42  } f1c_1;
43 
44  struct {
45  double h1[2002], dh1[2002];
46  } h1c_1;
47 
48  struct {
49  double g[2002], dg[2002], dg0[2002];
50  } g0c_1;
51 
52  struct {
53  double g1[2002], dg1[2002];
54  } g1c_1;
55 
56  struct {
57  double g2[2002], dg2[2002];
58  } g2c_1;
59 
60  struct {
61  int nout, itmax, i2type, ngas, nstep, nstep1;
62  double conv, efinal, estep, akt, ary, tempc, torr;
63  int idbug, isfb;
64  double conalp, alpnew, alpold, alpnax, alpnay, alpnaz, alpha, alpoax,
65  alpoay, alpoaz;
66  int nitalp, idlong, lhigh;
67  } inpt_1;
68 
69  struct {
70  double f2[2002], df2[2002];
71  } f2c_1;
72 
73  struct {
74  double velz, sig_long__, sig_tranx__, sig_trany__, angle, amk_emag__,
75  amk_setemag__, emean, btheta_mk__, bmag_mk__, emaximum;
76  } mk_1;
77 
78  struct {
79  double an1, an2, an3, an4, frac1, frac2, frac3, frac4, an;
80  } ratio_1;
81 
82  struct {
83  char ngas1[15], ngas2[15], ngas3[15], ngas4[15];
84  } gasn_1;
85 
86  struct {
87  double qef[2002], denom[2002], cod2[2002], sod2[2002], scd[2002], sod[
88  2002], btheta, bmag, wb, emag, eovm, qeeef[2002], qeef[2002],
89  qfemag[2002], ef[2002], qe[2002];
90  } mag_1;
91 
92  struct {
93  double echarg, emass, amu, pir2;
94  } cnsts_1;
95 
96  struct {
97  double qelm[2002], qsum[2002], qion[8008] /* was [4][2002] */,
98  qin1[48048] /* was [24][2002] */, qin2[48048] /* was [24][
99  2002] */, qin3[48048] /* was [24][2002] */, qin4[48048]
100  /* was [24][2002] */, qsatt[2002];
101  } mix1_1;
102 
103  struct {
104  double e[2002], eroot[2002], qtot[2002], qrel[2002], qinel[2002], qel[
105  2002];
106  } mix2_1;
107 
108  struct {
109  int nin1, nin2, nin3, nin4, lion[4], lin1[24], lin2[24], lin3[24],
110  lin4[24];
111  double alion[4], alin1[24], alin2[24], alin3[24], alin4[24];
112  } mix3_1;
113 
114  struct {
115  int n2ro1, n2ro2, n2ro3, n2ro4, l2ro1[3], l2ro2[3], l2ro3[3], l2ro4[3]
116  ;
117  double al2ro1[3], al2ro2[3], al2ro3[3], al2ro4[3], q2ro1[12012] /*
118  was [2][3][2002] */, q2ro2[12012] /* was [2][3][2002] */, q2ro3[
119  12012] /* was [2][3][2002] */, q2ro4[12012] /* was [2][3][
120  2002] */;
121  } mix4_1;
122 
123  struct {
124  double simf[2002];
125  } sint_1;
126 
127  struct {
128  char name1[15], name2[15], name3[15], name4[15];
129  } names_1;
130 
131  struct {
132  double f3[2002], df3[2002];
133  } f3c_1;
134 
135 
136 public:
137  StFtpcMagboltz1();
138  ~StFtpcMagboltz1();
139  int magboltz_(float *e_magni__, float *b_magni__,
140  float *b_ang__, float *press, float *p_ar__,
141  float *p_co2__, float *p_ne__,
142  float *p_he__, float *temper,
143  float *vdr, float *psiang, float *efin);
144  int bfield_(int *nstep1);
145  int f0calc_(int *iback, int *icon, double *anew, int *l);
146  int fncalc_(int *lmax);
147  int g0calc_(int *icon, double *gfinal,
148  double *eg0sum, int *lmax);
149 
150  int gas1_(double *q, double *qin, double *q2ro, int *nin,
151  int *n2ro, double *e, double *ein,
152  double *e2ro, char *name__,
153  double *virial, int *monte, int name_len);
154  int gas2_(double *q, double *qin, double *q2ro, int *nin,
155  int *n2ro, double *e, double *ein, double *e2ro,
156  char *name__,
157  double *virial, int *monte, int name_len);
158  int gas3_(double *q, double *qin, double *q2ro, int *nin,
159  int *n2ro, double *e, double *ein, double *e2ro,
160  char *name__,
161  double *virial, int *monte, int name_len);
162  int gas4_(double *q, double *qin, double *q2ro, int *nin,
163  int *n2ro, double *e, double *ein, double *e2ro,
164  char *name__,
165  double *virial, int *monte, int name_len);
166  int h1calc_(int *l, double *dhfnal, double *dxx,
167  double *dhfrst);
168  int mixer_();
169  int nalpha_();
170  int output_(int *n);
171  int prnter_();
172  int setup_(int *last);
173  int simp_(double *sum);
174  int stepph_(int *l);
175  int steppr_(int *itype, int *lmax);
176  int type2_(double *s2sum, int *i__, int *nstep1);
177  int type2g_(double *s2sum, int *i__, int *nstep1);
178 
179 };
180 #endif
181 
182 
183 
184 
185 
186 
187 
188