| File |
Line number |
Procedure |
Code |
|
./eesupp/src/global_sum_tile.F |
107 |
GLOBAL_SUM_TILE_RL |
CALL MPI_RECV (sumAllP, 1, MPI_DOUBLE_PRECISION, |
|
./eesupp/src/global_sum_tile.F |
145 |
GLOBAL_SUM_TILE_RL |
sumAllP = 0. |
|
./eesupp/src/global_sum_tile.F |
148 |
GLOBAL_SUM_TILE_RL |
sumAllP = sumAllP + globalBuf(biG,bjG) |
|
./eesupp/src/global_sum_tile.F |
156 |
GLOBAL_SUM_TILE_RL |
CALL MPI_SEND (sumAllP, 1, MPI_DOUBLE_PRECISION, |
|
./eesupp/src/global_sum_tile.F |
189 |
GLOBAL_SUM_TILE_RL |
sumAllP = 0. |
|
./eesupp/src/global_sum_tile.F |
192 |
GLOBAL_SUM_TILE_RL |
sumAllP = sumAllP + globalBuf(biG,bjG) |
|
./eesupp/src/global_sum_tile.F |
210 |
GLOBAL_SUM_TILE_RL |
sumAllP = sumMyPr |
|
./eesupp/src/global_sum_tile.F |
214 |
GLOBAL_SUM_TILE_RL |
CALL MPI_ALLREDUCE(sumMyPr,sumAllP,1,MPI_DOUBLE_PRECISION, |
|
./eesupp/src/global_sum_tile.F |
223 |
GLOBAL_SUM_TILE_RL |
phiGSR8(1,0) = sumAllP |
|
./eesupp/src/global_sum_tile.F |
71 |
GLOBAL_SUM_TILE_RL |
Real*8 sumAllP |