Go to the documentation of this file.
27 const char *chOption = NULL;
55 if(
nMatch(
"FUNC",chCard) )
63 if( !
nMatch(
"SING",chCard) )
64 lgSizeDistribution =
true;
66 lgSizeDistribution =
false;
72 if(
nMatch(
"QHEA",chCard) )
78 if(
nMatch(
"O QH",chCard) )
91 if(
nMatch(
"O HE",chCard) )
98 if(
nMatch(
"O CO",chCard) )
105 if( (ptr = strstr(chCard,
"C120 ")) != NULL )
111 else if( (ptr = strstr(chCard,
"C15 ")) != NULL )
121 if(
nMatch(
" LOG",chCard) )
126 else if(
nMatch(
"LINE",chCard) )
146 fprintf(
ioQQQ,
" Impossible value for linear abundance.\n" );
147 fprintf(
ioQQQ,
" Abundance entered was%10.2e\n", gp.
dep );
148 fprintf(
ioQQQ,
" Sorry.\n" );
167 if( gp.
dep < FLT_MIN )
169 fprintf(
ioQQQ,
" Grain abundance entered here (%f) is impossible.\n", gp.
dep );
184 if(
nMatch(
"ORIO",chCard) )
195 if(
nMatch(
"GRAP",chCard) )
198 chOption =
"ORION GRAPHITE ";
199 if( lgSizeDistribution )
208 else if(
nMatch(
"SILI",chCard) )
211 chOption =
"ORION SILICATE ";
212 if( lgSizeDistribution )
225 if( lgSizeDistribution )
238 else if(
nMatch(
" PAH",chCard) )
243 chOption =
"PAH C120 ";
249 chOption =
"PAH C15 ";
256 if( lgSizeDistribution )
267 else if(
nMatch(
"GREY",chCard) ||
nMatch(
"GRAY",chCard) )
271 if( lgSizeDistribution )
281 else if(
nMatch(
" ISM",chCard) )
283 if(
nMatch(
"GRAP",chCard) )
286 chOption =
"ISM GRAPHITE ";
287 if( lgSizeDistribution )
296 else if(
nMatch(
"SILI",chCard) )
299 chOption =
"ISM SILICATE ";
300 if( lgSizeDistribution )
313 if( lgSizeDistribution )
331 if( lgSizeDistribution )
352 string command(
"GRAIN ABUND=%f LOG " );
353 if( chFile[0] !=
'\0' )
362 if( chOption == NULL )
368 command +=
"FUNCTION ";
369 if( !lgSizeDistribution )
370 command +=
"SINGLE ";
372 command +=
"NO QHEAT ";
376 command +=
"NO REEVALUATE ";
378 command +=
"NO HEATING ";
380 command +=
"NO COOLING ";
386 fprintf(
ioQQQ,
" grain command string is too long. This is parse_grain\n");
Generated for cloudy by
1.8.4