in_seed_list Function

function in_seed_list(iseed)

Arguments

Type IntentOptional Attributes Name
integer(kind=ip), intent(in) :: iseed

Return Value logical


Called by

proc~~in_seed_list~~CalledByGraph proc~in_seed_list problem_5::in_seed_list program~problem_5 problem_5 program~problem_5->proc~in_seed_list

Source Code

    logical function in_seed_list(iseed)
        ! for part b, is the seed in the initial list
        integer(ip),intent(in) :: iseed
        integer :: i
        do i = 1, size(seeds_list), 2
            if (iseed>=seeds_list(i) .and. iseed<=seeds_list(i)+seeds_list(i+1)-1) then
                in_seed_list = .true.
                return
            end if
        end do
        in_seed_list = .false.
    end function in_seed_list