33 fprintf(
ioQQQ,
"The COMPILE OPACITIES command is currently not supported\n" );
50 opac.lgCompileOpac =
true;
57 "Success!! Created file opacity.opc\nMake sure this is on the path.\n" );
114 strcpy(chRFI,chRead);
116 else if(
strstr_s(chRead,
".szd") != NULL )
118 strcpy(chSZD,chRead);
122 fprintf(
ioQQQ,
" filename %s has unknown extension, sorry\n" , chRead );
133 strcpy(chRFI,chRead);
135 else if(
strstr_s(chRead,
".szd") != NULL )
137 strcpy(chSZD,chRead);
141 fprintf(
ioQQQ,
" filename %s has unknown extension, sorry\n" , chRead );
147 if( chRFI[0] ==
'\0' )
153 strcpy(chRFI ,
"ac1-amcarb.rfi" );
159 strcpy(chRFI ,
"be1-amcarb.rfi" );
162 else if( p.
nMatch(
"GRAP") )
165 strcpy(chRFI ,
"graphite.rfi" );
167 else if( p.
nMatch(
"SILI" ) )
170 strcpy(chRFI ,
"silicate.rfi" );
172 else if( p.
nMatch(
" PAH" ) )
175 strcpy(chRFI ,
"pah1.rfi" );
179 strcpy(chRFI ,
"grey.rfi" );
184 if( chSZD[0] ==
'\0' )
189 strcpy(chSZD ,
"0m010.szd" );
193 strcpy(chSZD ,
"0m100.szd" );
197 strcpy(chSZD ,
"1m000.szd" );
199 else if( p.
nMatch(
"ORIO" ) )
201 strcpy(chSZD ,
"orion.szd" );
203 else if( p.
nMatch(
" ISM" ) )
205 strcpy(chSZD ,
"ism.szd" );
210 strcpy(chSZD ,
"ab08.szd" );
215 strcpy(chSZD ,
"c15.szd" );
220 strcpy(chSZD ,
"c120.szd" );
226 if( chRFI[0] ==
'\0' && chSZD[0] !=
'\0' )
228 fprintf(
ioQQQ,
"Sorry, but I did not recognize a refractive index file.\n");
229 fprintf(
ioQQQ,
"Supply a file name between quotes or one of the following ");
230 fprintf(
ioQQQ,
"keywords: ac1-amcarb, be1-amcarb, graphite, silicate, grey, pah\n");
234 if( chSZD[0] ==
'\0' && chRFI[0] !=
'\0' )
236 fprintf(
ioQQQ,
"Sorry, but I did not recognize a size distribution file.\n");
237 fprintf(
ioQQQ,
"Supply a file name between quotes or one of the following ");
238 fprintf(
ioQQQ,
"keywords: 0m010, 0m100, 1m000, ism, orion, c15, c120, ab08\n");
243 if( chRFI[0] ==
'\0' && chSZD[0] ==
'\0' )
316 fprintf(
ioQQQ,
"Number of bins must be positive. Sorry.\n");
324 "Success!! Created grain opacity file(s).\nMake sure this directory is on the path.\n" );
336 else if( p.
nMatch(
"HE-L") )
340 fprintf(
ioQQQ,
"Sorry, but I did not recognize an iso sequence.\n");
341 fprintf(
ioQQQ,
"The available options are H-like and He-like.\nSorry.\n");
346 iso_ctrl.lgCompileRecomb[ipISO] =
true;
350 for( nelem = ipISO; nelem <
LIMELM; nelem++)
353 dense.lgElmtOn[nelem] =
true;
354 iso_sp[ipISO][nelem].nCollapsed_max = 0;
361 iso_sp[ipISO][nelem].n_HighestResolved_max = maxN;
367 else if( p.
nMatch(
"GAUN") )
370 rfield.lgCompileGauntFF =
true;
373 else if( p.
nMatch(
"STAR") )
375 bool lgProblems =
false;
395 if( ( ptr =
strstr_s( chRead,
"." ) ) != NULL )
397 if( strncmp( ptr,
".asc", 4 ) == 0 )
401 else if( strncmp( ptr,
".stb", 4 ) == 0 )
408 else if( p.
nMatch(
"NEBU" ) )
419 fprintf(
ioQQQ,
" I did not recognize this file extension: %s\n", ptr );
425 fprintf(
ioQQQ,
" I did not find any file extension: %s\n", chRead );
463 fprintf(
ioQQQ,
"\n PROBLEM - No ascii files were found!\n" );
464 fprintf(
ioQQQ,
" Did you change directory to where the stellar atmosphere files are?\n" );
465 fprintf(
ioQQQ,
" This command will only work on files in the local directory. Sorry.\n" );
470 fprintf(
ioQQQ,
"\n %d ascii file(s) found", pc.
nFound );
474 fprintf(
ioQQQ,
", %d update(s) OK", pc.
nOK );
476 fprintf(
ioQQQ,
", %d update(s) failed", pc.
nFail );
479 fprintf(
ioQQQ,
", %d file(s) skipped after failure", nSkip );
480 fprintf(
ioQQQ,
".\n" );
486 fprintf(
ioQQQ,
"\n Problems occurred during the compilation - check output.\n" );
490 fprintf(
ioQQQ,
"\n The compilation was successful!\n" );
492 " The portable ascii files are no longer needed and may be deleted to save space.\n" );
493 fprintf(
ioQQQ,
"\n Good Luck!!\n\n\n" );
500 fprintf(
ioQQQ,
" One of the keywords, GRAINS, RECO COEF, GAUNT, or STARS, must appear.\n" );
501 fprintf(
ioQQQ,
" Sorry.\n" );
const int FILENAME_PATH_LENGTH_2
const char * strstr_s(const char *haystack, const char *needle)
#define DEBUG_ENTRY(funcname)
bool nMatch(const char *chKey) const
bool nMatchErase(const char *chKey)
int GetQuote(char *chLabel, bool lgABORT)
void ContCreateMesh(void)
void ContCreatePointers(void)
void mie_write_opc(const char *, const char *, long int)
void Badnell_rec_init(void)
t_iso_sp iso_sp[NISO][LIMELM]
void iso_update_num_levels(long ipISO, long nelem)
#define LIKE_RREC_MAXN(A_)
void OpacityCreateAll(void)
void ParseCompile(Parser &p)
int Kurucz79Compile(process_counter &pc)
bool StarburstCompile(process_counter &pc)
bool StarburstInitialize(const char chInName[], const char chOutName[], sb_mode mode)
int WMBASICCompile(process_counter &pc)
int AtlasCompile(process_counter &pc)
int RauchCompile(process_counter &pc)
bool GridCompile(const char *InName)
int MihalasCompile(process_counter &pc)
int CoStarCompile(process_counter &pc)
int TlustyCompile(process_counter &pc)
int WernerCompile(process_counter &pc)