48 fprintf(
ioQQQ,
"\n Contin Optical Depths: COMP:");
51 fprintf(
ioQQQ,
" H-:");
54 fprintf(
ioQQQ,
" R(1300):");
57 fprintf(
ioQQQ,
" H2+:");
60 fprintf(
ioQQQ,
" Pfa:");
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");
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 )
149 fprintf(
ioQQQ,
"\n" );
153 fprintf(
ioQQQ,
"\n Old, new %s%2li line optical depths:\n",
157 fprintf(
ioQQQ,
"%3i-%2i",2, 1 );
165 fprintf(
ioQQQ,
"%3ld-%2ld",n, n-1 );
178 fprintf(
ioQQQ,
"\n" );
180 fprintf(
ioQQQ,
"%3i-%2i",2, 1 );
187 fprintf(
ioQQQ,
"%3ld-%2ld",n, n-1 );
199 fprintf(
ioQQQ,
"\n" );
208 fprintf(
ioQQQ,
"\n Old He Is optical depths:" );
209 for( i=0; i < 5; i++ )
211 fprintf(
ioQQQ,
"%5ld", i+1 );
214 fprintf(
ioQQQ,
"\n" );
216 fprintf(
ioQQQ,
" New He Is optical depths:" );
217 for( i=0; i < 5; i++ )
219 fprintf(
ioQQQ,
"%5ld", i+1 );
222 fprintf(
ioQQQ,
"\n" );
226 fprintf(
ioQQQ,
" Old He Is Lines:" );
227 fprintf(
ioQQQ,
" %4d",584 );
229 fprintf(
ioQQQ,
" %4d",3889 );
231 fprintf(
ioQQQ,
" %4d",5016 );
233 fprintf(
ioQQQ,
" %4d",5876 );
235 fprintf(
ioQQQ,
"\n" );
237 fprintf(
ioQQQ,
" New He Is Lines:" );
238 fprintf(
ioQQQ,
" %4d",584 );
240 fprintf(
ioQQQ,
" %4d",3889 );
242 fprintf(
ioQQQ,
" %4d",5016 );
244 fprintf(
ioQQQ,
" %4d",5876 );
246 fprintf(
ioQQQ,
"\n" );