reverse Function

public pure function reverse(ivals) result(ireverse)

Reverse an ip vector

Arguments

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

Return Value integer(kind=ip), dimension(size(ivals))


Called by

proc~~reverse~~CalledByGraph proc~reverse aoc_utilities::reverse program~problem_9 problem_9 program~problem_9->proc~reverse

Source Code

    pure function reverse(ivals) result(ireverse)
        integer(ip),dimension(:),intent(in) :: ivals
        integer(ip),dimension(size(ivals)) :: ireverse
        integer :: i
        ireverse = [(ivals(i), i = size(ivals), 1, -1)]
    end function reverse