find_index Function

private pure function find_index(this, name) result(idx)

Return the index of a colormap by its name. Returns 0 if not found.

Type Bound

Colormaps_info

Arguments

Type IntentOptional Attributes Name
class(Colormaps_info), intent(in) :: this
character(len=*), intent(in) :: name

Return Value integer


Called by

proc~~find_index~~CalledByGraph proc~find_index Colormaps_info%find_index proc~check Colormap%check proc~check->proc~find_index proc~create Colormap%create proc~create->proc~check proc~create_bezier Colormap%create_bezier proc~create_bezier->proc~check proc~create_lagrange Colormap%create_lagrange proc~create_lagrange->proc~check proc~extract Colormap%extract proc~extract->proc~check proc~load Colormap%load proc~load->proc~check proc~set Colormap%set proc~set->proc~check proc~test_038 test_038 proc~test_038->proc~set proc~test_039 test_039 proc~test_039->proc~set proc~test_040 test_040 proc~test_040->proc~set proc~test_041 test_041 proc~test_041->proc~create proc~test_042 test_042 proc~test_042->proc~create proc~test_043 test_043 proc~test_043->proc~create proc~test_044 test_044 proc~test_044->proc~create proc~test_045 test_045 proc~test_045->proc~extract proc~test_045->proc~set proc~test_046 test_046 proc~test_046->proc~create_lagrange proc~test_047 test_047 proc~test_047->proc~create_bezier proc~test_048 test_048 proc~test_048->proc~set proc~test_049 test_049 proc~test_049->proc~create proc~test_051 test_051 proc~test_051->proc~create proc~test_052 test_052 proc~test_052->proc~create proc~test_053 test_053 proc~test_053->proc~create proc~test_054 test_054 proc~test_054->proc~create proc~test_055 test_055 proc~test_055->proc~create proc~test_056 test_056 proc~test_056->proc~extract proc~test_056->proc~set proc~test_057 test_057 proc~test_057->proc~set proc~test_058 test_058 proc~test_058->proc~set proc~test_059 test_059 proc~test_059->proc~set proc~test_060 test_060 proc~test_060->proc~create proc~test_061 test_061 proc~test_061->proc~extract proc~test_061->proc~set proc~test_062 test_062 proc~test_062->proc~extract proc~test_062->proc~set proc~test_063 test_063 proc~test_063->proc~set proc~test_064 test_064 proc~test_064->proc~create proc~test_065 test_065 proc~test_065->proc~create proc~test_066 test_066 proc~test_066->proc~create proc~test_067 test_067 proc~test_067->proc~create proc~test_068 test_068 proc~test_068->proc~extract proc~test_068->proc~set proc~test_069 test_069 proc~test_069->proc~create proc~test_069->proc~extract proc~test_070 test_070 proc~test_070->proc~create proc~test_071 test_071 proc~test_071->proc~create_lagrange proc~test_072 test_072 proc~test_072->proc~create_bezier proc~test_073 test_073 proc~test_073->proc~load proc~test_074 test_074 proc~test_074->proc~set proc~test_075 test_075 proc~test_075->proc~create proc~test_076 test_076 proc~test_076->proc~extract proc~test_076->proc~set proc~test_077 test_077 proc~test_077->proc~set proc~test_078 test_078 proc~test_078->proc~set proc~test_079 test_079 proc~test_079->proc~set proc~test_080 test_080 proc~test_080->proc~set proc~test_081 test_081 proc~test_081->proc~create_lagrange proc~test_082 test_082 proc~test_082->proc~set proc~test_083 test_083 proc~test_083->proc~set proc~test_084 test_084 proc~test_084->proc~create proc~test_084->proc~create_bezier proc~test_084->proc~create_lagrange proc~test_085 test_085 proc~test_085->proc~set 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 program~check check program~check->proc~test_038 program~check->proc~test_039 program~check->proc~test_040 program~check->proc~test_041 program~check->proc~test_042 program~check->proc~test_043 program~check->proc~test_044 program~check->proc~test_045 program~check->proc~test_046 program~check->proc~test_047 program~check->proc~test_048 program~check->proc~test_049 program~check->proc~test_051 program~check->proc~test_052 program~check->proc~test_053 program~check->proc~test_054 program~check->proc~test_055 program~check->proc~test_056 program~check->proc~test_057 program~check->proc~test_058 program~check->proc~test_059 program~check->proc~test_060 program~check->proc~test_061 program~check->proc~test_062 program~check->proc~test_063 program~check->proc~test_064 program~check->proc~test_065 program~check->proc~test_066 program~check->proc~test_067 program~check->proc~test_068 program~check->proc~test_069 program~check->proc~test_070 program~check->proc~test_071 program~check->proc~test_072 program~check->proc~test_073 program~check->proc~test_074 program~check->proc~test_075 program~check->proc~test_076 program~check->proc~test_077 program~check->proc~test_078 program~check->proc~test_079 program~check->proc~test_080 program~check->proc~test_081 program~check->proc~test_082 program~check->proc~test_083 program~check->proc~test_084 program~check->proc~test_085

Source Code

   pure function find_index(this, name) result(idx)
      class(Colormaps_info), intent(in) :: this
      character(*), intent(in) :: name
      integer :: idx
      integer :: i
      character(colormap_name_length) :: key

      key = adjustl(trim(name))

      idx = 0
      do i = 1, size(this%colormaps)
         if (key == this%colormaps(i)%name) then
               idx = i
               exit
         end if
      end do
   end function find_index