|
954 | 954 | <div class="foldopen" id="foldopen00797" data-start="" data-end=""> |
955 | 955 | <div class="line"><a id="l00797" name="l00797"></a><span class="lineno"><a class="line" href="namespacem__mpi__common.html#a750c773a9421c7837f197be9bdc4fb73"> 797</a></span> <span class="keywordtype">impure</span> <span class="keyword">subroutine </span><a class="code hl_function" href="namespacem__mpi__common.html#a750c773a9421c7837f197be9bdc4fb73">s_mpi_allreduce_integer_sum</a>(var_loc, var_glb)</div> |
956 | 956 | <div class="line"><a id="l00798" name="l00798"></a><span class="lineno"> 798</span> </div> |
957 | | -<div class="line"><a id="l00799" name="l00799"></a><span class="lineno"> 799</span> <span class="keywordtype">integer</span>, <span class="keywordtype">intent(in)</span> :: var_loc</div> |
958 | | -<div class="line"><a id="l00800" name="l00800"></a><span class="lineno"> 800</span> <span class="keywordtype">integer</span>, <span class="keywordtype">intent(out)</span> :: var_glb</div> |
| 957 | +<div class="line"><a id="l00799" name="l00799"></a><span class="lineno"> 799</span> <span class="keywordtype">integer(kind=8)</span>, <span class="keywordtype">intent(in)</span> :: var_loc</div> |
| 958 | +<div class="line"><a id="l00800" name="l00800"></a><span class="lineno"> 800</span> <span class="keywordtype">integer(kind=8)</span>, <span class="keywordtype">intent(out)</span> :: var_glb</div> |
959 | 959 | <div class="line"><a id="l00801" name="l00801"></a><span class="lineno"> 801</span> </div> |
960 | 960 | <div class="line"><a id="l00802" name="l00802"></a><span class="lineno"> 802</span><span class="preprocessor">#ifdef MFC_MPI</span></div> |
961 | 961 | <div class="line"><a id="l00803" name="l00803"></a><span class="lineno"> 803</span><span class="preprocessor"></span> <span class="keywordtype">integer</span> :: ierr<span class="comment"> !< Generic flag used to identify and report MPI errors</span></div> |
962 | 962 | <div class="line"><a id="l00804" name="l00804"></a><span class="lineno"> 804</span> </div> |
963 | | -<div class="line"><a id="l00805" name="l00805"></a><span class="lineno"> 805</span> <span class="keyword">call </span>mpi_allreduce(var_loc, var_glb, 1, mpi_integer, mpi_sum, mpi_comm_world, ierr)</div> |
| 963 | +<div class="line"><a id="l00805" name="l00805"></a><span class="lineno"> 805</span> <span class="keyword">call </span>mpi_allreduce(var_loc, var_glb, 1, mpi_integer8, mpi_sum, mpi_comm_world, ierr)</div> |
964 | 964 | <div class="line"><a id="l00806" name="l00806"></a><span class="lineno"> 806</span><span class="preprocessor">#else</span></div> |
965 | 965 | <div class="line"><a id="l00807" name="l00807"></a><span class="lineno"> 807</span><span class="preprocessor"></span> var_glb = var_loc</div> |
966 | 966 | <div class="line"><a id="l00808" name="l00808"></a><span class="lineno"> 808</span><span class="preprocessor">#endif</span></div> |
|
0 commit comments