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

[tautges at mcs.anl.gov]

Author: tautges
Date: 2011-11-14 18:24:52 -0600 (Mon, 14 Nov 2011)
New Revision: 5215

Added:
   MOAB/trunk/itaps/imesh/ScdMesh.F90
Modified:
   MOAB/trunk/itaps/imesh/Makefile.am
Log:
Add test for createStructuredMesh iMesh extension function.



Modified: MOAB/trunk/itaps/imesh/Makefile.am
===================================================================
--- MOAB/trunk/itaps/imesh/Makefile.am	2011-11-15 00:22:59 UTC (rev 5214)
+++ MOAB/trunk/itaps/imesh/Makefile.am	2011-11-15 00:24:52 UTC (rev 5215)
@@ -11,6 +11,11 @@
 
 # stuff for c test program
 check_PROGRAMS = testc_cbind MOAB_iMesh_unit_tests MOAB_iMesh_extensions_tests
+
+if ENABLE_FORTRAN
+  check_PROGRAMS += ScdMesh
+endif
+
 EXTRA_DIST = brick.vtk quad9.cub
 
 libiMesh_la_SOURCES = \
@@ -54,6 +59,9 @@
 MOAB_iMesh_extensions_tests_SOURCES = MOAB_iMesh_extensions_tests.cpp
 MOAB_iMesh_extensions_tests_DEPENDENCIES = $(TESTDEPS)
 
+ScdMesh_SOURCES = ScdMesh.F90
+ScdMesh_DEPENDENCIES = $(TESTDEPS)
+
 lib_LTLIBRARIES = libiMesh.la
 
 libiMesh_la_includedir = $(includedir)

Added: MOAB/trunk/itaps/imesh/ScdMesh.F90
===================================================================
--- MOAB/trunk/itaps/imesh/ScdMesh.F90	                        (rev 0)
+++ MOAB/trunk/itaps/imesh/ScdMesh.F90	2011-11-15 00:24:52 UTC (rev 5215)
@@ -0,0 +1,50 @@
+! MOAB structured mesh extension test
+! 
+! This test also tests fortran free-source format
+!
+
+#define ERROR(rval) if (0 .ne. rval) call exit(1)
+
+program ScdMesh
+implicit none
+integer comm1, mysize,myproc,ier
+#include "iMesh_f.h"
+iMesh_Instance ::  mesh
+iBase_EntitySetHandle :: handle
+iBase_EntityHandle :: root_set
+integer :: local_dims(6),global_dims(6)
+integer :: geom_dim,num_regions, num_verts
+
+! declarations
+