test_029 Subroutine

subroutine test_029(id, nfail)

Uses

  • proc~~test_029~~UsesGraph proc~test_029 test_029 module~forcolormap_utils forcolormap_utils proc~test_029->module~forcolormap_utils module~forcolormap_parameters forcolormap_parameters module~forcolormap_utils->module~forcolormap_parameters iso_fortran_env iso_fortran_env module~forcolormap_parameters->iso_fortran_env

Bézier colormap must preserve the first/last control colors as endpoints.

Arguments

Type IntentOptional Attributes Name
integer, intent(inout) :: id
integer, intent(inout) :: nfail

Calls

proc~~test_029~~CallsGraph proc~test_029 test_029 proc~bezier bezier proc~test_029->proc~bezier proc~report_test report_test proc~test_029->proc~report_test proc~factorial factorial proc~bezier->proc~factorial

Called by

proc~~test_029~~CalledByGraph proc~test_029 test_029 program~check check program~check->proc~test_029

Source Code

   subroutine test_029(id, nfail)
      use forcolormap_utils, only: bezier
      integer, intent(inout) :: id, nfail
      character(len=*), parameter :: name = "bezier: endpoints equal control colors"
      logical :: ok
      integer :: colors(2,3)
      integer, allocatable :: map(:,:)
      integer :: levels_

      levels_ = 9
      colors(1,:) = [  1,  2,  3 ]
      colors(2,:) = [ 11, 12, 13 ]

      map = bezier(colors, levels_)
      ok = all(map(1,:) == colors(1,:)) .and. all(map(levels_,:) == colors(2,:))
      call report_test(name, ok, id, nfail)
   end subroutine test_029