<p><b>duda</b> 2009-09-02 14:39:52 -0600 (Wed, 02 Sep 2009)</p><p>Wrap lines longer than 132 columns.<br>
<br>
M    module_io_input.F<br>
M    module_io_output.F<br>
</p><hr noshade><pre><font color="gray">Modified: trunk/swmodel/src/module_io_input.F
===================================================================
--- trunk/swmodel/src/module_io_input.F        2009-09-02 20:23:32 UTC (rev 41)
+++ trunk/swmodel/src/module_io_input.F        2009-09-02 20:39:52 UTC (rev 42)
@@ -616,8 +616,12 @@
 
 
    subroutine read_and_distribute_fields(dminfo, input_obj, block, &amp;
-                                     readCellsStart, readCellsCount, readEdgesStart, readEdgesCount, readVerticesStart, readVerticesCount, &amp;
-                                     sendCellsList, recvCellsList, sendEdgesList, recvEdgesList, sendVerticesList, recvVerticesList) 
+                                     readCellsStart, readCellsCount, &amp;
+                                     readEdgesStart, readEdgesCount, &amp;
+                                     readVerticesStart, readVerticesCount, &amp;
+                                     sendCellsList, recvCellsList, &amp;
+                                     sendEdgesList, recvEdgesList, &amp;
+                                     sendVerticesList, recvVerticesList) 
       
       implicit none
 

Modified: trunk/swmodel/src/module_io_output.F
===================================================================
--- trunk/swmodel/src/module_io_output.F        2009-09-02 20:23:32 UTC (rev 41)
+++ trunk/swmodel/src/module_io_output.F        2009-09-02 20:39:52 UTC (rev 42)
@@ -142,32 +142,44 @@
       !
       do i=1,domain % blocklist % mesh % nCellsSolve
          do j=1,domain % blocklist % mesh % nEdgesOnCell % array(i)
-            cellsOnCell(j,i) = domain % blocklist % mesh % indexToCellID % array(domain % blocklist % mesh % cellsOnCell % array(j,i))
-            edgesOnCell(j,i) = domain % blocklist % mesh % indexToEdgeID % array(domain % blocklist % mesh % edgesOnCell % array(j,i))
-            verticesOnCell(j,i) = domain % blocklist % mesh % indexToVertexID % array(domain % blocklist % mesh % verticesOnCell % array(j,i))
+            cellsOnCell(j,i) = domain % blocklist % mesh % indexToCellID % array( &amp;
+                                                                           domain % blocklist % mesh % cellsOnCell % array(j,i))
+            edgesOnCell(j,i) = domain % blocklist % mesh % indexToEdgeID % array( &amp;
+                                                                           domain % blocklist % mesh % edgesOnCell % array(j,i))
+            verticesOnCell(j,i) = domain % blocklist % mesh % indexToVertexID % array( &amp;
+                                                                           domain % blocklist % mesh % verticesOnCell % array(j,i))
          end do
          do j=domain % blocklist % mesh % nEdgesOnCell % array(i)+1,domain % blocklist % mesh % maxEdges
-            cellsOnCell(j,i) = domain % blocklist % mesh % indexToCellID % array(domain % blocklist % mesh % nEdgesOnCell % array(i))
-            edgesOnCell(j,i) = domain % blocklist % mesh % indexToEdgeID % array(domain % blocklist % mesh % nEdgesOnCell % array(i))
-            verticesOnCell(j,i) = domain % blocklist % mesh % indexToVertexID % array(domain % blocklist % mesh % nEdgesOnCell % array(i))
+            cellsOnCell(j,i) = domain % blocklist % mesh % indexToCellID % array( &amp;
+                                                                           domain % blocklist % mesh % nEdgesOnCell % array(i))
+            edgesOnCell(j,i) = domain % blocklist % mesh % indexToEdgeID % array( &amp;
+                                                                           domain % blocklist % mesh % nEdgesOnCell % array(i))
+            verticesOnCell(j,i) = domain % blocklist % mesh % indexToVertexID % array( &amp;
+                                                                           domain % blocklist % mesh % nEdgesOnCell % array(i))
          end do
       end do
       do i=1,domain % blocklist % mesh % nEdgesSolve
          cellsOnEdge(1,i) = domain % blocklist % mesh % indexToCellID % array(domain % blocklist % mesh % cellsOnEdge % array(1,i))
          cellsOnEdge(2,i) = domain % blocklist % mesh % indexToCellID % array(domain % blocklist % mesh % cellsOnEdge % array(2,i))
-         verticesOnEdge(1,i) = domain % blocklist % mesh % indexToVertexID % array(domain % blocklist % mesh % verticesOnEdge % array(1,i))
-         verticesOnEdge(2,i) = domain % blocklist % mesh % indexToVertexID % array(domain % blocklist % mesh % verticesOnEdge % array(2,i))
+         verticesOnEdge(1,i) = domain % blocklist % mesh % indexToVertexID % array( &amp;
+                                                                           domain % blocklist % mesh % verticesOnEdge % array(1,i))
+         verticesOnEdge(2,i) = domain % blocklist % mesh % indexToVertexID % array( &amp;
+                                                                           domain % blocklist % mesh % verticesOnEdge % array(2,i))
          do j=1,domain % blocklist % mesh % nEdgesOnEdge % array(i)
-            edgesOnEdge(j,i) = domain % blocklist % mesh % indexToEdgeID % array(domain % blocklist % mesh % edgesOnEdge % array(j,i))
+            edgesOnEdge(j,i) = domain % blocklist % mesh % indexToEdgeID % array( &amp;
+                                                                           domain % blocklist % mesh % edgesOnEdge % array(j,i))
          end do
          do j=domain % blocklist % mesh % nEdgesOnEdge % array(i)+1,2*domain % blocklist % mesh % maxEdges
-            edgesOnEdge(j,i) = domain % blocklist % mesh % indexToEdgeID % array(domain % blocklist % mesh % nEdgesOnEdge % array(i))
+            edgesOnEdge(j,i) = domain % blocklist % mesh % indexToEdgeID % array( &amp;
+                                                                           domain % blocklist % mesh % nEdgesOnEdge % array(i))
          end do
       end do
       do i=1,domain % blocklist % mesh % nVerticesSolve
          do j=1,3
-            cellsOnVertex(j,i) = domain % blocklist % mesh % indexToCellID % array(domain % blocklist % mesh % cellsOnVertex % array(j,i))
-            edgesOnVertex(j,i) = domain % blocklist % mesh % indexToEdgeID % array(domain % blocklist % mesh % edgesOnVertex % array(j,i))
+            cellsOnVertex(j,i) = domain % blocklist % mesh % indexToCellID % array( &amp;
+                                                                           domain % blocklist % mesh % cellsOnVertex % array(j,i))
+            edgesOnVertex(j,i) = domain % blocklist % mesh % indexToEdgeID % array( &amp;
+                                                                           domain % blocklist % mesh % edgesOnVertex % array(j,i))
          end do
       end do
 

</font>
</pre>