47 absav[0] = pow(10.,absav[0]);
49 for( i=1; i <
LIMELM; i++ )
62 " The only old abundance set I have is for version 84 - %3ld was requested. Sorry.\n",
66 for( i=1; i <
LIMELM; i++ )
73 else if( p.
nMatch(
"GASS10"))
77 for( i=1; i <
LIMELM; i++ )
87 " I did not recognize a sub-keyword - options are ALL, OLD SOLAR 84, and GASS10. Sorry.\n");
96 for( i=2; i <
abund.npSolar; i++ )
107 fprintf(
ioQQQ,
" There MUST be%3ld abundances entered, there were only%3ld. Sorry.\n",
115 if( p.
strcmp(
"CONT") != 0 )
117 fprintf(
ioQQQ,
" There MUST be%3ld abundances entered, there were only%3ld. Sorry.\n",
126 fprintf(
ioQQQ,
" There MUST be%3ld abundances entered, there were only%3ld. Sorry.\n",
138 if( !p.
lgEOL() || (chk!=0.) )
141 fprintf(
ioQQQ,
" There were more than %ld abundances entered\n",
143 fprintf(
ioQQQ,
" Could there have been a typo somewhere?\n" );
148 for( i=0; i <
abund.npSolar; i++ )
155 for( i=0; i <
abund.npSolar; i++ )
161 for( i=0; i <
abund.npSolar; i++ )
166 for( i=1; i <
LIMELM; i++ )
168 if(
abund.solar[i] > 0.2 )
170 fprintf(
ioQQQ,
" Is an abundance of %.3e relative to H reasonable for %2.2s?\n",
212 for( i=0; i <
LIMELM; i++ )
215 if( !
abund.lgElmONapn[i] )
220 sprintf(chDUMMY,
"element %s off ",
elementnames.chElementName[i] );
227 else if( p.
nMatch(
"CAME") )
231 for( i=0; i <
LIMELM; i++ )
235 else if( p.
nMatch(
"CRAB") )
238 for( i=0; i <
LIMELM; i++ )
241 if( !
abund.lgElmONaCrab[i] )
246 sprintf(chDUMMY,
"element %s off ",
elementnames.chElementName[i] );
290 for( i=0; i <
LIMELM; i++ )
293 if( !
abund.lgElmONahii[i] )
298 sprintf(chDUMMY,
"element %s off ",
elementnames.chElementName[i] );
337 for( i=0; i <
LIMELM; i++ )
340 if( !
abund.lgElmONaism[i] )
345 sprintf(chDUMMY,
"element %s off ",
elementnames.chElementName[i] );
352 else if( p.
nMatch(
"NOVA") )
355 for( i=0; i <
LIMELM; i++ )
359 else if( p.
nMatch(
"PRIM") )
362 for( i=0; i < 4; i++ )
368 for( i=4; i <
LIMELM; i++ )
373 sprintf(chDUMMY,
"element %s off ",
elementnames.chElementName[i] );
382 " ABUNDances must have GASS10, PLAN, H II, CAMERON, CRAB, NOVA, ALL, STARBURST, OLD SOLAR 84 or PRIMORDIAL. Sorry.\n" );
void abund_starburst(Parser &p)
const int INPUT_LINE_LENGTH
#define DEBUG_ENTRY(funcname)
bool nMatch(const char *chKey) const
void setline(const char *const card)
int strcmp(const char *s2)
bool isComment(void) const
t_elementnames elementnames
void mie_read_opc(const char *, const GrainPar &)
void ParseAbundances(Parser &p)
void ParseElement(Parser &p)