diff Function

public pure function diff(ivals) result(idiff)

Difference ip vector

Arguments

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

Return Value integer(kind=ip), dimension(:), allocatable


Called by

proc~~diff~2~~CalledByGraph proc~diff~2 aoc_utilities::diff proc~extrapolate problem_9::extrapolate proc~extrapolate->proc~diff~2 program~problem_9 problem_9 program~problem_9->proc~extrapolate

Source Code

    pure function diff(ivals) result(idiff)
        integer(ip),dimension(:),intent(in) :: ivals
        integer(ip),dimension(:),allocatable :: idiff
        integer :: i !! counter
        idiff = [(ivals(i+1) - ivals(i), i = 1, size(ivals)-1)]
    end function diff