Try using MPI_COMM_REMOTE_SIZE to get the size of the remote group in an
intercommunicator. MPI_COMM_SIZE returns the size of the local group.
On Jan 7, 2011, at 6:22 PM, Pierre Chanial wrote:
> Hello,
>
> When I run this code:
>
> program testcase
>
> use mpi
> implicit none
>
>
Hello,
When I run this code:
program testcase
use mpi
implicit none
integer :: rank, lsize, rsize, code
integer :: intercomm
call MPI_INIT(code)
call MPI_COMM_GET_PARENT(intercomm, code)
if (intercomm == MPI_COMM_NULL) then
call MPI_COMM_SPAWN ("./testcase"
