--- trunk/libf/dyn3d/Dissipation/inidissip.f90	2012/09/20 13:00:41	66
+++ trunk/libf/dyn3d/Dissipation/inidissip.f90	2013/07/08 18:12:18	71
@@ -45,7 +45,7 @@
 
     PRINT *, 'Call sequence information: inidissip'
     call random_seed(size=seed_size)
-    call random_seed(put=(/(0, ii = 1, seed_size)/))
+    call random_seed(put=(/(1, ii = 1, seed_size)/))
 
     PRINT *, 'Calcul des valeurs propres de divgrad'
     deltap = 1.