test_024 Subroutine

subroutine test_024(id, nfail)

Uses

  • proc~~test_024~~UsesGraph proc~test_024 test_024 module~forcolormap_utils forcolormap_utils proc~test_024->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

Lagrange 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_024~~CallsGraph proc~test_024 test_024 proc~lagrange lagrange proc~test_024->proc~lagrange proc~report_test report_test proc~test_024->proc~report_test proc~lagrange_poly lagrange_poly proc~lagrange->proc~lagrange_poly

Called by

proc~~test_024~~CalledByGraph proc~test_024 test_024 program~check check program~check->proc~test_024

Source Code

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

      levels_ = 11
      colors(1,:) = [ 10, 20, 30 ]
      colors(2,:) = [ 110, 120, 130 ]

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