--- MITgcm_contrib/cg2d_bench/cg2d.F	2006/05/12 22:21:21	1.2
+++ MITgcm_contrib/cg2d_bench/cg2d.F	2006/05/31 16:27:25	1.3
@@ -1,4 +1,4 @@
-C	$Id: cg2d.F,v 1.2 2006/05/12 22:21:21 ce107 Exp $	
+C	$Id: cg2d.F,v 1.3 2006/05/31 16:27:25 ce107 Exp $	
       SUBROUTINE CG2D
 C     /==========================================================\
 C     | SUBROUTINE CG2D                                          |
@@ -146,16 +146,9 @@
 
 C--    Ten extra exchanges
 #ifdef TEN_EXTRA_EXCHS
-       CALL EXCH_XY_R8( cg2d_s )
-       CALL EXCH_XY_R8( cg2d_s )
-       CALL EXCH_XY_R8( cg2d_s )
-       CALL EXCH_XY_R8( cg2d_s )
-       CALL EXCH_XY_R8( cg2d_s )
-       CALL EXCH_XY_R8( cg2d_s )
-       CALL EXCH_XY_R8( cg2d_s )
-       CALL EXCH_XY_R8( cg2d_s )
-       CALL EXCH_XY_R8( cg2d_s )
-       CALL EXCH_XY_R8( cg2d_s )
+       DO J=1,10
+          CALL EXCH_XY_R8( cg2d_s )
+       ENDDO
 #endif
 
 C==    Evaluate laplace operator on conjugate gradient vector
@@ -175,106 +168,9 @@
 
 #ifdef HUNDRED_EXTRA_SUMS
 C--    Hundred extra global sums
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
-       CALL GSUM_R8( temp, alpha )
+       DO J=1,100
+          CALL GSUM_R8( temp, alpha )
+       ENDDO
 #endif
 
        alpha = temp