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"