Commit eac7b38b authored by William Gropp's avatar William Gropp
Browse files

[svn-r8958] Added missing ierr argument

parent 92841435
......@@ -44,7 +44,7 @@ C
len = position
position = 0
call mpi_unpack( packbuf, len, position, outbuf, 10,
$ MPI_INTEGER,MPI_COMM_WORLD )
$ MPI_INTEGER, MPI_COMM_WORLD, ierr )
C
do i=1, 10
if (outbuf(i) .ne. 11-i) then
......
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