flag_not_found Subroutine

private subroutine flag_not_found(found)

If found is present, set it it false.

Arguments

Type IntentOptional Attributes Name
logical(kind=LK), intent(out), optional :: found

Source Code

    subroutine flag_not_found(found)

    implicit none

    logical(LK),intent(out),optional :: found

    if (present(found)) found = .false.

    end subroutine flag_not_found