src/GHS3DPlugin/libmesh5.h

   1
   2
   3 /*----------------------------------------------------------*/
   4 /*                                                                                                                      */
   5 /*                                              LIBMESH V 5.45                                          */
   6 /*                                                                                                                      */
   7 /*----------------------------------------------------------*/
   8 /*                                                                                                                      */
   9 /*      Description:            handle .meshb file format I/O           */
  10 /*      Author:                         Loic MARECHAL                                           */
  11 /*      Creation date:          feb 16 2007                                                     */
  12 /*      Last modification:      sep 27 2010                                                     */
  13 /*                                                                                                                      */
  14 /*----------------------------------------------------------*/
  15
  16
  17 /*----------------------------------------------------------*/
  18 /* Defines                                                                                                      */
  19 /*----------------------------------------------------------*/
  20
  21 #define GmfStrSiz 1024
  22 #define GmfMaxTyp 1000
  23 #define GmfMaxKwd 79
  24 #define GmfMshVer 1
  25 #define GmfRead 1
  26 #define GmfWrite 2
  27 #define GmfSca 1
  28 #define GmfVec 2
  29 #define GmfSymMat 3
  30 #define GmfMat 4
  31 #define GmfFloat 1
  32 #define GmfDouble 2
  33
  34 enum GmfKwdCod
  35 {
  36         GmfReserved1, \
  37         GmfVersionFormatted, \
  38         GmfReserved2, \
  39         GmfDimension, \
  40         GmfVertices, \
  41         GmfEdges, \
  42         GmfTriangles, \
  43         GmfQuadrilaterals, \
  44         GmfTetrahedra, \
  45         GmfPrisms, \
  46         GmfHexahedra, \
  47         GmfIterationsAll, \
  48         GmfTimesAll, \
  49         GmfCorners, \
  50         GmfRidges, \
  51         GmfRequiredVertices, \
  52         GmfRequiredEdges, \
  53         GmfRequiredTriangles, \
  54         GmfRequiredQuadrilaterals, \
  55         GmfTangentAtEdgeVertices, \
  56         GmfNormalAtVertices, \
  57         GmfNormalAtTriangleVertices, \
  58         GmfNormalAtQuadrilateralVertices, \
  59         GmfAngleOfCornerBound, \
  60         GmfTrianglesP2, \
  61         GmfEdgesP2, \
  62         GmfSolAtPyramids, \
  63         GmfQuadrilateralsQ2, \
  64         GmfISolAtPyramids, \
  65         GmfReserved6, \
  66         GmfTetrahedraP2, \
  67         GmfReserved7, \
  68         GmfReserved8, \
  69         GmfHexahedraQ2, \
  70         GmfReserved9, \
  71         GmfReserved10, \
  72         GmfReserved17, \
  73         GmfReserved18, \
  74         GmfReserved19, \
  75         GmfReserved20, \
  76         GmfReserved21, \
  77         GmfReserved22, \
  78         GmfReserved23, \
  79         GmfReserved24, \
  80         GmfReserved25, \
  81         GmfReserved26, \
  82         GmfPolyhedra, \
  83         GmfPolygons, \
  84         GmfReserved29, \
  85         GmfPyramids, \
  86         GmfBoundingBox, \
  87         GmfBody, \
  88         GmfPrivateTable, \
  89         GmfReserved33, \
  90         GmfEnd, \
  91         GmfReserved34, \
  92         GmfReserved35, \
  93         GmfReserved36, \
  94         GmfReserved37, \
  95         GmfTangents, \
  96         GmfNormals, \
  97         GmfTangentAtVertices, \
  98         GmfSolAtVertices, \
  99         GmfSolAtEdges, \
 100         GmfSolAtTriangles, \
 101         GmfSolAtQuadrilaterals, \
 102         GmfSolAtTetrahedra, \
 103         GmfSolAtPrisms, \
 104         GmfSolAtHexahedra, \
 105         GmfDSolAtVertices, \
 106         GmfISolAtVertices, \
 107         GmfISolAtEdges, \
 108         GmfISolAtTriangles, \
 109         GmfISolAtQuadrilaterals, \
 110         GmfISolAtTetrahedra, \
 111         GmfISolAtPrisms, \
 112         GmfISolAtHexahedra, \
 113         GmfIterations, \
 114         GmfTime, \
 115         GmfReserved38
 116 };
 117
 118
 119 /*----------------------------------------------------------*/
 120 /* External procedures                                                                          */
 121 /*----------------------------------------------------------*/
 122
 123 extern int GmfOpenMesh(const char *, int, ...);
 124 extern int GmfCloseMesh(int);
 125 extern int GmfStatKwd(int, int, ...);
 126 extern int GmfGotoKwd(int, int);
 127 extern int GmfSetKwd(int, int, ...);
 128 extern void GmfGetLin(int, int, ...);
 129 extern void GmfSetLin(int, int, ...);
 130
 131
 132 /*----------------------------------------------------------*/
 133 /* Fortran 77 API                                                                                       */
 134 /*----------------------------------------------------------*/
 135
 136 #if defined(F77_NO_UNDER_SCORE)
 137 #define call(x) x
 138 #else
 139 #define call(x) x ## _
 140 #endif
 141
 142
 143 /*----------------------------------------------------------*/
 144 /* Transmesh private API                                                                        */
 145 /*----------------------------------------------------------*/
 146
 147 #ifdef TRANSMESH
 148
 149 extern char *GmfKwdFmt[ GmfMaxKwd + 1 ][4];
 150 extern int GmfCpyLin(int, int, int);
 151
 152 #endif