Commit fbb1330e authored by Daniel Wortmann's avatar Daniel Wortmann
Browse files

Changed sending to isend from ibsend in error handling to avoid buffer overflow...

parent 489c0904
......@@ -295,7 +295,7 @@ CONTAINS
!Announce that I have a message to all PE
DO i=0,isize-1
CALL MPI_ibsend(message,100,MPI_CHARACTER,i,999,MPI_COMM_WORLD,ihandle(0),ierr)
CALL MPI_isend(message,100,MPI_CHARACTER,i,999,MPI_COMM_WORLD,ihandle(0),ierr)
!Collect all message
DO i=0,isize-1
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment