Reverse the colormap
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(Colormap), | intent(inout) | :: | self | |||
character(len=*), | intent(in), | optional | :: | name |
pure subroutine reverse(self, name) class(Colormap), intent(inout) :: self character(*), intent(in), optional :: name self%map(:,:) = self%map(size(self%map,1)-1:0:-1, :) if (present(name)) then self%name = trim(name) else self%name = trim(self%name)//'_reverse' end if end subroutine reverse