25 fprintf(
ioQQQ,
" ipoint:\n" );
26 fprintf(
ioQQQ,
" The energy_ryd array is not defined at nu=%11.3e. The bounds are%11.3e%11.3e\n",
28 fprintf(
ioQQQ,
" ipoint is aborting to get trace, to find how this happened\n" );
51 fprintf(
ioQQQ,
" IPOINT logic error, energy=%.2e\n",
67 ipConSafe_v =
ipoint(energy);
78 enum {DEBUG_LOC=
false};
84 if( ipConSafe_v == 23 )
85 fprintf(
ioQQQ,
"%s\n", chLabel );
104 ipLine_ret =
ipoint(energy);
107 if( ipIonEnergy > 0 )
109 ipLine_ret =
MIN2( ipLine_ret , ipIonEnergy-1 );
128 enum {DEBUG_LOC=
false};
133 if( ipLine_ret == 23 )
134 fprintf(
ioQQQ,
"%s\n", chLabel );
142 static bool lgFirst =
true;
146 fprintf(
ioQQQ ,
"\n\noutput from print continuum indices command follows.\n");
147 fprintf(
ioQQQ ,
"cont ind (F scale)\tenergy(ryd)\tlabel\n");
158 fprintf(
ioQQQ ,
"%li\t%.3e\t%s\n" , ipLine_ret , energy , chLabel);
160 else if( energy < 10. )
162 fprintf(
ioQQQ ,
"%li\t%.3f\t%s\n" , ipLine_ret , energy , chLabel);
164 else if( energy < 100. )
166 fprintf(
ioQQQ ,
"%li\t%.2f\t%s\n" , ipLine_ret , energy , chLabel);
170 fprintf(
ioQQQ ,
"%li\t%.1f\t%s\n" , ipLine_ret , energy , chLabel);
180 static bool lgMustPrintHeader =
true;
181 if( lgMustPrintHeader )
183 lgMustPrintHeader =
false;
184 fprintf(
ioQQQ,
"**>%s<**\n" , chLabel );