opticaProp_new Function

private function opticaProp_new(rhs) result(lhs)

Arguments

Type	Intent	Optional	Attributes		Name
class(opticalProp_base),	intent(in)			::	rhs

Return Value type(opticalProp_t)

Source Code

    type(opticalProp_t) function opticaProp_new(rhs) result(lhs)

        class(opticalProp_base), intent(in) :: rhs
        allocate(lhs%value,source=rhs)

    end function opticaProp_new