29 fprintf(
ioQQQ,
"\n\n Mean Line Optical Depths\n");
37 for( nelem=ipISO; nelem <
LIMELM; nelem++ )
39 if(
dense.lgElmtOn[nelem] )
42 for( ipLo=0; ipLo <
iso_sp[ipISO][nelem].numLevels_local-1; ipLo++ )
44 for( ipHi=ipLo+1; ipHi <
iso_sp[ipISO][nelem].numLevels_local; ipHi++ )
46 prme(
false,
iso_sp[ipISO][nelem].trans(ipHi,ipLo));
67 for( i=0; i <
nUTA; i++ )
74 (*diatom)->H2_Prt_line_tau();
82 for (
int ipSpecies=0; ipSpecies <
nSpecies; ++ipSpecies)
85 em !=
dBaseTrans[ipSpecies].Emis().end(); ++em)
87 prme(
false,(*em).Tran());
91 fprintf(
ioQQQ,
"\n");
128 fprintf(
ioQQQ,
" \n");
#define DEBUG_ENTRY(funcname)
EmissionProxy::iterator iterator
EmissionList::reference Emis() const
vector< diatomics * > diatoms
vector< diatomics * >::iterator diatom_iter
t_iso_sp iso_sp[NISO][LIMELM]
UNUSED const double SQRTPI
void prme(const bool lgReset, const TransitionProxy &t)
TransitionList UTALines("UTALines", &AnonStates)
TransitionList TauLine2("TauLine2", &AnonStates)
vector< TransitionList > dBaseTrans
TransitionList HFLines("HFLines", &AnonStates)
TransitionList TauLines("TauLines", &AnonStates)
char * chLineLbl(const TransitionProxy &t)