00001
00002
00003
00015 #define printflag (0)
00016
00018 #define HE1CSARRAY 10
00019
00020 #define TRANSPROBMAGIC (60725)
00021
00022 #define COLLISMAGIC (30915)
00023
00024 #define CASEABMAGIC (51214)
00025
00027 #define N_(A_) (iso.quant_desig[ipHE_LIKE][nelem][A_].n)
00028 #define L_(A_) (iso.quant_desig[ipHE_LIKE][nelem][A_].l)
00029 #define S_(A_) (iso.quant_desig[ipHE_LIKE][nelem][A_].s)
00030 #define J_(A_) ( (A_>=ipHe2p3P0 && A_<=ipHe2p3P2) ? (A_-3):0 )
00031
00034 void HeLike(void);
00035
00039 void HeLikeLevel( long nelem);
00040
00044 void HeLikeError( long nelem);
00045
00047 void HeCreate(void);
00048
00052 void prt_He_like_DeparCoef(long int nelem );
00053
00057 void prt_He_like_Pops(long int nelem );
00058
00061 void He1Autoionize(void);
00062
00066 void AGN_He1_CS( FILE *ioPun );
00067
00075 void putError(long nelem, long ipHi, long ipLo, long whichData, float errorToPut);
00076
00078 #define IPRAD 0
00079 #define IPCOLLIS 1
00080
00081
00083 EXTERN long int max_num_levels, max_n;
00084
00090 EXTERN long ****QuantumNumbers2Index;
00091
00093 EXTERN struct t_helike
00094 {
00098 bool lgSetBenjamin;
00099
00102 bool lgHugeCaseB;
00103
00105 long int nCS;
00106
00108 bool lgCompileRecomb;
00109
00113 bool lgNoRecombInterp;
00114
00116 bool lgCS_Vriens ,
00117 lgCS_None ,
00118 lgCS_Vrinceanu,
00119 lgCS_therm_ave;
00120 int nCS_new;
00121
00123 bool lgCritDensLMix;
00124
00127 bool lgFSM;
00128
00130 double **Lifetime, **SigmaAtot;
00131
00133 float ****HeCS;
00134
00136 double CSTemp[HE1CSARRAY];
00137
00140 bool lgRandErrGen;
00141
00144 bool lgErrGenDone;
00145
00146 bool lgTopoff;
00147
00149 int modelRank;
00150
00152 float ****Error;
00153
00156 float ****ErrorFactor;
00157
00159 int nDielRecom;
00160
00163 double *qTot2TripS;
00164
00166 double ***BranchRatio, ***CascadeProb, **SigmaCascadeProb;
00167
00169 double *RadEffec, *SigmaRadEffec;
00170
00172 double ***cs_proton;
00173
00175 double ***cs_heplus;
00176
00178 double ***cs_elec_power;
00179
00181 double ***cs_prot_power;
00182
00184 double ***cs_heplus_power;
00185
00186 } helike;
00187