test_031 Subroutine

subroutine test_031(id, nfail)

Uses

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

If all control colors are identical, the generated Bézier map should be constant.

Arguments

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

Calls

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

Called by

proc~~test_031~~CalledByGraph proc~test_031 test_031 program~check check program~check->proc~test_031

Source Code

   subroutine test_031(id, nfail)
      use forcolormap_utils, only: bezier
      integer, intent(inout) :: id, nfail
      character(len=*), parameter :: name = "bezier: constant control colors -> constant map"
      logical :: ok
      integer :: colors(4,3)
      integer, allocatable :: map(:,:)

      colors(1,:) = [ 7, 8, 9 ]
      colors(2,:) = [ 7, 8, 9 ]
      colors(3,:) = [ 7, 8, 9 ]
      colors(4,:) = [ 7, 8, 9 ]

      map = bezier(colors, 32)
      ok = all(map(:,1) == 7) .and. all(map(:,2) == 8) .and. all(map(:,3) == 9)
      call report_test(name, ok, id, nfail)
   end subroutine test_031