[Dart-dev] [3861] DART/trunk/mpi_utilities/mpi_utilities_mod.f90: removing more tabs
nancy at ucar.edu
nancy at ucar.edu
Wed May 6 16:15:22 MDT 2009
An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20090506/a64b42ac/attachment-0001.html
-------------- next part --------------
Modified: DART/trunk/mpi_utilities/mpi_utilities_mod.f90
===================================================================
--- DART/trunk/mpi_utilities/mpi_utilities_mod.f90 2009-05-06 22:13:27 UTC (rev 3860)
+++ DART/trunk/mpi_utilities/mpi_utilities_mod.f90 2009-05-06 22:15:22 UTC (rev 3861)
@@ -778,7 +778,7 @@
! my task is receiving data.
call MPI_Recv(dstarray, dstcount, datasize, root, MPI_ANY_TAG, &
- my_local_comm, status, errcode)
+ my_local_comm, status, errcode)
if (errcode /= MPI_SUCCESS) then
write(errstring, '(a,i8)') 'MPI_Recv returned error code ', errcode
call error_handler(E_ERR,'array_broadcast', errstring, source, revision, revdate)
More information about the Dart-dev
mailing list