19 if( strncmp(chTime,
"LAST",4) == 0 )
23 long ipISO , nelem , limit , i;
24 double EdenAbund , fach;
34 fprintf(ioPUN,
" 2s = %.3e\n", EdenAbund);
40 for( i=0; i < limit; i++ )
45 fach =
iso.
As2nu[ipISO][nelem][i]/2.f;
47 fprintf(ioPUN,
"%.3e\t%.3e\t%.3e\n",
55 fprintf(ioPUN,
"%.5e\t%.3e\t%.2e\n",
58 long int iElecHi=1 , iVibHi=0, iRotHi=0;
62 ASSERT(
H2Lines[iElecHi][iVibHi][iRotHi][0][0][1].ipCont > 0 );
64 fprintf(ioPUN,
"DEBUG Oion\t%li\t%.2f\t%.2e\t%.2e\t%.2e\t%.2e\t%.2e\t%.2e\t%.2e\t%.2e\n",
67 H2Lines[iElecHi][iVibHi][iRotHi][0][0][1].Lo->Pop,
68 H2Lines[iElecHi][iVibHi][iRotHi][0][0][1].Emis->PopOpc,
69 H2Lines[iElecHi][iVibHi][iRotHi][0][0][1].Emis->opacity,
70 H2Lines[iElecHi][iVibHi][iRotHi][0][0][1].Emis->TauCon,
71 H2Lines[iElecHi][iVibHi][iRotHi][0][0][1].Emis->TauIn,
72 H2Lines[iElecHi][iVibHi][iRotHi][0][0][1].Emis->pump,