has_model Function

private pure function has_model(self)

True if a model was read (or shared).

Type Bound

Arguments

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

Return Value logical

Source Code

    pure logical function has_model(self)
        class(Model), intent(in) :: self
        has_model = c_associated(self%model_)
    end function has_model