[Gretl-devel] Re: Debugging MPI on Windows
On 08.10.2019 10:01, Marcin Błażejowski wrote:
On 06.10.2019 17:38, Allin Cottrell wrote:
> On Sun, 6 Oct 2019, Marcin Błażejowski wrote:
>
>> On 06.10.2019 16:40, Allin Cottrell wrote:
> As for the --quiet flag, that's an option passed along to gretlmpi,
> not aimed at mpiexec, so I don't know how there could be any
> difference in result by MPI implementation.
Ok,
I'm pretty sure that the problem is related with communication between
MPI nodes. In attachement there is an example, which:
I found it.
The problem is related to 'mpisend' and/or 'mpirecv' functions in case
we interchange bundles. So, in my example the following piece of code is
problematic (I commented out lines which do not matter):
<hansl>
if $mpirank != 0
Known_models_array_bundle["RES"] = MODEL.known_models_array
mpisend(Known_models_array_bundle, 0)
#delete MODEL
printf("Bundle 'Known_models_array' send to root by (%d)\n",
$mpirank)
else
#known_models_array0 = MODEL.known_models_array
loop i=1..$mpisize-1 --quiet
TMP = mpirecv(i)
known_models_array$i = TMP["RES"]
printf("Bundle 'Known_models_array' received from (%d)\n", i)
endloop
#M.StartModel_b = MODEL.StartModel_b
#M.StartModel_xnames = MODEL.StartModel_xnames
#delete MODEL
endif
</hansl>
Marcin
--
Marcin Błażejowski