renaming a func

BloubWorld/bloubspace.f90

@@ -17,6 +17,7 @@ module bloubspace
     real                 :: vx, vy, vz
     real                 :: radius
     integer              :: age, agemax
+    integer              :: red, green, blue
   end type t_bloubs
 
   type t_boundingbox
@@ -37,7 +38,7 @@ module bloubspace
     integer                   :: fd, errcode
     character(200)            :: message
 
-    print *, "try to load ", infile
+    print *, "try to load ", infile, " name ", name
 
     ! put some default values
     where%id = "default"
@@ -68,7 +69,7 @@ module bloubspace
 
   ! ----------------------------------------------------------------
 
-  subroutine random_pv (blb)
+  subroutine make_a_random_bloub(blb)
     type(t_bloubs), intent (out)     :: blb
 
     blb%px = 3.57 * (rand() - 0.50)

BloubWorld/genbloubs.f90

@@ -33,7 +33,7 @@ program genbloubs
 
     bloub%nick    = 'noname  '
     bloub%num     = i + 41
-    call random_pv(bloub)
+    call make_a_random_bloub(bloub)
     bloub%radius  = 0.035 + (0.03*rand())
 
     write(idu) bloub              ! no error control ?

BloubWorld/movebloubs.f90

@@ -127,7 +127,7 @@ contains
   do foo=1, count
 
     bloub%nick = 'newbie  '
-    call random_pv(bloub)
+    call make_a_random_bloub(bloub)
     bloub%radius = rayon + (0.15*rand())
     bloub%age   = 1
     bloub%alive = .TRUE.