<p><b>duda</b> 2009-08-12 15:40:03 -0600 (Wed, 12 Aug 2009)</p><p>Add missing continuation characters.<br>
<br>
M module_dmpar.F<br>
</p><hr noshade><pre><font color="gray">Modified: trunk/swmodel/module_dmpar.F
===================================================================
--- trunk/swmodel/module_dmpar.F        2009-08-12 21:24:01 UTC (rev 27)
+++ trunk/swmodel/module_dmpar.F        2009-08-12 21:40:03 UTC (rev 28)
@@ -415,7 +415,7 @@
do while (istart <= recvListPtr % nList)
call MPI_Recv(nRecvBuf, 1, MPI_INTEGER, rightNeighbor, i, dminfo % comm, MPI_STATUS_IGNORE, mpi_ierr)
call MPI_Recv(buffer, nRecvBuf, MPI_INTEGER, rightNeighbor, i, dminfo % comm, MPI_STATUS_IGNORE, mpi_ierr)
- call unpackRecvBuf2dInteger(1, d1, nNeededList, arrayOut, recvListPtr, istart, BUFSIZE, buffer, nUnpacked,
+ call unpackRecvBuf2dInteger(1, d1, nNeededList, arrayOut, recvListPtr, istart, BUFSIZE, buffer, nUnpacked, &
lastUnpackedIdx)
istart = lastUnpackedIdx + 1
end do
@@ -438,7 +438,7 @@
do while (istart <= recvListPtr % nList)
call MPI_Recv(nRecvBuf, 1, MPI_INTEGER, rightNeighbor, i, dminfo % comm, MPI_STATUS_IGNORE, mpi_ierr)
call MPI_Recv(buffer, nRecvBuf, MPI_INTEGER, rightNeighbor, i, dminfo % comm, MPI_STATUS_IGNORE, mpi_ierr)
- call unpackRecvBuf2dInteger(1, d1, nNeededList, arrayOut, recvListPtr, istart, BUFSIZE, buffer, nUnpacked,
+ call unpackRecvBuf2dInteger(1, d1, nNeededList, arrayOut, recvListPtr, istart, BUFSIZE, buffer, nUnpacked, &
lastUnpackedIdx)
istart = lastUnpackedIdx + 1
end do
</font>
</pre>