+ essai

BloubWorld/.gitignore

@@ -5,6 +5,7 @@ nbimg.inc
 *.gif
 *.blbs
 *.mp4
+*.lst
 frames/*
 log.*
 
@@ -12,4 +13,6 @@ exportbloubs
 genbloubs
 movebloubs
 mergebloubs
+essai
 
+core

BloubWorld/Makefile

@@ -2,25 +2,34 @@
 
 all:	genbloubs movebloubs exportbloubs mergebloubs
 
+# ------------------------------------------------------------
 
 GFOPT = -Wall -Wextra -g -time
 OBJS  = bloubspace.o povstuff.o mathstuff.o
 
 # ------------------------------------------------------------
 
+essai:		essai.f90 Makefile mathstuff.o
+	gfortran $(GFOPT) $< mathstuff.o  -o $@
+
+# ------------------------------------------------------------
+
 initial.blbs:	genbloubs Makefile
 	./genbloubs $@ 1000
 
 in.blbs:	genbloubs Makefile
-	./genbloubs $@ 300
+	./genbloubs $@ 30000
 
 out.blbs:	in.blbs mergebloubs Makefile
 	./mergebloubs $< $@
 
+out.lst:	out.blbs exportbloubs Makefile
+	./exportbloubs $< > $@
+
 # ------------------------------------------------------------
 
 bloubspace.o:	bloubspace.f90 Makefile
-	gfortran $(GFOPT) -c $<
+	gfortran $(GFOPT) -pg -c $<
 
 povstuff.o:	povstuff.f90 Makefile
 	gfortran $(GFOPT) -c $<

BloubWorld/essai.f90

@@ -0,0 +1,16 @@
+program essai
+
+  use mathstuff
+  implicit none
+
+  integer                     :: foo
+  real                        :: quux
+
+  call init_random_seed()
+
+  do foo=1, 200000
+    quux = rand()
+    print *, foo, quux
+  enddo
+
+end program