set_verbose Subroutine
private subroutine set_verbose(this, value)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(vector_ref), | intent(inout) | :: | this | |||
| logical | , | optional | :: | value |
Source Code
subroutine set_verbose(this, value)
class(vector_ref), intent(inout) :: this
logical, optional :: value
if(present(value)) then
this%verbose = value
else
this%verbose = .true.
end if
end subroutine set_verbose