when I run a code Like this on cluster with two nodes using one core on each:
use mpi
implicit real*8(a-h,o-z)
call MPI_Init ( ierr )
call MPI_Comm_rank ( MPI_COMM_WORLD, my_id, ierr )
CALL MPI_COMM_SIZE ( MPI_COMM_WORLD, NUM_PROCS, IERR )
print*,my_id
call mpi_barrier(mpi_comm_world,ierr)
call MPI_Finalize ( ierr )
end
It does the first printing , but on mpi_barrier it return error including message: rank 0 unable to connect to rank 1 using business card (port=30776,....)
I can not use any of the command mpi_bcast, mpi_reduce ,... they all don't work, but it can read from each node and print, but
It comes to communication, It returns this error
I use windows HPC cluster
I have run this code with this version of mpi on win XP and vista PC and laptop computers. please help me pass the conundrum.
Thanks
Parsa