diff --git a/Modules/trials.f90 b/Modules/trials.f90
index 69942b5..173ba40 100644
--- a/Modules/trials.f90
+++ b/Modules/trials.f90
@@ -5,15 +5,11 @@ module trials
 
     implicit none
 
-!-----------------------------------------------------------------------
-!-------------------------------------------------------------------
-
     contains
-!-----------------------------------------------------------------------
-!-
-
 !-------------------------------------------------------------------
-subroutine new_spit_a(pic, fname)
+!  please write the same thing for RGB 16bits pictures !
+
+subroutine new_spit_gray(pic, fname)
 
   integer, intent(in), dimension (:,:)  ::  pic
   character (len=*), intent(in)         ::  fname
@@ -27,7 +23,7 @@ subroutine new_spit_a(pic, fname)
 
   open(newunit=io, file=fname)
   write (io, '(a2)') "P2"
-  write (io, '("# new_spit_a")')
+  write (io, '("# new_spit_gray")')
   write (io, '(i0," ",i0)')  size(pic, 1), size(pic, 2)
   write (io, '(i0)') 65535
 
@@ -52,4 +48,4 @@ subroutine new_spit_a(pic, fname)
 end subroutine
 !-------------------------------------------------------------------
 
-end module
\ No newline at end of file
+end module