File |
Line number |
Procedure |
Code |
./eesupp/src/global_sum_singlecpu.F |
113 |
GLOBAL_SUM_SINGLECPU_RL |
sumAll = 0. _d 0 |
./eesupp/src/global_sum_singlecpu.F |
115 |
GLOBAL_SUM_SINGLECPU_RL |
sumAll = sumAll + xy_buffer_r8(ij) |
./eesupp/src/global_sum_singlecpu.F |
122 |
GLOBAL_SUM_SINGLECPU_RL |
CALL MPI_SEND (sumAll, 1, MPI_DOUBLE_PRECISION, |
./eesupp/src/global_sum_singlecpu.F |
130 |
GLOBAL_SUM_SINGLECPU_RL |
CALL MPI_RECV (sumAll, 1, MPI_DOUBLE_PRECISION, |
./eesupp/src/global_sum_singlecpu.F |
138 |
GLOBAL_SUM_SINGLECPU_RL |
phiGSR8(1,0) = sumAll |
./eesupp/src/global_sum_singlecpu.F |
64 |
GLOBAL_SUM_SINGLECPU_RL |
Real*8 sumAll |