shift Subroutine

private pure subroutine shift(self, sh)

Apply a circular shift to the colormap (left is +, right is -)

Type Bound

Colormap

Arguments

Type IntentOptional Attributes Name
class(Colormap), intent(inout) :: self
integer, intent(in) :: sh

The shift

Called by

proc~~shift~~CalledByGraph proc~shift Colormap%shift program~modify modify program~modify->proc~shift

Source Code

    pure subroutine shift(self, sh)
        class(Colormap), intent(inout) :: self
        integer, intent(in) :: sh   !! The shift

        self%map(:,:) = cshift(self%map(:,:), sh)
    end subroutine shift