From aa73934c72ae3dd35ca5fac9cf1b2d98b1f4c0af Mon Sep 17 00:00:00 2001
From: tth <tth@konrad.lan>
Date: Thu, 17 Feb 2022 10:51:56 +0100
Subject: [PATCH] + essai

---
 BloubWorld/.gitignore |  3 +++
 BloubWorld/Makefile   | 15 ++++++++++++---
 BloubWorld/essai.f90  | 16 ++++++++++++++++
 3 files changed, 31 insertions(+), 3 deletions(-)
 create mode 100644 BloubWorld/essai.f90

diff --git a/BloubWorld/.gitignore b/BloubWorld/.gitignore
index a8281c6..bd50a48 100644
--- a/BloubWorld/.gitignore
+++ b/BloubWorld/.gitignore
@@ -5,6 +5,7 @@ nbimg.inc
 *.gif
 *.blbs
 *.mp4
+*.lst
 frames/*
 log.*
 
@@ -12,4 +13,6 @@ exportbloubs
 genbloubs
 movebloubs
 mergebloubs
+essai
 
+core
diff --git a/BloubWorld/Makefile b/BloubWorld/Makefile
index ec22278..b415d75 100644
--- a/BloubWorld/Makefile
+++ b/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 $<
@@ -40,7 +49,7 @@ exportbloubs:	exportbloubs.f90 Makefile $(OBJS)
 	gfortran $(GFOPT) $< $(OBJS)  -o $@
 
 mergebloubs:	mergebloubs.f90 Makefile $(OBJS)
-	gfortran $(GFOPT) $< $(OBJS)  -o $@
+	gfortran $(GFOPT)  $< $(OBJS)  -o $@
 
 # ------------------------------------------------------------
 
diff --git a/BloubWorld/essai.f90 b/BloubWorld/essai.f90
new file mode 100644
index 0000000..78ee35a
--- /dev/null
+++ b/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
\ No newline at end of file