| File |
Line number |
Procedure |
Code |
|
./eesupp/src/global_sum_tile.F |
105 |
GLOBAL_SUM_TILE_RL |
CALL MPI_RECV (sumAllP, 1, MPI_DOUBLE_PRECISION, |
|
./eesupp/src/global_sum_tile.F |
141 |
GLOBAL_SUM_TILE_RL |
sumAllP = 0. |
|
./eesupp/src/global_sum_tile.F |
144 |
GLOBAL_SUM_TILE_RL |
sumAllP = sumAllP + globalBuf(biG,bjG) |
|
./eesupp/src/global_sum_tile.F |
151 |
GLOBAL_SUM_TILE_RL |
CALL MPI_SEND (sumAllP, 1, MPI_DOUBLE_PRECISION, |
|
./eesupp/src/global_sum_tile.F |
169 |
GLOBAL_SUM_TILE_RL |
sumAllP = sumMyPr |
|
./eesupp/src/global_sum_tile.F |
175 |
GLOBAL_SUM_TILE_RL |
CALL MPI_ALLREDUCE(sumMyPr,sumAllP,1,MPI_DOUBLE_PRECISION, |
|
./eesupp/src/global_sum_tile.F |
186 |
GLOBAL_SUM_TILE_RL |
phiGSR8(1,0) = sumAllP |
|
./eesupp/src/global_sum_tile.F |
70 |
GLOBAL_SUM_TILE_RL |
Real*8 sumAllP |