Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(opticalProp_t), | intent(inout) | :: | this | |||
real(kind=wp), | intent(out) | :: | wavelength |
subroutine update_opticalProp_t(this, wavelength) class(opticalProp_t), intent(inout) :: this real(kind=wp), intent(out) :: wavelength call this%value%update(wavelength) end subroutine update_opticalProp_t