model_scale Function

private pure function model_scale(self) result(s)

Scale along the model's x, y and z axes.

Type Bound

Arguments

Type	Intent	Optional	Attributes		Name
class(Model),	intent(in)			::	self

Return Value real(kind=wp), (3)

Source Code

    pure function model_scale(self) result(s)
        class(Model), intent(in) :: self
        real(wp) :: s(3)
        s = self%scale_
    end function model_scale