reverse Subroutine

private pure subroutine reverse(self, name)

Reverse the colormap

Type Bound

Colormap

Arguments

Type IntentOptional Attributes Name
class(Colormap), intent(inout) :: self
character(len=*), intent(in), optional :: name

Called by

proc~~reverse~~CalledByGraph proc~reverse Colormap%reverse proc~create Colormap%create proc~create->proc~reverse proc~create_bezier Colormap%create_bezier proc~create_bezier->proc~reverse proc~create_lagrange Colormap%create_lagrange proc~create_lagrange->proc~reverse proc~extract Colormap%extract proc~extract->proc~reverse proc~extract->proc~create proc~load Colormap%load proc~load->proc~reverse proc~set Colormap%set proc~set->proc~reverse proc~set->proc~create program~create create program~create->proc~create_bezier program~create->proc~create_lagrange program~demo demo program~demo->proc~create program~demo->proc~load program~demo->proc~set program~demo_reverse demo_reverse program~demo_reverse->proc~create program~demo_reverse->proc~load program~demo_reverse->proc~set program~example1 example1 program~example1->proc~load program~extract extract program~extract->proc~extract program~extract->proc~set program~modify modify program~modify->proc~set

Source Code

    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