68 fprintf(
ioQQQ,
" HydroLevel Z=%2ld called, simple II/I=",nelem);
70 fprintf(
ioQQQ,
" PhotFrc:");
72 fprintf(
ioQQQ,
" ColFrc:");
74 fprintf(
ioQQQ,
" SecFrc");
76 fprintf(
ioQQQ,
" Te:");
78 fprintf(
ioQQQ,
" eden:");
87 long int ipHi , ipLo , i;
92 " HydroLevel%3ld finds arrays, with optical depths defined? %li induced 2ph=%12.3e\n",
97 fprintf(
ioQQQ,
"up:%2ld", ipHi );
98 fprintf(
ioQQQ,
"lo" );
99 for( ipLo=ipH1s; ipLo < ipHi; ipLo++ )
101 fprintf(
ioQQQ,
"%9ld", ipLo );
103 fprintf(
ioQQQ,
"\n" );
105 fprintf(
ioQQQ,
"%3ld", ipHi );
106 fprintf(
ioQQQ,
" A*esc" );
107 for( ipLo=ipH1s; ipLo < ipHi; ipLo++ )
112 fprintf(
ioQQQ,
"\n" );
114 fprintf(
ioQQQ,
"%3ld", ipHi );
115 fprintf(
ioQQQ,
" A*ees" );
116 for( ipLo=ipH1s; ipLo < ipHi; ipLo++ )
121 fprintf(
ioQQQ,
"\n" );
123 fprintf(
ioQQQ,
"%3ld", ipHi );
124 fprintf(
ioQQQ,
" tauin" );
125 for( ipLo=ipH1s; ipLo < ipHi; ipLo++ )
129 fprintf(
ioQQQ,
"\n" );
131 fprintf(
ioQQQ,
"%3ld", ipHi );
132 fprintf(
ioQQQ,
" t tot" );
133 for( ipLo=ipH1s; ipLo < ipHi; ipLo++ )
137 fprintf(
ioQQQ,
"\n" );
139 fprintf(
ioQQQ,
"%3ld", ipHi );
140 fprintf(
ioQQQ,
" Esc " );
141 for( ipLo=ipH1s; ipLo < ipHi; ipLo++ )
145 fprintf(
ioQQQ,
"\n" );
147 fprintf(
ioQQQ,
"%3ld", ipHi );
148 fprintf(
ioQQQ,
" Eesc " );
149 for( ipLo=ipH1s; ipLo < ipHi; ipLo++ )
153 fprintf(
ioQQQ,
"\n" );
155 fprintf(
ioQQQ,
"%3ld", ipHi );
156 fprintf(
ioQQQ,
" Dest " );
157 for( ipLo=ipH1s; ipLo < ipHi; ipLo++ )
161 fprintf(
ioQQQ,
"\n" );
163 fprintf(
ioQQQ,
"%3ld", ipHi );
164 fprintf(
ioQQQ,
" A*dst" );
165 for( ipLo=ipH1s; ipLo < ipHi; ipLo++ )
170 fprintf(
ioQQQ,
"\n" );
172 fprintf(
ioQQQ,
"%3ld", ipHi );
173 fprintf(
ioQQQ,
" StrkE" );
174 for( ipLo=ipH1s; ipLo < ipHi; ipLo++ )
178 fprintf(
ioQQQ,
"\n" );
180 fprintf(
ioQQQ,
"%3ld", ipHi );
181 fprintf(
ioQQQ,
" B(ul)" );
182 for( ipLo=ipH1s; ipLo < ipHi; ipLo++ )
187 fprintf(
ioQQQ,
"\n" );
189 fprintf(
ioQQQ,
"%3ld", ipHi );
190 fprintf(
ioQQQ,
" tcont" );
191 for( ipLo=ipH1s; ipLo < ipHi; ipLo++ )
195 fprintf(
ioQQQ,
"\n" );
197 fprintf(
ioQQQ,
"%3ld", ipHi );
198 fprintf(
ioQQQ,
" C(ul)" );
199 for( ipLo=ipH1s; ipLo < ipHi; ipLo++ )
204 fprintf(
ioQQQ,
"\n" );
208 fprintf(
ioQQQ,
" FeIIo");
211 fprintf(
ioQQQ,
"\n");
215 fprintf(
ioQQQ,
" " );
219 fprintf(
ioQQQ,
"%9ld", i );
221 fprintf(
ioQQQ,
"\n" );
265 fprintf(
ioQQQ,
" HLEV HGAMNC" );
272 fprintf(
ioQQQ,
"\n" );
274 fprintf(
ioQQQ,
" HLEV TOTCAP" );
280 fprintf(
ioQQQ,
" tot");
282 fprintf(
ioQQQ,
"\n" );
284 fprintf(
ioQQQ,
" HLEV IND Rc" );
290 fprintf(
ioQQQ,
"\n" );
293 fprintf(
ioQQQ,
" IND Rc LTE " );
300 fprintf(
ioQQQ,
"\n" );
303 fprintf(
ioQQQ,
" HLEV HLTE" );
309 fprintf(
ioQQQ,
"\n" );
312 fprintf(
ioQQQ,
" HLEVfr cion" );
320 fprintf(
ioQQQ,
"\n" );
325 fprintf(
ioQQQ,
" HLEVfrPhIon" );
332 fprintf(
ioQQQ,
"\n" );
335 fprintf(
ioQQQ,
" HLEV HN" );
341 fprintf(
ioQQQ,
"\n" );
343 fprintf(
ioQQQ,
" HLEV b(n)" );
349 fprintf(
ioQQQ,
"\n" );
351 fprintf(
ioQQQ,
" HLEV X12tot");
353 fprintf(
ioQQQ,
" Grn dest:");
356 fprintf(
ioQQQ,
"\n");
373 fprintf(
ioQQQ,
" HydroLevel%3ld return %s te=",
388 fprintf(
ioQQQ,
"\n");