131 const char *chLabel ,
139 ipLine_ret =
ipoint(energy);
142 if( ipIonEnergy > 0 )
144 ipLine_ret =
MIN2( ipLine_ret , ipIonEnergy-1 );
153 if( !
rfield.line_count[ipLine_ret-1] )
155 strcpy(
rfield.chLineLabel[ipLine_ret-1], chLabel );
158 ++
rfield.line_count[ipLine_ret-1];
163 enum {DEBUG_LOC=
false};
168 if( ipLine_ret == 23 )
169 fprintf(
ioQQQ,
"%s\n", chLabel );
174 if(
prt.lgPrtContIndices )
181 fprintf(
ioQQQ ,
"\n\noutput from print continuum indices command follows.\n");
182 fprintf(
ioQQQ ,
"cont ind (F scale)\tenergy(ryd)\tlabel\n");
185 if( energy >=
prt.lgPrtContIndices_lo_E && energy <=
prt.lgPrtContIndices_hi_E )
193 fprintf(
ioQQQ ,
"%li\t%.3e\t%s\n" , ipLine_ret , energy , chLabel);
195 else if( energy < 10. )
197 fprintf(
ioQQQ ,
"%li\t%.3f\t%s\n" , ipLine_ret , energy , chLabel);
199 else if( energy < 100. )
201 fprintf(
ioQQQ ,
"%li\t%.2f\t%s\n" , ipLine_ret , energy , chLabel);
205 fprintf(
ioQQQ ,
"%li\t%.1f\t%s\n" , ipLine_ret , energy , chLabel);
210 if(
prt.lgPrnLineCell )
213 if(
prt.nPrnLineCell == ipLine_ret )
217 fprintf(
ioQQQ,
"Lines within cell %li (physics scale) \nLabel\tEnergy(Ryd)\n",
prt.nPrnLineCell );
219 fprintf(
ioQQQ,
"%s\t%.3e\n" , chLabel , energy );