Commit fbb1330e authored by Daniel Wortmann's avatar Daniel Wortmann

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

parent 489c0904
......@@ -295,7 +295,7 @@ CONTAINS
message_list=""
!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)
ENDDO
!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