--- trunk/libf/dyn3d/groupeun.f	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/groupeun.f	2010/04/06 17:52:58	32
@@ -27,7 +27,6 @@
       j2=2
       do ig=1,ngroup
          do j=j1-jd,j2-jd
-c           print*,'groupe ',ig,'  j= ',j,2**(ngroup-ig+1),'pts groupes'
             do i0=1,iim,2**(ngroup-ig+1)
                airen=0.
                airecn=0.