From d1b7218b2165f36db789cc675950100071a8e0b9 Mon Sep 17 00:00:00 2001 From: tTh Date: Wed, 7 Feb 2024 00:39:00 +0100 Subject: [PATCH] bla --- Modules/README.md | 3 +-- Modules/mathstuff2.f90 | 18 +++++++++--------- Modules/t.f90 | 35 ----------------------------------- 3 files changed, 10 insertions(+), 46 deletions(-) delete mode 100644 Modules/t.f90 diff --git a/Modules/README.md b/Modules/README.md index 715e45e..2b6fb88 100644 --- a/Modules/README.md +++ b/Modules/README.md @@ -11,8 +11,7 @@ Write gray level 2d buffer (aka picture) to disk in the NetPNM format. ### pixrgb Write 8 bits or 16 bits RGB pictures to PNM format. - -**Warning!** The width of the picture MUST be a multiple of 4 ! +The width of the picture MUST be a multiple of 4 ! ### trials diff --git a/Modules/mathstuff2.f90 b/Modules/mathstuff2.f90 index afa6c52..89fa2b8 100644 --- a/Modules/mathstuff2.f90 +++ b/Modules/mathstuff2.f90 @@ -6,15 +6,15 @@ module mathstuff2 implicit none contains - ! ---------------------------------------------------------------- - ! really quick'n'dirty hack - ! not really tested yet... - +! ---------------------------------------------------------------- +! really quick'n'dirty hack +! not really tested yet... subroutine init_random_seed() integer, dimension(3) :: tarray integer :: t3, foo real :: dummy + call itime(tarray) t3 = 3600*tarray(1) + 60*tarray(2) + tarray(3) ! write(0, '(A,3I3,A,I6)') "sranding: ", tarray, " --> ", t3 @@ -28,8 +28,10 @@ module mathstuff2 end subroutine - ! ---------------------------------------------------------------- - +! ---------------------------------------------------------------- +!- +!- May be I can make some generic procedures ? +!- logical function diff_sign(a, b) integer, intent(in) :: a, b @@ -45,8 +47,6 @@ logical function diff_sign(a, b) diff_sign = .FALSE. end function - - - ! ---------------------------------------------------------------- +! ---------------------------------------------------------------- end module mathstuff2 diff --git a/Modules/t.f90 b/Modules/t.f90 deleted file mode 100644 index e2d520d..0000000 --- a/Modules/t.f90 +++ /dev/null @@ -1,35 +0,0 @@ -program t - - use centermag - implicit none - - type(t_centermag) :: cmag - - print *, '====== programme de test ======' - - cmag%wscr = 800 - cmag%hscr = 600 - - call essai_centermag(cmag) - print * - - STOP ': PAF LE CHIEN ?' - -! -------------- -contains -! -------------- -subroutine essai_centermag(cm) - type(t_centermag), intent(in) :: cm - - real :: rx, ry - - call print_centermag (cm) - print * - - call centermag_scr2real(1, 1, rx, ry) - print *, 'to real :', rx, ry - -end subroutine -! -------------- - -end program