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))


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