64 fprintf(
ioQQQ,
" lines called\n" );
83 for( nelem=0; nelem<
LIMELM; ++nelem )
122 linadd(0.f,0,
"zero",
'i' ,
"null placeholder");
127 linadd( 1.e-10 , 1 ,
"Unit" ,
'i' ,
"unit integration placeholder");
153 fprintf(
ioQQQ,
"ipHi\tipLo\tnu\tlu\tsu\tnl\tll\tsl\tWL\tintens\n" );
156 for(
long ipLo=0; ipLo<ipHi; ipLo++ )
160 double relint, absint;
170 ipLo!=3 && ipLo!=4 && relint >= 0.0009 )
172 fprintf(
ioQQQ,
"%li\t%li\t%li\t%li\t%li\t%li\t%li\t%li\t%e\t%e\n",
208 "Stoy method energy sum ");
213 "recombination lines");
225 for( i=0; i < 471; i++ )
253 "recombination line");
270 if(
TauLine2[i].Coll.cool > BigstExtra )
284 "hyperfine structure lines ");
288 "total cooling all hyperfine structure lines ");
297 "hyperfine structure line");
315 "inner shell lines");
339 fprintf(
ioQQQ,
"DEBUGyeild\t%s\t%.3f\t%.3e\n",
365 static long nLineSave=-1 , ndLineSave=-1;
374 if( nLineSave<= 0 || ndLineSave < 0 )
382 fprintf(
ioQQQ,
"DISASTER number of lines in LineSave.nsum changed between pass 0 and 1 - this is impossible\n" );
383 fprintf(
ioQQQ,
"DISASTER LineSave.nsum is %li and nLineSave is %li\n",
391 fprintf(
ioQQQ,
"DISASTER number of lines in LineSave.nsum changed between pass 0 and 1 - this is impossible\n" );
392 fprintf(
ioQQQ,
"DISASTER LineSave.nsum is %li and ndLineSave is %li\n",
406 fprintf(
ioQQQ,
" lines returns\n" );
415 bool lgMustPrintHeader =
true;
425 if( lgMustPrintHeader )
427 fprintf(
ioQQQ,
"n\tlab\twl\n");
428 lgMustPrintHeader =
false;
434 fprintf(
ioQQQ,
" Thanks for checking on the cdLine routine!\n" );