--- trunk/Sources/dyn3d/test_disvert.f	2015/09/29 19:48:59	171
+++ trunk/Sources/dyn3d/test_disvert.f	2016/02/05 16:02:34	175
@@ -90,7 +90,7 @@
        call abort_gcm("test_disvert", "bad order of pressure values")
     end if
 
-1000 format (3(a, g10.4, a, i0))
+1000 format (3(a, g11.4, a, i0))
 
   end subroutine test_disvert