If found
is present, set it it false.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
logical(kind=LK), | intent(out), | optional | :: | found |
subroutine flag_not_found(found) implicit none logical(LK),intent(out),optional :: found if (present(found)) found = .false. end subroutine flag_not_found