37 fprintf(
ioQQQ,
" Something is wrong with the order of the numbers on this line.\n" );
38 fprintf(
ioQQQ,
" The first number I encounter should be a 2.\n Sorry.\n" );
65 p.
NoNumb(
"number of electronic levels");
72 fprintf(
ioQQQ,
" This would be too few electronic levels - resetting to 3.\n" );
79 " This would be too many levels, the limit is %i.\n" ,
86 else if( p.
nMatch(
"LIMI") )
101 p.
NoNumb(
"limit to the H2 / Htot ratio" );
112 else if( p.
nMatch(
"GBAR" ) )
120 else if( p.
nMatch(
" ON " ) )
127 " The gbar approximation must be off (\" OFF\") or on (\" ON \").\n");
132 else if( p.
nMatch(
"COLL" ) )
170 else if( p.
nMatch(
"GRAI" ) )
184 else if( p.
nMatch(
" HE " ) )
206 " I did not find a keyword on this ATOM H2 HE command - I know about the keys ORNL and Le BOURlot\n");
212 else if( p.
nMatch(
"ORH2" ) )
223 else if( p.
nMatch(
"BOUR" ) )
234 " I did not find a keyword on this ATOM H2 ohH2 command - I know about the keys ORNL and Le BOURlot\n");
239 else if( p.
nMatch(
"PAH2" ) )
250 else if( p.
nMatch(
"BOUR" ) )
261 " I did not find a keyword on this ATOM H2 paH2 command - I know about the keys ORNL and Le BOURlot\n");
287 long numLevels = (long)p.
FFmtRead();
299 " The total number of levels used in the matrix solver must be entered, or keywords ALL or NONE entered.\n Sorry.\n");
308 else if( p.
nMatch(
" LTE" ) )
311 diatom->
lgLTE =
true;
314 else if( p.
nMatch(
"TRAC" ) )
328 else if( p.
nMatch(
"ITER" ) )
333 else if( p.
nMatch(
"FULL" ) )
338 else if( p.
nMatch(
"MATR" ) )
349 else if( p.
nMatch(
"NOIS" ) )
381 else if( p.
nMatch(
"THER" ) )
387 hmi.lgH2_Thermal_BigH2 =
false;
389 else if( p.
nMatch(
"FULL" ) )
392 hmi.lgH2_Thermal_BigH2 =
true;
396 else if( p.
nMatch(
"CHEM" ) )
403 hmi.lgH2_Chemistry_BigH2 =
false;
405 else if( p.
nMatch(
"FULL" ) )
408 hmi.lgH2_Chemistry_BigH2 =
true;
#define DEBUG_ENTRY(funcname)
bool nMatch(const char *chKey) const
NORETURN void NoNumb(const char *chDesc) const
void set_numLevelsMatrix(long numLevels)
t_coll_source coll_source[N_X_COLLIDER]
bool lgH2_grain_deexcitation
bool lgH2_ortho_para_coll_on
diatomics h2("h2", 4100., &hmi.H2_total, Yan_H2_CS)
void ParseAtomH2(Parser &p)
void init_genrand(unsigned long s)