moab
|
00001 #ifndef IBASE_F_H 00002 #define IBASE_F_H 00003 00004 #ifdef POINTER_SIZE 00005 ! user-defined override 00006 # define IBASE_HANDLE_T INTEGER*POINTER_SIZE 00007 #elif defined(__SIZEOF_SIZE_T__) 00008 ! gfortran 00009 # define IBASE_HANDLE_T integer*__SIZEOF_SIZE_T__ 00010 #elif defined(__GNUC__) && defined (_LANGUAGE_FORTRAN) 00011 ! gfortran 4.2 and earlier 00012 # ifdef _LP64 00013 # define IBASE_HANDLE_T integer*8 00014 # else 00015 ! NOTE: not integer*4 (see meaning of _LP64 in GNU docs) 00016 # define IBASE_HANDLE_T integer 00017 # endif 00018 #elif defined(__INTEL_COMPILER) 00019 # ifdef __x86_64 00020 # define IBASE_HANDLE_T integer*8 00021 # else 00022 # define IBASE_HANDLE_T integer*4 00023 # endif 00024 #elif defined(__XLCPP__) || defined(__bgp__) || defined(__bgq__) 00025 ! __XLCPP__ doesn't work for IBM. AT least make things work for BGP and BGQ 00026 USE, INTRINSIC :: ISO_C_BINDING 00027 # define IBASE_HANDLE_T C_PTR 00028 #else 00029 # WARNING "Unknown compiler; using SIZEOF_VOID_P." 00030 # define IBASE_HANDLE_T integer*8 00031 #endif 00032 00033 #define iBase_EntityHandle IBASE_HANDLE_T 00034 #define iBase_EntitySetHandle IBASE_HANDLE_T 00035 #define iBase_TagHandle IBASE_HANDLE_T 00036 #define iBase_EntityIterator IBASE_HANDLE_T 00037 #define iBase_EntityArrIterator IBASE_HANDLE_T 00038 00039 #endif 00040 00041 integer iBase_VERTEX 00042 integer iBase_EDGE 00043 integer iBase_FACE 00044 integer iBase_REGION 00045 integer iBase_ALL_TYPES 00046 00047 parameter (iBase_VERTEX = 0) 00048 parameter (iBase_EDGE = 1) 00049 parameter (iBase_FACE = 2) 00050 parameter (iBase_REGION = 3) 00051 parameter (iBase_ALL_TYPES = 4) 00052 00053 integer iBase_AdjacencyCost_MIN 00054 integer iBase_UNAVAILABLE 00055 integer iBase_ALL_ORDER_1 00056 integer iBase_ALL_ORDER_LOGN 00057 integer iBase_ALL_ORDER_N 00058 integer iBase_SOME_ORDER_1 00059 integer iBase_SOME_ORDER_LOGN 00060 integer iBase_SOME_ORDER_N 00061 integer iBase_AVAILABLE 00062 integer iBase_AdjacencyCost_MAX 00063 00064 parameter (iBase_AdjacencyCost_MIN = 0) 00065 parameter (iBase_UNAVAILABLE = 0) 00066 parameter (iBase_ALL_ORDER_1 = 1) 00067 parameter (iBase_ALL_ORDER_LOGN = 2) 00068 parameter (iBase_ALL_ORDER_N = 3) 00069 parameter (iBase_SOME_ORDER_1 = 4) 00070 parameter (iBase_SOME_ORDER_LOGN = 5) 00071 parameter (iBase_SOME_ORDER_N = 6) 00072 parameter (iBase_AVAILABLE = 7) 00073 parameter (iBase_AdjacencyCost_MAX = 7) 00074 00075 integer iBase_NEW 00076 integer iBase_ALREADY_EXISTED 00077 integer iBase_CREATED_DUPLICATE 00078 integer iBase_CREATION_FAILED 00079 00080 parameter (iBase_NEW = 0) 00081 parameter (iBase_ALREADY_EXISTED = 1) 00082 parameter (iBase_CREATED_DUPLICATE = 2) 00083 parameter (iBase_CREATION_FAILED = 3) 00084 00085 00086 integer iBase_SILENT 00087 integer iBase_WARN_ONLY 00088 integer iBase_THROW_ERROR 00089 00090 parameter (iBase_SILENT = 0) 00091 parameter (iBase_WARN_ONLY = 1) 00092 parameter (iBase_THROW_ERROR = 4) 00093 00094 00095 integer iBase_SUCCESS 00096 integer iBase_MESH_ALREADY_LOADED 00097 integer iBase_FILE_NOT_FOUND 00098 integer iBase_FILE_WRITE_ERROR 00099 integer iBase_NIL_ARRAY 00100 integer iBase_BAD_ARRAY_SIZE 00101 integer iBase_BAD_ARRAY_DIMENSION 00102 integer iBase_INVALID_ENTITY_HANDLE 00103 integer iBase_INVALID_ENTITY_COUNT 00104 integer iBase_INVALID_ENTITY_TYPE 00105 integer iBase_INVALID_ENTITY_TOPOLOGY 00106 integer iBase_BAD_TYPE_AND_TOPO 00107 integer iBase_ENTITY_CREATION_ERROR 00108 integer iBase_INVALID_TAG_HANDLE 00109 integer iBase_TAG_NOT_FOUND 00110 integer iBase_TAG_ALREADY_EXISTS 00111 integer iBase_TAG_IN_USE 00112 integer iBase_INVALID_ENTITYSET_HANDLE 00113 integer iBase_INVALID_ITERATOR_HANDLE 00114 integer iBase_INVALID_ARGUMENT 00115 integer iBase_MEMORY_ALLOCATION_FAILED 00116 integer iBase_NOT_SUPPORTED 00117 integer iBase_FAILURE 00118 00119 parameter (iBase_SUCCESS = 0) 00120 parameter (iBase_MESH_ALREADY_LOADED = 1) 00121 parameter (iBase_FILE_NOT_FOUND = 2) 00122 parameter (iBase_FILE_WRITE_ERROR = 3) 00123 parameter (iBase_NIL_ARRAY = 4) 00124 parameter (iBase_BAD_ARRAY_SIZE = 5) 00125 parameter (iBase_BAD_ARRAY_DIMENSION = 6) 00126 parameter (iBase_INVALID_ENTITY_HANDLE = 7) 00127 parameter (iBase_INVALID_ENTITY_COUNT = 8) 00128 parameter (iBase_INVALID_ENTITY_TYPE = 9) 00129 parameter (iBase_INVALID_ENTITY_TOPOLOGY = 10) 00130 parameter (iBase_BAD_TYPE_AND_TOPO = 11) 00131 parameter (iBase_ENTITY_CREATION_ERROR = 12) 00132 parameter (iBase_INVALID_TAG_HANDLE = 13) 00133 parameter (iBase_TAG_NOT_FOUND = 14) 00134 parameter (iBase_TAG_ALREADY_EXISTS = 15) 00135 parameter (iBase_TAG_IN_USE = 16) 00136 parameter (iBase_INVALID_ENTITYSET_HANDLE = 17) 00137 parameter (iBase_INVALID_ITERATOR_HANDLE = 18) 00138 parameter (iBase_INVALID_ARGUMENT = 19) 00139 parameter (iBase_MEMORY_ALLOCATION_FAILED = 20) 00140 parameter (iBase_NOT_SUPPORTED = 21) 00141 parameter (iBase_FAILURE = 22) 00142 00143 00144 integer iBase_BLOCKED 00145 integer iBase_INTERLEAVED 00146 integer iBase_UNDETERMINED 00147 00148 parameter (iBase_BLOCKED = 0) 00149 parameter (iBase_INTERLEAVED = 1) 00150 parameter (iBase_UNDETERMINED = 2) 00151 00152 00153 integer iBase_INTEGER 00154 integer iBase_DOUBLE 00155 integer iBase_ENTITY_HANDLE 00156 integer iBase_ENTITY_SET_HANDLE 00157 integer iBase_BYTES 00158 00159 parameter (iBase_BYTES = 0) 00160 parameter (iBase_INTEGER = 1) 00161 parameter (iBase_DOUBLE = 2) 00162 parameter (iBase_ENTITY_HANDLE = 3) 00163 parameter (iBase_ENTITY_SET_HANDLE = 3) 00164