24 const char *chOption = NULL;
34 lgQuoteFound = p.
nMatch(
"\"");
63 lgSizeDistribution =
true;
65 lgSizeDistribution =
false;
87 gv.lgReevaluate = !p.
nMatch(
" NO REEV");
118 else if( p.
nMatch(
"LINE") )
137 fprintf(
ioQQQ,
" Impossible value for linear abundance.\n" );
138 fprintf(
ioQQQ,
" Abundance entered was%10.2e\n", gp.
dep );
139 fprintf(
ioQQQ,
" Sorry.\n" );
158 if( gp.
dep < FLT_MIN )
160 fprintf(
ioQQQ,
" Grain abundance entered here (%f) is impossible.\n", gp.
dep );
189 chOption =
"ORION GRAPHITE ";
190 if( lgSizeDistribution )
199 else if( p.
nMatch(
"SILI") )
202 chOption =
"ORION SILICATE ";
203 if( lgSizeDistribution )
216 if( lgSizeDistribution )
229 else if( p.
nMatch(
" PAH") )
234 chOption =
"PAH C120 ";
240 chOption =
"PAH C15 ";
249 if( lgSizeDistribution )
264 if( lgSizeDistribution )
274 else if( p.
nMatch(
" ISM") )
279 chOption =
"ISM GRAPHITE ";
280 if( lgSizeDistribution )
289 else if( p.
nMatch(
"SILI") )
292 chOption =
"ISM SILICATE ";
293 if( lgSizeDistribution )
306 if( lgSizeDistribution )
324 if( lgSizeDistribution )
345 string command(
"GRAIN ABUND=%f LOG " );
346 if( chFile[0] !=
'\0' )
355 if( chOption == NULL )
369 command +=
"FUNCTION ";
372 command +=
"FUNCTION SUBLIMATION ";
378 if( !lgSizeDistribution )
379 command +=
"SINGLE ";
382 command +=
"NO QHEAT ";
386 if( !
gv.lgReevaluate )
387 command +=
"NO REEVALUATE ";
389 command +=
"NO HEATING ";
391 command +=
"NO COOLING ";
397 fprintf(
ioQQQ,
" grain command string is too long. This is parse_grain\n");
const int FILENAME_PATH_LENGTH_2
long nMatch(const char *chKey, const char *chCard)
NORETURN void TotalInsanity(void)
#define DEBUG_ENTRY(funcname)
bool nMatch(const char *chKey) const
bool nMatchErase(const char *chKey)
int GetQuote(char *chLabel, bool lgABORT)
void mie_read_opc(const char *, const GrainPar &)
void ParseGrain(Parser &p)