bla

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
 

Modules/mathstuff2.f90

@@ -9,12 +9,12 @@ module mathstuff2
 ! ----------------------------------------------------------------
 !   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
@@ -29,7 +29,9 @@ 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
 

Modules/t.f90

@@ -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