Searched refs:tk_sum (Results 1 – 1 of 1) sorted by relevance
/dports/lang/opencoarrays/OpenCoarrays-2.9.0/src/tests/integration/pde_solvers/navier-stokes/ |
H A D | mpi-shear.f90 | 504 real, save :: sum_ek, sum_dk, sum_hk, sum_tk, ek_sum, dk_sum, hk_sum, tk_sum local 560 …call MPI_REDUCE(sum_tk, tk_sum, 1, MPI_FLOAT, MPI_SUM, 0, MPI_COMM_WORLD, ierror); sum_tk = tk_sum
|