first step in revamping

GravityField/essai.f90

@@ -7,10 +7,9 @@ program essai
   use  realfield
   use  spitpgm               ! XXX
   use  pixrgb
-
   implicit none
 
-  call init_random()
+  call init_random()    ! defined in realfied module
 
   call essai_near_planet(2048, 2048)
 
@@ -49,7 +48,6 @@ subroutine essai_near_planet(nbplanets, szfield)
     fx = real(ix)
     do iy=1, szfield
       fy = real(iy)
-
       near      = -1
       smalldist = 1e37
       ! loop over all the planet's bodies
@@ -63,15 +61,11 @@ subroutine essai_near_planet(nbplanets, szfield)
           smalldist = curdist
         endif
       end do    ! loop on ipl  
-
       cmap(ix, iy)%r = mod(near*4,  255)
       cmap(ix, iy)%g = mod(near*7,  255)
       cmap(ix, iy)%b = mod(near*11, 255)
-
     enddo
-
     write(0, *) "row", ix, "     on", szfield
-
   enddo
 
   call rgbpix_spit_as_pnm_8(cmap, "rgb.pnm")