From 8ed64ac8ff328e0af04cab785202adf4c74fff91 Mon Sep 17 00:00:00 2001
From: tth <tth@konrad.lan>
Date: Fri, 25 Mar 2022 07:53:14 +0100
Subject: [PATCH] enlarge your export

---
 BloubWorld/exportbloubs.f90 | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/BloubWorld/exportbloubs.f90 b/BloubWorld/exportbloubs.f90
index ecad94a..b628e71 100644
--- a/BloubWorld/exportbloubs.f90
+++ b/BloubWorld/exportbloubs.f90
@@ -15,7 +15,7 @@ program genbloubs
   endif
   call getarg(1, filename)
   
-  write (0, '(A, A)') "*** exporting from ", trim(filename)
+  write (0, '(A, A)') "### exporting from ", trim(filename)
 
   open(unit=idu, file=trim(filename), form='unformatted',     &
                  iostat=errcode,                              &
@@ -32,8 +32,11 @@ program genbloubs
     if (0 .ne. errcode) then
       exit
     endif
-    print *, bloub%px, bloub%py, bloub%pz, bloub%radius, bloub%age
-    compte = compte + 1
+    if (bloub%alive) then
+      print *, bloub%px, bloub%py, bloub%pz, bloub%radius,     &
+               bloub%age, bloub%state
+      compte = compte + 1
+    endif
   enddo
   
   write(0, '(1X, I8, A)') compte, " bloubs exported"