33 if( PopOpc*t.
Emis().
opacity()/ DopplerWidth <= 1.e-22 || width<=0. )
37 ((*t.
Hi()).Pop()/(*t.
Hi()).g())/PopOpc * width;
43 if( ipLineCenter > 0 && ipLineCenter <
rfield.nfine &&
rfield.lgOpacityFine &&
47 rfield.fine_opac_zone[ipLineCenter];
48 if( FractionThisLine<1e-5 )
49 FractionThisLine = 0.;
58 FractionThisLine =
MIN2(1., FractionThisLine);
59 ASSERT( FractionThisLine >= 0. && FractionThisLine <= 1.0 );
60 PressureReturned *= FractionThisLine;
63 return PressureReturned;
#define DEBUG_ENTRY(funcname)
long int & ipFine() const
realnum & opacity() const
realnum EnergyErg() const
realnum & EnergyWN() const
qList::iterator Lo() const
qList::iterator Hi() const
EmissionList::reference Emis() const
UNUSED const double HPLANCK
UNUSED const double EN1RYD
double PressureRadiationLine(const TransitionProxy &t, realnum DopplerWidth)
void PresTotCurrent(void)
double RT_LineWidth(const TransitionProxy &t, realnum DopplerWidth)
vector< double > external_mass[3]
double PressureInitialSpecified
realnum pinzon_PresIntegElecThin
bool lgPressureInitialSpecified
double RhoGravity_external
realnum PresIntegElecThin
double pres_radiation_lines_curr