<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 &lt;= 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, &amp;
                                                  lastUnpackedIdx)
                      istart = lastUnpackedIdx + 1
                   end do
@@ -438,7 +438,7 @@
                do while (istart &lt;= 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, &amp;
                                               lastUnpackedIdx)
                   istart = lastUnpackedIdx + 1
                end do

</font>
</pre>