<p><b>duda</b> 2009-10-19 11:43:37 -0600 (Mon, 19 Oct 2009)</p><p>Fix typo (copy-paste error?) in a couple of dmpar routines <br>
that were preventing the code from being compiled serially <br>
with some compilers.<br>
<br>
M swmodel/src/module_dmpar.F<br>
</p><hr noshade><pre><font color="gray">Modified: trunk/swmodel/src/module_dmpar.F
===================================================================
--- trunk/swmodel/src/module_dmpar.F        2009-10-03 06:06:44 UTC (rev 57)
+++ trunk/swmodel/src/module_dmpar.F        2009-10-19 17:43:37 UTC (rev 58)
@@ -550,7 +550,7 @@
write(0,*) 'Error in dmpar_alltoall_field: For non-dmpar, arrayIn and arrayOut dims must match.'
call dmpar_abort(dminfo)
else
- arrayOut(:,:) = arrayIn(:,:)
+ arrayOut(:) = arrayIn(:)
end if
#endif
@@ -731,7 +731,7 @@
write(0,*) 'Error in dmpar_alltoall_field: For non-dmpar, arrayIn and arrayOut dims must match.'
call dmpar_abort(dminfo)
else
- arrayOut(:,:) = arrayIn(:,:)
+ arrayOut(:) = arrayIn(:)
end if
#endif
</font>
</pre>