mono – signedMCRT

type, public, extends(opticalProp_base) :: mono

Type	Visibility		Name
real(kind=wp),	public	::	albedo	$a = \frac{\mu_s}{\mu_s + \mu_a}$
real(kind=wp),	public	::	g2	g factor squared
real(kind=wp),	public	::	hgg	g factor
real(kind=wp),	public	::	kappa	$\kappa = \mu_s + \mu_a$
real(kind=wp),	public	::	mua	absoprtion coeff. $cm^{-1}$
real(kind=wp),	public	::	mus	scattering coeff. $cm^{-1}$
real(kind=wp),	public	::	n	refractive index

Type	Intent		Name
real(kind=wp),	intent(in)	::	mus
real(kind=wp),	intent(in)	::	mua
real(kind=wp),	intent(in)	::	hgg
real(kind=wp),	intent(in)	::	n

Type	Intent	Optional	Attributes		Name
class(mono),	intent(inout)			::	this
real(kind=wp),	intent(out)			::	wavelength

    type, extends(opticalProp_base) :: mono
        contains
            procedure :: update => updateMono
    end type mono