[MOAB-dev] r5415 - MOAB/trunk/examples/itaps

[jvporter at wisc.edu]

Author: jvporter
Date: 2012-03-06 01:33:06 -0600 (Tue, 06 Mar 2012)
New Revision: 5415

Modified:
   MOAB/trunk/examples/itaps/TagIterateF.F
Log:
Fix line width on Fortran


Modified: MOAB/trunk/examples/itaps/TagIterateF.F
===================================================================
--- MOAB/trunk/examples/itaps/TagIterateF.F	2012-03-05 20:40:17 UTC (rev 5414)
+++ MOAB/trunk/examples/itaps/TagIterateF.F	2012-03-06 07:33:06 UTC (rev 5415)
@@ -49,8 +49,8 @@
      1     rpdata, count, ierr)
     
 c step the iterator over count entities
-      call iMesh_stepEntArrIter(%VAL(mesh), %VAL(iter), %VAL(count), atend, 
-     1     ierr)
+      call iMesh_stepEntArrIter(%VAL(mesh), %VAL(iter), %VAL(count), 
+     1     atend, ierr)
 
       if (atend .eq. 0) go to 10