[MOAB-dev] r5245 - MOAB/trunk/itaps/imesh

[jvporter at wisc.edu]

Author: jvporter
Date: 2011-12-08 13:40:25 -0600 (Thu, 08 Dec 2011)
New Revision: 5245

Modified:
   MOAB/trunk/itaps/imesh/ScdMeshF90.F90
Log:
I forgot to save this file...


Modified: MOAB/trunk/itaps/imesh/ScdMeshF90.F90
===================================================================
--- MOAB/trunk/itaps/imesh/ScdMeshF90.F90	2011-12-08 19:23:50 UTC (rev 5244)
+++ MOAB/trunk/itaps/imesh/ScdMeshF90.F90	2011-12-08 19:40:25 UTC (rev 5245)
@@ -67,7 +67,7 @@
 call iMesh_getNumOfType(%VAL(mesh), %VAL(root_set), %VAL(iBase_VERTEX), num_verts, ier); ERROR(ier);
 
 call iMesh_initEntArrIter(%VAL(mesh), %VAL(root_set), %VAL(iBase_FACE), %VAL(iMesh_QUADRILATERAL),%VAL(num_quads), &
-  iter, ier); ERROR(ier);
+  %VAL(0), iter, ier); ERROR(ier);
 
 call iMesh_createTagWithOptions(%VAL(mesh), "XM1", "moab:TAG_STORAGE_TYPE=DENSE; moab:TAG_DEFAULT_VALUE=0.0", &
   %VAL(5), %VAL(iBase_DOUBLE), tagh, ier); ERROR(ier);