EffectiveExtinctCoeff Subroutine

private subroutine EffectiveExtinctCoeff(Eff_ExtCoeff, mp, ExtCoeff, c1, mask)

Arguments

Type IntentOptional Attributes Name
real, intent(out) :: Eff_ExtCoeff(mp,2)
integer, intent(in) :: mp
real, intent(in) :: ExtCoeff(mp)
real, intent(in) :: c1(mp,2)
logical, intent(in), optional :: mask(mp)