47 fprintf(
ioQQQ,
"\n Contin Optical Depths: COMP:");
50 fprintf(
ioQQQ,
" H-:");
54 fprintf(
ioQQQ,
" R(1300):");
57 fprintf(
ioQQQ,
" H2+:");
60 fprintf(
ioQQQ,
" Bra:");
71 fprintf(
ioQQQ,
"\n" );
73 fprintf(
ioQQQ,
" Pa:");
84 fprintf(
ioQQQ,
" Ba:");
95 fprintf(
ioQQQ,
" Hb:");
106 fprintf(
ioQQQ,
" La:");
109 fprintf(
ioQQQ,
" 1r:");
112 fprintf(
ioQQQ,
" 1.8:");
115 fprintf(
ioQQQ,
" 4.:");
117 fprintf(
ioQQQ,
"\n");
126 if(
dense.lgElmtOn[nelem] )
128# define NUMB_PER_LINE 8
129 fprintf(
ioQQQ,
"\n Old, new %s%2li continuum optical depths:\n",
134 for( i=1; i>=0; --i )
148 fprintf(
ioQQQ,
"\n" );
152 fprintf(
ioQQQ,
"\n Old, new %s%2li mean line optical depths:\n",
156 fprintf(
ioQQQ,
"%3i-%2i",2, 1 );
160 for( n=3; n <=
iso_sp[
ipH_LIKE][nelem].n_HighestResolved_local; n++ )
164 fprintf(
ioQQQ,
"%3ld-%2ld",n, n-1 );
171 if(
prt.lgPrnIsoCollapsed )
184 fprintf(
ioQQQ,
"\n" );
186 fprintf(
ioQQQ,
"%3i-%2i",2, 1 );
189 for( n=3; n <=
iso_sp[
ipH_LIKE][nelem].n_HighestResolved_local; n++ )
193 fprintf(
ioQQQ,
"%3ld-%2ld",n, n-1 );
199 if(
prt.lgPrnIsoCollapsed )
209 fprintf(
ioQQQ,
"\n" );
218 fprintf(
ioQQQ,
"\n Old He Is optical depths:" );
219 for( i=0; i < 5; i++ )
221 fprintf(
ioQQQ,
"%5ld", i+1 );
224 fprintf(
ioQQQ,
"\n" );
226 fprintf(
ioQQQ,
" New He Is optical depths:" );
227 for( i=0; i < 5; i++ )
229 fprintf(
ioQQQ,
"%5ld", i+1 );
232 fprintf(
ioQQQ,
"\n" );
236 fprintf(
ioQQQ,
" Old He Is Lines:" );
237 fprintf(
ioQQQ,
" %4d",584 );
239 fprintf(
ioQQQ,
" %4d",3889 );
241 fprintf(
ioQQQ,
" %4d",5016 );
243 fprintf(
ioQQQ,
" %4d",5876 );
245 fprintf(
ioQQQ,
"\n" );
247 fprintf(
ioQQQ,
" New He Is Lines:" );
248 fprintf(
ioQQQ,
" %4d",584 );
250 fprintf(
ioQQQ,
" %4d",3889 );
252 fprintf(
ioQQQ,
" %4d",5016 );
254 fprintf(
ioQQQ,
" %4d",5876 );
256 fprintf(
ioQQQ,
"\n" );