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

[iulian at mcs.anl.gov]

Author: iulian
Date: 2011-11-22 10:39:45 -0600 (Tue, 22 Nov 2011)
New Revision: 5222

Modified:
   MOAB/trunk/examples/itaps/FindConnectF.F
   MOAB/trunk/examples/itaps/TagIterateF.F
Log:
use IBASE_HANDLE_T for pointer to entity handle, and iBase_EntityHandle 
instead of integer*8, so the test programs work on 32 bit machine too.
we will have to fix intel compiler issues separately


Modified: MOAB/trunk/examples/itaps/FindConnectF.F
===================================================================
--- MOAB/trunk/examples/itaps/FindConnectF.F	2011-11-21 20:47:07 UTC (rev 5221)
+++ MOAB/trunk/examples/itaps/FindConnectF.F	2011-11-22 16:39:45 UTC (rev 5222)
@@ -11,8 +11,8 @@
 
 c declarations
       iMesh_Instance mesh
-      integer*8 ents
-      integer*8 rpverts, rpallverts, ipoffsets
+      iBase_EntityHandle  ents
+      IBASE_HANDLE_T rpverts, rpallverts, ipoffsets
       pointer (rpents, ents(0:*))
       pointer (rpverts, verts(0:*))
       pointer (rpallverts, allverts(0:*))

Modified: MOAB/trunk/examples/itaps/TagIterateF.F
===================================================================
--- MOAB/trunk/examples/itaps/TagIterateF.F	2011-11-21 20:47:07 UTC (rev 5221)
+++ MOAB/trunk/examples/itaps/TagIterateF.F	2011-11-22 16:39:45 UTC (rev 5222)
@@ -14,7 +14,7 @@
       iBase_EntityHandle root_set
       iBase_EntityArrIterator iter
       iBase_TagHandle tagh
-      integer*8 rpents, ents, rpdata
+      IBASE_HANDLE_T rpents, ents, rpdata
       real*8 tag_data
       pointer (rpdata, tag_data(0:*))
       pointer (rpents, ents(0:*))