Add missing integer kind 'ik'

gha3mi · Feb 23, 2024 · 72937fe · 72937fe
1 parent 28a1789
commit 72937fe
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 6 deletions.
diff --git a/example/demo_color.f90 b/example/demo_color.f90
@@ -59,7 +59,7 @@ program demo_color
 
 
    ! Set the color using a decimal value
-   call custom_color%set(name='custom_color', decimal=16088896)
+   call custom_color%set(name='custom_color', decimal=16088896_ik)
 
    ! Convert the color to other color spaces
    call custom_color%convert('decimal2all')

diff --git a/src/forcolor.f90 b/src/forcolor.f90
@@ -775,7 +775,7 @@ end subroutine cmyk_to_rgb
    !> author: Seyed Ali Ghasemi
    elemental pure subroutine hsv_to_rgb(h, s, v, r, g, b)
       real(rk), intent(in) :: h, s, v
-      integer, intent(out) :: r, g, b
+      integer(ik), intent(out) :: r, g, b
       real(rk) :: c, h_prime, x, m
       real(rk) :: h_dash, r1, g1, b1
 
@@ -872,7 +872,7 @@ end subroutine rgb_to_hsv
    !===============================================================================
    !> author: Seyed Ali Ghasemi
    elemental pure subroutine rgb_to_hsl(r, g, b, h, s, l)
-      integer, intent(in) :: r, g, b
+      integer(ik), intent(in) :: r, g, b
       real(rk), intent(out) :: h, s, l
       real(rk) :: rn, gn, bn
       real(rk) :: cmax, cmin

diff --git a/test/test26.f90 b/test/test26.f90
@@ -65,7 +65,7 @@ program example26
 
 
    ! Set the color using a decimal value
-   call custom_color%set(name='custom_color', decimal=16088896)
+   call custom_color%set(name='custom_color', decimal=16088896_ik)
 
    ! Convert the color to other color spaces
    call custom_color%convert('decimal2all')

diff --git a/test/test27.f90 b/test/test27.f90
@@ -1,11 +1,11 @@
 program example27
 
-   use forimage, only: color
+   use forimage, only: ik, color
    implicit none
 
    type(color) :: custom_color, nearest_color
 
-   call custom_color%set(name='custom_color', decimal=16711680)
+   call custom_color%set(name='custom_color', decimal=16711680_ik)
 
    print'(a)', 'Find the nearest color to the custom color'
    call custom_color%convert('decimal2rgb')