fix ifx warning on windows

Author: gha3mi

example/demo.f90

@@ -33,6 +33,8 @@ program demo
 
    integer :: i
    type(Colormap) :: cmap, custom_cmap
+   real(wp), dimension(2), parameter :: xmin = [0.0_wp, 0.0_wp]
+   real(wp), dimension(2), parameter :: xmax = [599.0_wp, 599.0_wp]
 
    !> A discrete colormap with 8 levels, by @alozada, resembling the color
    !> changes in red cabbage (containing Anthocyanins) with pH:
@@ -51,28 +53,28 @@ program demo
    ! Use the create() method instead of the set() method.
    call custom_cmap%create('red_cabbage', 0.0_wp, 2.0_wp, my_colormap)
    call custom_cmap%colorbar('red_cabbage_colorbar')
-   call custom_cmap%colormap('red_cabbage_test', zfun, [0.0_wp, 0.0_wp], [599.0_wp, 599.0_wp] )
+   call custom_cmap%colormap('red_cabbage_test', zfun, xmin, xmax)
 
    ! We create PPM files (binary encoded by default) for each built-in colormap.
    ! The built-in z=f(x,y) test function is in the [0, 2] range:
    do i = 1, cmap_info%get_ncolormaps()
       call cmap%set(trim(cmap_info%get_name(i)), 0.0_wp, 2.0_wp)
       call cmap%colorbar(trim(cmap_info%get_name(i))//'_colorbar')
-      call cmap%colormap(trim(cmap_info%get_name(i))//'_test', zfun, [0.0_wp, 0.0_wp], [599.0_wp, 599.0_wp])
+      call cmap%colormap(trim(cmap_info%get_name(i))//'_test', zfun, xmin, xmax)
       print '("Colormap ", A30, " has ", I0, " levels")', trim(cmap%get_name()), cmap%get_levels()
    end do
 
    ! Cubehelix can also accept other parameters (varargs array):
    call cmap%set("cubehelix", 0.0_wp, 2.0_wp, 1024, [0.5_wp, -1.0_wp, 1.0_wp, 1.0_wp])
    ! We change the name for the output test files:
    call cmap%colorbar('cubehelix_customized_colorbar')
-   call cmap%colormap('cubehelix_customized_test', zfun, [0.0_wp, 0.0_wp], [599.0_wp, 599.0_wp])
+   call cmap%colormap('cubehelix_customized_test', zfun, xmin, xmax)
 
    !> You can also download your colormap from a .txt file by
    !> using the load() method instead of the set() method.
    call custom_cmap%load("test_map_to_load.txt", 0.0_wp, 2.0_wp)
    call custom_cmap%colorbar('a_loaded_colorbar')
-   call custom_cmap%colormap('a_loaded_colormap_test', zfun, [0.0_wp, 0.0_wp], [599.0_wp, 599.0_wp])
+   call custom_cmap%colormap('a_loaded_colormap_test', zfun, xmin, xmax)
    call custom_cmap%print()
 
 contains

example/demo_reverse.f90

@@ -32,6 +32,8 @@ program demo_reverse
 
     integer :: i
     type(Colormap) :: cmap, custom_cmap
+    real(wp), dimension(2), parameter :: xmin = [0.0_wp, 0.0_wp]
+    real(wp), dimension(2), parameter :: xmax = [599.0_wp, 599.0_wp]
 
     !> A discrete colormap with 8 levels, by @alozada, resembling the color
     !> changes in red cabbage (containing Anthocyanins) with pH:
@@ -50,28 +52,28 @@ program demo_reverse
     ! Use the create() method instead of the set() method.
     call custom_cmap%create('red_cabbage_reverse', 0.0_wp, 2.0_wp, my_colormap, reverse=.true.)
     call custom_cmap%colorbar('red_cabbage_reverse_colorbar')
-    call custom_cmap%colormap('red_cabbage_reverse_test', zfun, [0.0_wp, 0.0_wp], [599.0_wp, 599.0_wp] )
+    call custom_cmap%colormap('red_cabbage_reverse_test', zfun, xmin, xmax)
 
     ! We create PPM files (binary encoded by default) for each built-in colormap.
     ! The built-in z=f(x,y) test function is in the [0, 2] range:
     do i = 1, cmap_info%get_ncolormaps()
         call cmap%set(trim(cmap_info%get_name(i)), 0.0_wp, 2.0_wp, reverse=.true.)
         call cmap%colorbar(trim(cmap_info%get_name(i))//'_reverse_colorbar')
-        call cmap%colormap(trim(cmap_info%get_name(i))//'_reverse_test', zfun, [0.0_wp, 0.0_wp], [599.0_wp, 599.0_wp])
+        call cmap%colormap(trim(cmap_info%get_name(i))//'_reverse_test', zfun, xmin, xmax)
         print '("Colormap ", A30, " has ", I0, " levels")', trim(cmap%get_name()), cmap%get_levels()
     end do
 
     ! Cubehelix can also accept other parameters (varargs array):
     call cmap%set("cubehelix", 0.0_wp, 2.0_wp, 1024, [0.5_wp, -1.0_wp, 1.0_wp, 1.0_wp], reverse=.true.)
     ! We change the name for the output test files:
     call cmap%colorbar('cubehelix_customized_reverse_colorbar')
-    call cmap%colormap('cubehelix_customized_reverse_test', zfun, [0.0_wp, 0.0_wp], [599.0_wp, 599.0_wp])
+    call cmap%colormap('cubehelix_customized_reverse_test', zfun, xmin, xmax)
 
     !> You can also download your colormap from a .txt file by
     !> using the load() method instead of the set() method.
     call custom_cmap%load("test_map_to_load.txt", 0.0_wp, 2.0_wp, reverse=.true.)
     call custom_cmap%colorbar('a_loaded_reverse_colorbar')
-    call custom_cmap%colormap('a_loaded_reverse_colormap_test', zfun, [0.0_wp, 0.0_wp], [599.0_wp, 599.0_wp])
+    call custom_cmap%colormap('a_loaded_reverse_colormap_test', zfun, xmin, xmax)
     call custom_cmap%print()
 
 contains

example/example1.f90

@@ -32,11 +32,13 @@ program example1
 
     type(Colormap) :: custom_cmap
     type(format_pnm) :: ex1_colormap, ex1_colorbar
+    real(wp), dimension(2), parameter :: xmin = [0.0_wp, 0.0_wp]
+    real(wp), dimension(2), parameter :: xmax = [599.0_wp, 599.0_wp]
 
     ! Create ppm files
     call custom_cmap%load('test_map_to_load.txt', 0.0_wp, 2.0_wp)
     call custom_cmap%colorbar('a_loaded_colormap_ascii_test', encoding='ascii')
-    call custom_cmap%colormap('a_loaded_colormap_ascii_colorbar', zfun, [0.0_wp, 0.0_wp], [599.0_wp, 599.0_wp], encoding='ascii')
+    call custom_cmap%colormap('a_loaded_colormap_ascii_colorbar', zfun, xmin, xmax, encoding='ascii')
     call custom_cmap%print()
 
     ! Import ascii ppm files