From 3b4726fb2a256998d60a22761e920c7773006cdc Mon Sep 17 00:00:00 2001 From: tTh Date: Wed, 10 Jan 2024 11:11:34 +0100 Subject: [PATCH] modules: rename a function --- Modules/trials.f90 | 14 +++++--------- 1 file changed, 5 insertions(+), 9 deletions(-) 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