--- trunk/libf/dyn3d/qminimum.f	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/qminimum.f	2010/04/01 14:59:19	31
@@ -76,7 +76,6 @@
          DO i = 1, ip1jmp1
             IF (zx_pump(i).GT.0.0) THEN
                imprim = imprim + 1
-CC               PRINT*,'QMINIMUM:  en ',i,zx_pump(i)
             ENDIF
          ENDDO
       ENDIF