146 |
|
|
147 |
C-- Ten extra exchanges |
C-- Ten extra exchanges |
148 |
#ifdef TEN_EXTRA_EXCHS |
#ifdef TEN_EXTRA_EXCHS |
149 |
CALL EXCH_XY_R8( cg2d_s ) |
DO J=1,10 |
150 |
CALL EXCH_XY_R8( cg2d_s ) |
CALL EXCH_XY_R8( cg2d_s ) |
151 |
CALL EXCH_XY_R8( cg2d_s ) |
ENDDO |
|
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 ) |
|
152 |
#endif |
#endif |
153 |
|
|
154 |
C== Evaluate laplace operator on conjugate gradient vector |
C== Evaluate laplace operator on conjugate gradient vector |
168 |
|
|
169 |
#ifdef HUNDRED_EXTRA_SUMS |
#ifdef HUNDRED_EXTRA_SUMS |
170 |
C-- Hundred extra global sums |
C-- Hundred extra global sums |
171 |
CALL GSUM_R8( temp, alpha ) |
DO J=1,100 |
172 |
CALL GSUM_R8( temp, alpha ) |
CALL GSUM_R8( temp, alpha ) |
173 |
CALL GSUM_R8( temp, alpha ) |
ENDDO |
|
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 ) |
|
174 |
#endif |
#endif |
175 |
|
|
176 |
alpha = temp |
alpha = temp |