[MOAB-dev] r1781 - MOAB/trunk

[tautges at mcs.anl.gov]

Author: tautges
Date: 2008-04-28 12:27:52 -0500 (Mon, 28 Apr 2008)
New Revision: 1781

Added:
   MOAB/trunk/MBCN_FCDefs.h.in
   MOAB/trunk/MBCN_protos.h
Log:
Sigh, forgot these too.


Added: MOAB/trunk/MBCN_FCDefs.h.in
===================================================================
--- MOAB/trunk/MBCN_FCDefs.h.in	                        (rev 0)
+++ MOAB/trunk/MBCN_FCDefs.h.in	2008-04-28 17:27:52 UTC (rev 1781)
@@ -0,0 +1,7 @@
+
+/* Define to a macro mangling the given C identifier (in lower and upper
+   case), which must not contain underscores, for linking with Fortran. */
+#undef FC_FUNC
+
+/* As FC_FUNC, but for C identifiers containing underscores. */
+#undef FC_FUNC_

Added: MOAB/trunk/MBCN_protos.h
===================================================================
--- MOAB/trunk/MBCN_protos.h	                        (rev 0)
+++ MOAB/trunk/MBCN_protos.h	2008-04-28 17:27:52 UTC (rev 1781)
@@ -0,0 +1,33 @@
+#include "MBCN_FCDefs.h"
+#ifdef FC_FUNC_
+
+  //! get the basis of the numbering system
+#define MBCN_GetBasis FC_FUNC_(mbcn_getbasis, MBCN_GETBASIS)
+#define MBCN_SetBasis FC_FUNC_(mbcn_setbasis, MBCN_SETBASIS)
+#define MBCN_EntityTypeName FC_FUNC_(mbcn_entitytypename, MBCN_ENTITYTYPENAME)
+#define MBCN_EntityTypeFromName FC_FUNC_(mbcn_entitytypefromname, MBCN_ENTITYTYPEFROMNAME)
+#define MBCN_Dimension FC_FUNC_(mbcn_dimension, MBCN_DIMENSION)
+#define MBCN_VerticesPerEntity FC_FUNC_(mbcn_verticesperentity, MBCN_VERTICESPERENTITY)
+#define MBCN_NumSubEntities FC_FUNC_(mbcn_numsubentities, MBCN_NUMSUBENTITIES)
+#define MBCN_SubEntityType FC_FUNC_(mbcn_subentitytype, MBCN_SUBENTITYTYPE)
+#define MBCN_AdjacentSubEntities FC_FUNC_(mbcn_adjacentsubentities, MBCN_ADJACENTSUBENTITIES)
+#define MBCN_SideNumber FC_FUNC_(mbcn_sidenumber, MBCN_SIDENUMBER)
+#define MBCN_SideNumberInt FC_FUNC_(mbcn_sidenumberint, MBCN_SIDENUMBERINT)
+#define MBCN_SideNumberUint FC_FUNC_(mbcn_sidenumberuint, MBCN_SIDENUMBERUINT)
+#define MBCN_SideNumberLong FC_FUNC_(mbcn_sidenumberlong, MBCN_SIDENUMBERLONG)
+#define MBCN_SideNumberUlong FC_FUNC_(mbcn_sidenumberulong, MBCN_SIDENUMBERULONG)
+#define MBCN_SideNumberVoid FC_FUNC_(mbcn_sidenumbervoid, MBCN_SIDENUMBERVOID)
+#define MBCN_OppositeSide FC_FUNC_(mbcn_oppositeside, MBCN_OPPOSITESIDE)
+#define MBCN_ConnectivityMatchInt FC_FUNC_(mbcn_connectivitymatchint, MBCN_CONNECTIVITYMATCHINT)
+#define MBCN_ConnectivityMatchUint FC_FUNC_(mbcn_connectivitymatchuint, MBCN_CONNECTIVITYMATCHUINT)
+#define MBCN_ConnectivityMatchLong FC_FUNC_(mbcn_connectivitymatchlong, MBCN_CONNECTIVITYMATCHLONG)
+#define MBCN_ConnectivityMatchUlong FC_FUNC_(mbcn_connectivitymatchulong, MBCN_CONNECTIVITYMATCHULONG)
+#define MBCN_ConnectivityMatchVoid FC_FUNC_(mbcn_connectivitymatchvoid, MBCN_CONNECTIVITYMATCHVOID)
+#define MBCN_HasMidEdgeNodes FC_FUNC_(mbcn_hasmidedgenodes, MBCN_HASMIDEDGENODES)
+#define MBCN_HasMidFaceNodes FC_FUNC_(mbcn_hasmidfacenodes, MBCN_HASMIDFACENODES)
+#define MBCN_HasMidRegionNodes FC_FUNC_(mbcn_hasmidregionnodes, MBCN_HASMIDREGIONNODES)
+#define MBCN_HasMidNodes FC_FUNC_(mbcn_hasmidnodes, MBCN_HASMIDNODES)
+#define MBCN_HONodeParent FC_FUNC_(mbcn_honodeparent, MBCN_HONODEPARENT)
+#define MBCN_HONodeIndex FC_FUNC_(mbcn_honodeindex, MBCN_HONODEINDEX)
+
+#endif