45 for( nelem=ipISO; nelem <
LIMELM; nelem++ )
69 if(
Transitions[ipISO][nelem][ipHi][ipLo].Emis->TauIn > 0.5 )
86 "nelem= %s iteration %li old %.3e new %.3e \n",
95 if( fabs(
Transitions[ipISO][nelem][ipHi][ipLo].Emis->TauTot -
108 fprintf(
punch.
ipPunConv,
" %s-like subord, nelem= %s iteration %li old %.3e new %.3e \n" ,
112 Transitions[ipISO][nelem][ipHi][ipLo].Emis->TauTot ,
113 Transitions[ipISO][nelem][ipHi][ipLo].Emis->TauIn );
123 for( i=0; i<
NCOLD; ++i )
139 fprintf(
punch.
ipPunConv,
" H mole col species %li iteration %li old %.2e new %.2e H col den %.2e\n",
152 if(
COmole[i]->n_nuclei == 1)