On Wednesday, May 04, 2011 04:04:37 PM hi wrote:
> Greetings !!!
>
> I am observing following error messages when executing attached test
> program...
>
>
> C:\test>mpirun mar_f.exe
...
> [vbgyor:9920] *** An error occurred in MPI_Allreduce
> [vbgyor:9920] *** on communicator MPI_COMM_WORLD
> [vbgyor:9920] *** MPI_ERR_OP: invalid reduce operation
> [vbgyor:9920] *** MPI_ERRORS_ARE_FATAL (your MPI job will now abort)
I'm not a fortran programmer but it seems to me that placing the MPI_Allreduce
call in a subroutine like that broke the meaning of MPI_SUM and MPI_REAL in
that scope. Adding:
include 'mpif.h'
after SUBROUTINE PAR_BLAS2(m, n, a, b, c, comm) helps.
/Peter
|
![[Flag]](../../../../../community/mirrors/flag-us.gif){kind=small}