mmgs
|
API headers for the mmgs library. More...
#include "mmg/mmgs/libmmgtypes.h"
Go to the source code of this file.
Macros | |
#define | MMGS_LMAX 1024 |
Enumerations | |
enum | MMGS_Param { MMGS_IPARAM_verbose, MMGS_IPARAM_mem, MMGS_IPARAM_debug, MMGS_IPARAM_angle, MMGS_IPARAM_iso, MMGS_IPARAM_keepRef, MMGS_IPARAM_noinsert, MMGS_IPARAM_noswap, MMGS_IPARAM_nomove, MMGS_IPARAM_nreg, MMGS_IPARAM_numberOfLocalParam, MMGS_IPARAM_renum, MMGS_DPARAM_angleDetection, MMGS_DPARAM_hmin, MMGS_DPARAM_hmax, MMGS_DPARAM_hsiz, MMGS_DPARAM_hausd, MMGS_DPARAM_hgrad, MMGS_DPARAM_ls, MMGS_PARAM_size } |
Input parameters for mmg library. More... | |
Functions | |
int | MMGS_Init_mesh (const int starter,...) |
void | MMGS_Init_fileNames (MMG5_pMesh mesh, MMG5_pSol sol) |
void | MMGS_Init_parameters (MMG5_pMesh mesh) |
int | MMGS_Set_inputMeshName (MMG5_pMesh mesh, const char *meshin) |
int | MMGS_Set_outputMeshName (MMG5_pMesh mesh, const char *meshout) |
int | MMGS_Set_inputSolName (MMG5_pMesh mesh, MMG5_pSol sol, const char *solin) |
int | MMGS_Set_outputSolName (MMG5_pMesh mesh, MMG5_pSol sol, const char *solout) |
int | MMGS_Set_solSize (MMG5_pMesh mesh, MMG5_pSol sol, int typEntity, int np, int typSol) |
int | MMGS_Set_meshSize (MMG5_pMesh mesh, int np, int nt, int na) |
int | MMGS_Set_vertex (MMG5_pMesh mesh, double c0, double c1, double c2, int ref, int pos) |
int | MMGS_Set_vertices (MMG5_pMesh mesh, double *vertices, int *refs) |
int | MMGS_Set_triangle (MMG5_pMesh mesh, int v0, int v1, int v2, int ref, int pos) |
int | MMGS_Set_triangles (MMG5_pMesh mesh, int *tria, int *refs) |
int | MMGS_Set_edge (MMG5_pMesh mesh, int v0, int v1, int ref, int pos) |
int | MMGS_Set_corner (MMG5_pMesh mesh, int k) |
int | MMGS_Set_requiredVertex (MMG5_pMesh mesh, int k) |
int | MMGS_Set_requiredTriangle (MMG5_pMesh mesh, int k) |
int | MMGS_Set_ridge (MMG5_pMesh mesh, int k) |
int | MMGS_Set_requiredEdge (MMG5_pMesh mesh, int k) |
int | MMGS_Set_normalAtVertex (MMG5_pMesh mesh, int k, double n0, double n1, double n2) |
int | MMGS_Set_scalarSol (MMG5_pSol met, double s, int pos) |
int | MMGS_Set_scalarSols (MMG5_pSol met, double *s) |
int | MMGS_Set_vectorSol (MMG5_pSol met, double vx, double vy, double vz, int pos) |
int | MMGS_Set_vectorSols (MMG5_pSol met, double *sols) |
int | MMGS_Set_tensorSol (MMG5_pSol met, double m11, double m12, double m13, double m22, double m23, double m33, int pos) |
int | MMGS_Set_tensorSols (MMG5_pSol met, double *sols) |
int | MMGS_Chk_meshData (MMG5_pMesh mesh, MMG5_pSol met) |
int | MMGS_Set_iparameter (MMG5_pMesh mesh, MMG5_pSol sol, int iparam, int val) |
int | MMGS_Set_dparameter (MMG5_pMesh mesh, MMG5_pSol sol, int dparam, double val) |
int | MMGS_Set_localParameter (MMG5_pMesh mesh, MMG5_pSol sol, int typ, int ref, double hmin, double hmax, double hausd) |
int | MMGS_Get_meshSize (MMG5_pMesh mesh, int *np, int *nt, int *na) |
int | MMGS_Get_solSize (MMG5_pMesh mesh, MMG5_pSol sol, int *typEntity, int *np, int *typSol) |
int | MMGS_Get_vertex (MMG5_pMesh mesh, double *c0, double *c1, double *c2, int *ref, int *isCorner, int *isRequired) |
int | MMGS_Get_vertices (MMG5_pMesh mesh, double *vertices, int *refs, int *areCorners, int *areRequired) |
int | MMGS_Get_triangle (MMG5_pMesh mesh, int *v0, int *v1, int *v2, int *ref, int *isRequired) |
int | MMGS_Get_triangles (MMG5_pMesh mesh, int *tria, int *refs, int *areRequired) |
int | MMGS_Get_edge (MMG5_pMesh mesh, int *e0, int *e1, int *ref, int *isRidge, int *isRequired) |
int | MMGS_Get_normalAtVertex (MMG5_pMesh mesh, int k, double *n0, double *n1, double *n2) |
int | MMGS_Get_scalarSol (MMG5_pSol met, double *s) |
int | MMGS_Get_scalarSols (MMG5_pSol met, double *s) |
int | MMGS_Get_vectorSol (MMG5_pSol met, double *vx, double *vy, double *vz) |
int | MMGS_Get_vectorSols (MMG5_pSol met, double *sols) |
int | MMGS_Get_tensorSol (MMG5_pSol met, double *m11, double *m12, double *m13, double *m22, double *m23, double *m33) |
int | MMGS_Get_tensorSols (MMG5_pSol met, double *sols) |
int | MMGS_Get_iparameter (MMG5_pMesh mesh, int iparam) |
int | MMGS_loadMesh (MMG5_pMesh mesh, const char *filename) |
int | MMGS_loadMshMesh (MMG5_pMesh mesh, MMG5_pSol sol, const char *filename) |
int | MMGS_loadMshMesh_and_allData (MMG5_pMesh mesh, MMG5_pSol *sol, const char *filename) |
int | MMGS_saveMesh (MMG5_pMesh mesh, const char *filename) |
int | MMGS_saveMshMesh (MMG5_pMesh mesh, MMG5_pSol sol, const char *filename) |
int | MMGS_saveMshMesh_and_allData (MMG5_pMesh mesh, MMG5_pSol *sol, const char *filename) |
int | MMGS_loadSol (MMG5_pMesh mesh, MMG5_pSol met, const char *filename) |
int | MMGS_loadAllSols (MMG5_pMesh mesh, MMG5_pSol *sol, const char *filename) |
int | MMGS_saveSol (MMG5_pMesh mesh, MMG5_pSol met, const char *filename) |
int | MMGS_saveAllSols (MMG5_pMesh mesh, MMG5_pSol *sol, const char *filename) |
int | MMGS_Free_all (const int starter,...) |
int | MMGS_Free_structures (const int starter,...) |
int | MMGS_Free_names (const int starter,...) |
int | MMGS_mmgslib (MMG5_pMesh mesh, MMG5_pSol met) |
int | MMGS_mmgsls (MMG5_pMesh mesh, MMG5_pSol met) |
void | MMGS_setfunc (MMG5_pMesh mesh, MMG5_pSol met) |
int | MMGS_Set_constantSize (MMG5_pMesh mesh, MMG5_pSol met) |
int | MMGS_usage (char *prog) |
int | MMGS_parsar (int argc, char *argv[], MMG5_pMesh mesh, MMG5_pSol met) |
int | MMGS_defaultValues (MMG5_pMesh mesh) |
int | MMGS_stockOptions (MMG5_pMesh mesh, MMG5_Info *info) |
void | MMGS_destockOptions (MMG5_pMesh mesh, MMG5_Info *info) |
int | MMGS_Get_adjaTri (MMG5_pMesh mesh, int kel, int listri[3]) |
Return adjacent elements of a triangle. More... | |
int | MMGS_Get_adjaVerticesFast (MMG5_pMesh mesh, int ip, int start, int lispoi[MMGS_LMAX]) |
Return adjacent elements of a triangle. More... | |
API headers for the mmgs library.
API headers for the mmgs library ! *.
! * ! *
#define MMGS_LMAX 1024 |
Maximum array size when storing adjacent points (or ball) of a vertex.
enum MMGS_Param |
Input parameters for mmg library.
Input parameters for mmg library. Options prefixed by MMGS_IPARAM asked for integers values ans options prefixed by MMGS_DPARAM asked for real values.
int MMGS_Chk_meshData | ( | MMG5_pMesh | mesh, |
MMG5_pSol | met | ||
) |
mesh | pointer toward the mesh structure. |
met | pointer toward the sol structure. |
Check if the number of given entities match with mesh and sol size (not mandatory) and check mesh datas.
SUBROUTINE MMGS_CHK_MESHDATA(mesh,met,retval)
MMG5_DATA_PTR_T,INTENT(INOUT) :: mesh,met
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_defaultValues | ( | MMG5_pMesh | mesh | ) |
mesh | pointer toward the mesh structure. |
Print the default parameters values.
SUBROUTINE MMGS_DEFAULTVALUES(mesh,retval)
MMG5_DATA_PTR_T, INTENT(INOUT) :: mesh
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
void MMGS_destockOptions | ( | MMG5_pMesh | mesh, |
MMG5_Info * | info | ||
) |
mesh | pointer toward the mesh structure. |
info | pointer toward the info structure. |
Recover the info structure stored in the mesh structure.
SUBROUTINE MMGS_DESTOCKOPTIONS(mesh,info)
MMG5_DATA_PTR_T, INTENT(INOUT) :: mesh,info
END SUBROUTINE
int MMGS_Free_all | ( | const int | starter, |
... | |||
) |
starter | dummy argument used to initialize the variadic argument list. |
... | variadic arguments. |
For the MMGS_mmgslib function, you need to call the MMGS_Init_mesh function with the following arguments : MMGS_Init_mesh(MMG5_ARG_start,MMG5_ARG_ppMesh, &your_mesh, MMG5_ARG_ppMet, &your_metric,MMG5_ARG_end).
For the MMGS_mmgsls function, you need to call the MMGS_Init_mesh function with the following arguments : MMGS_Init_mesh(MMG5_ARG_start,MMG5_ARG_ppMesh, &your_mesh, MMG5_ARG_ppLs, &your_level_set,MMG5_ARG_end).
Here,your_mesh is a MMG5_pMesh, your_metric and your_level_set are MMG5_pSol.
Deallocations before return.
int MMGS_Free_names | ( | const int | starter, |
... | |||
) |
starter | dummy argument used to initialize the variadic argument list. |
... | variadic arguments. |
For the MMGS_mmgslib function, you need to call the MMGS_Init_mesh function with the following arguments : MMGS_Init_mesh(MMG5_ARG_start,MMG5_ARG_ppMesh, &your_mesh, MMG5_ARG_ppMet, &your_metric,MMG5_ARG_end).
For the MMGS_mmgsls function, you need to call the MMGS_Init_mesh function with the following arguments : MMGS_Init_mesh(MMG5_ARG_start,MMG5_ARG_ppMesh, &your_mesh, MMG5_ARG_ppLs, &your_level_set,MMG5_ARG_end).
Here,your_mesh is a MMG5_pMesh, your_metric and your_level_set are MMG5_pSol.
Structure deallocations before return.
int MMGS_Free_structures | ( | const int | starter, |
... | |||
) |
starter | dummy argument used to initialize the variadic argument list. |
... | variadic arguments. |
For the MMGS_mmgslib function, you need to call the MMGS_Init_mesh function with the following arguments : MMGS_Init_mesh(MMG5_ARG_start,MMG5_ARG_ppMesh, &your_mesh, MMG5_ARG_ppMet, &your_metric,MMG5_ARG_end).
For the MMGS_mmgsls function, you need to call the MMGS_Init_mesh function with the following arguments : MMGS_Init_mesh(MMG5_ARG_start,MMG5_ARG_ppMesh, &your_mesh, MMG5_ARG_ppLs, &your_level_set,MMG5_ARG_end).
Here,your_mesh is a MMG5_pMesh, your_metric and your_level_set are MMG5_pSol.
Here, your_mesh is a pointer toward MMG5_pMesh and your_metric and your_level_set a pointer toward MMG5_pSol.
Structure deallocations before return.
int MMGS_Get_adjaTri | ( | MMG5_pMesh | mesh, |
int | kel, | ||
int | listri[3] | ||
) |
Return adjacent elements of a triangle.
mesh | pointer toward the mesh structure. |
kel | triangle index. |
listri | pointer toward the table of the indices of the three adjacent triangles of the elt kel (the index is 0 if there is no adjacent). |
Find the indices of the 3 adjacent elements of triangle kel. if the
face has no adjacent element (so we are on a boundary face).
SUBROUTINE MMGS_GET_ADJATRI(mesh,kel,listri,retval)
MMG5_DATA_PTR_T, INTENT(INOUT) :: mesh
INTEGER, INTENT(IN) :: kel
INTEGER, DIMENSION(3), INTENT(OUT) :: listri
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
|
inline |
Return adjacent elements of a triangle.
mesh | pointer toward the mesh structure. |
ip | vertex index. |
start | index of a triangle holding ip. |
lispoi | pointer toward an array of size MMGS_LMAX that will contain the indices of adjacent vertices to the vertex ip. |
Find the indices of the adjacent vertices of the vertex ip of the triangle start.
SUBROUTINE MMGS_GET_ADJAVERTICESFAST(mesh,ip,start,lispoi,retval)
MMG5_DATA_PTR_T, INTENT(INOUT) :: mesh
INTEGER, INTENT(IN) :: ip,start
INTEGER, DIMENSION(MMGS_LMAX), INTENT(OUT) :: lispoi
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_Get_edge | ( | MMG5_pMesh | mesh, |
int * | e0, | ||
int * | e1, | ||
int * | ref, | ||
int * | isRidge, | ||
int * | isRequired | ||
) |
mesh | pointer toward the mesh structure. |
e0 | pointer toward the first extremity of the edge. |
e1 | pointer toward the second extremity of the edge. |
ref | pointer toward the edge reference. |
isRidge | pointer toward the flag saying if the edge is ridge. |
isRequired | pointer toward the flag saying if the edge is required. |
Get extremities e0, e1 and reference ref of next edge of mesh.
SUBROUTINE MMGS_GET_EDGE(mesh,e0,e1,ref,isRidge,isRequired,retval)
MMG5_DATA_PTR_T,INTENT(INOUT) :: mesh
INTEGER, INTENT(OUT) :: e0,e1
INTEGER :: ref,isRidge,isRequired
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_Get_iparameter | ( | MMG5_pMesh | mesh, |
int | iparam | ||
) |
mesh | pointer toward the mesh structure. |
iparam | integer parameter to set (see MMGS_Param structure). |
Get the value of integer parameter iparam.
SUBROUTINE MMGS_GET_IPARAMETER(mesh,iparam,retval)
MMG5_DATA_PTR_T,INTENT(INOUT) :: mesh
INTEGER, INTENT(IN) :: iparam
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_Get_meshSize | ( | MMG5_pMesh | mesh, |
int * | np, | ||
int * | nt, | ||
int * | na | ||
) |
recover datas
mesh | pointer toward the mesh structure. |
np | pointer toward the number of vertices. |
nt | pointer toward the number of triangles. |
na | pointer toward the number of edges. |
Get the number of vertices, triangles and edges of the mesh.
SUBROUTINE MMGS_GET_MESHSIZE(mesh,np,nt,na,retval)
MMG5_DATA_PTR_T,INTENT(INOUT) :: mesh
INTEGER :: np,nt,na
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_Get_normalAtVertex | ( | MMG5_pMesh | mesh, |
int | k, | ||
double * | n0, | ||
double * | n1, | ||
double * | n2 | ||
) |
mesh | pointer toward the mesh structure. |
k | point index |
n0 | x componant of the normal at point k. |
n1 | y componant of the normal at point k. |
n2 | z componant of the normal at point k. |
Get normals (n0,n1,n2) at point k.
SUBROUTINE MMGS_GET_NORMALATVERTEX(mesh,k,n0,n1,n2,retval)
MMG5_DATA_PTR_T,INTENT(INOUT) :: mesh
INTEGER, INTENT(IN) :: k
REAL(KIND=8) :: n0,n1,n2
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_Get_scalarSol | ( | MMG5_pSol | met, |
double * | s | ||
) |
met | pointer toward the sol structure. |
s | pointer toward the scalar solution value. |
Get solution s of next vertex of mesh.
SUBROUTINE MMGS_GET_SCALARSOL(met,s,retval)
MMG5_DATA_PTR_T,INTENT(INOUT) :: met
REAL(KIND=8), INTENT(OUT) :: s
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_Get_scalarSols | ( | MMG5_pSol | met, |
double * | s | ||
) |
met | pointer toward the sol structure. |
s | table of the scalar solutions at mesh vertices. s[i-1] is the solution at vertex i. |
Get solutions at mesh vertices.
SUBROUTINE MMGS_GET_SCALARSOLS(met,s,retval)
MMG5_DATA_PTR_T,INTENT(INOUT) :: met
REAL(KIND=8), DIMENSION(*),INTENT(OUT) :: s
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_Get_solSize | ( | MMG5_pMesh | mesh, |
MMG5_pSol | sol, | ||
int * | typEntity, | ||
int * | np, | ||
int * | typSol | ||
) |
mesh | pointer toward the mesh structure. |
sol | pointer toward the sol structure. |
typEntity | pointer toward the type of entities to which solutions are applied. |
np | pointer toward the number of solutions. |
typSol | pointer toward the type of the solutions (scalar, vectorial...) |
Get the solution number, dimension and type.
SUBROUTINE MMGS_GET_SOLSIZE(mesh,sol,typEntity,np,typSol,retval)
MMG5_DATA_PTR_T,INTENT(INOUT) :: mesh,sol
INTEGER :: typEntity,np,typSol
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_Get_tensorSol | ( | MMG5_pSol | met, |
double * | m11, | ||
double * | m12, | ||
double * | m13, | ||
double * | m22, | ||
double * | m23, | ||
double * | m33 | ||
) |
met | pointer toward the sol structure. |
m11 | pointer toward the position (1,1) in the solution tensor. |
m12 | pointer toward the position (1,2) in the solution tensor. |
m13 | pointer toward the position (1,3) in the solution tensor. |
m22 | pointer toward the position (2,2) in the solution tensor. |
m23 | pointer toward the position (2,3) in the solution tensor. |
m33 | pointer toward the position (3,3) in the solution tensor. |
Get tensorial solution of next vertex of mesh.
SUBROUTINE MMGS_GET_TENSORSOL(met,m11,m12,m13,m22,m23,m33,retval)
MMG5_DATA_PTR_T,INTENT(INOUT) :: met
REAL(KIND=8), INTENT(OUT) :: m11,m12,m13,m22,m23,m33
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_Get_tensorSols | ( | MMG5_pSol | met, |
double * | sols | ||
) |
met | pointer toward the sol structure. |
sols | table of the solutions at mesh vertices. sols[6*(i-1)]@6 is the solution at vertex i. |
Get tensorial solutions at mesh vertices.
SUBROUTINE MMGS_GET_TENSORSOLS(met,sols,retval)
MMG5_DATA_PTR_T,INTENT(INOUT) :: met
REAL(KIND=8), DIMENSION(*), INTENT(OUT) :: sols
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_Get_triangle | ( | MMG5_pMesh | mesh, |
int * | v0, | ||
int * | v1, | ||
int * | v2, | ||
int * | ref, | ||
int * | isRequired | ||
) |
mesh | pointer toward the mesh structure. |
v0 | pointer toward the first vertex of triangle. |
v1 | pointer toward the second vertex of triangle. |
v2 | pointer toward the third vertex of triangle. |
ref | pointer toward the triangle reference. |
isRequired | pointer toward the flag saying if triangle is required. |
Get vertices v0,v1,v2 and reference ref of next triangle of mesh.
SUBROUTINE MMGS_GET_TRIANGLE(mesh,v0,v1,v2,ref,isRequired,retval)
MMG5_DATA_PTR_T,INTENT(INOUT) :: mesh
INTEGER, INTENT(OUT) :: v0,v1,v2
INTEGER :: ref,isRequired
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_Get_triangles | ( | MMG5_pMesh | mesh, |
int * | tria, | ||
int * | refs, | ||
int * | areRequired | ||
) |
mesh | pointer toward the mesh structure. |
tria | pointer toward the table of the triangles vertices Vertices of the ![]() |
refs | pointer toward the table of the triangles references. refs[i-1] is the ref of the ![]() |
areRequired | pointer toward table of the flags saying if triangles are required. areRequired[i-1]=1 if the ![]() |
Get vertices and references of the mesh triangles.
! SUBROUTINE MMGS_GET_TRIANGLES(mesh,tria,refs,areRequired,retval)
! MMG5_DATA_PTR_T,INTENT(INOUT) :: mesh
! INTEGER, DIMENSION(*),INTENT(OUT) :: tria
! INTEGER, DIMENSION(*) :: refs,areRequired
! INTEGER, INTENT(OUT) :: retval
! END SUBROUTINE
int MMGS_Get_vectorSol | ( | MMG5_pSol | met, |
double * | vx, | ||
double * | vy, | ||
double * | vz | ||
) |
met | pointer toward the sol structure. |
vx | x value of the vectorial solution. |
vy | y value of the vectorial solution. |
vz | z value of the vectorial solution. |
Get vectorial solution of next vertex of mesh.
SUBROUTINE MMGS_GET_VECTORSOL(met,vx,vy,vz,retval)
MMG5_DATA_PTR_T,INTENT(INOUT) :: met
REAL(KIND=8), INTENT(OUT) :: vx,vy,vz
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_Get_vectorSols | ( | MMG5_pSol | met, |
double * | sols | ||
) |
met | pointer toward the sol structure. |
sols | table of the solutions at mesh vertices. sols[3*(i-1)]@3 is the solution at vertex i. |
Get vectorial solutions at mesh vertices
SUBROUTINE MMGS_GET_VECTORSOLS(met,sols,retval)
MMG5_DATA_PTR_T,INTENT(INOUT) :: met
REAL(KIND=8), DIMENSION(*),INTENT(OUT) :: sols
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_Get_vertex | ( | MMG5_pMesh | mesh, |
double * | c0, | ||
double * | c1, | ||
double * | c2, | ||
int * | ref, | ||
int * | isCorner, | ||
int * | isRequired | ||
) |
mesh | pointer toward the mesh structure. |
c0 | pointer toward the coordinate of the point along the first dimension. |
c1 | pointer toward the coordinate of the point along the second dimension. |
c2 | pointer toward the coordinate of the point along the third dimension. |
ref | pointer to the point reference. |
isCorner | pointer toward the flag saying if point is corner. |
isRequired | pointer toward the flag saying if point is required. |
Get coordinates c0, c1,c2 and reference ref of next vertex of mesh.
SUBROUTINE MMGS_GET_VERTEX(mesh,c0,c1,c2,ref,isCorner,isRequired,retval)
MMG5_DATA_PTR_T,INTENT(INOUT) :: mesh
REAL(KIND=8), INTENT(OUT) :: c0,c1,c2
INTEGER :: ref,isCorner,isRequired
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_Get_vertices | ( | MMG5_pMesh | mesh, |
double * | vertices, | ||
int * | refs, | ||
int * | areCorners, | ||
int * | areRequired | ||
) |
mesh | pointer toward the mesh structure. |
vertices | pointer toward the table of the points coordinates. The coordinates of the ![]() |
refs | pointer to the table of the point references. The ref of the ![]() |
areCorners | pointer toward the table of the flags saying if points are corners. areCorners[i-1]=1 if the ![]() |
areRequired | pointer toward the table of flags saying if points are required. areRequired[i-1]=1 if the ![]() |
Get the coordinates and references of the mesh vertices.
! SUBROUTINE MMGS_GET_VERTICES(mesh,vertices,refs,areCorners,&
! areRequired,retval)
! MMG5_DATA_PTR_T,INTENT(INOUT) :: mesh
! REAL(KIND=8),DIMENSION(*), INTENT(OUT) :: vertices
! INTEGER, DIMENSION(*) :: refs,areCorners,areRequired
! INTEGER, INTENT(OUT) :: retval
! END SUBROUTINE
void MMGS_Init_fileNames | ( | MMG5_pMesh | mesh, |
MMG5_pSol | sol | ||
) |
mesh | pointer toward the mesh structure. |
sol | pointer toward the sol structure. |
Initialize file names to their default values.
SUBROUTINE MMGS_INIT_FILENAMES(mesh,sol)
MMG5_DATA_PTR_T,INTENT(INOUT) :: mesh,sol
END SUBROUTINE
int MMGS_Init_mesh | ( | const int | starter, |
... | |||
) |
starter | dummy argument used to initialize the variadic argument list |
... | variadic arguments. |
For the MMGS_mmgslib function, you need to call the MMGS_Init_mesh function with the following arguments : MMGS_Init_mesh(MMG5_ARG_start,MMG5_ARG_ppMesh, &your_mesh, MMG5_ARG_ppMet, &your_metric,MMG5_ARG_end).
For the MMGS_mmgsls function, you need to call the MMGS_Init_mesh function with the following arguments : MMGS_Init_mesh(MMG5_ARG_start,MMG5_ARG_ppMesh, &your_mesh, MMG5_ARG_ppLs, &your_level_set,MMG5_ARG_end).
Here,your_mesh is a MMG5_pMesh, your_metric and your_level_set are MMG5_pSol.
MMG structures allocation and initialization.
void MMGS_Init_parameters | ( | MMG5_pMesh | mesh | ) |
mesh | pointer toward the mesh structure. |
Initialization of the input parameters (stored in the Info structure).
SUBROUTINE MMGS_INIT_PARAMETERS(mesh)
MMG5_DATA_PTR_T,INTENT(INOUT) :: mesh
END SUBROUTINE
int MMGS_loadAllSols | ( | MMG5_pMesh | mesh, |
MMG5_pSol * | sol, | ||
const char * | filename | ||
) |
mesh | pointer toward the mesh structure. |
sol | pointer toward the solutions array |
filename | name of file. |
Load 1 or more solutions in a solution file at medit file format.
SUBROUTINE MMGS_LOADALLSOLS(mesh,sol,filename,strlen,retval)
MMG5_DATA_PTR_T, INTENT(INOUT) :: mesh,sol
CHARACTER(LEN=*), INTENT(IN) :: filename
INTEGER, INTENT(IN) :: strlen
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
mesh | pointer toward the mesh structure. |
sol | pointer toward an allocatable sol structure. |
filename | name of file. |
Load a medit solution file containing 1 or more solutions.
Read the file header
Sol tab allocation
int MMGS_loadMesh | ( | MMG5_pMesh | mesh, |
const char * | filename | ||
) |
mesh | pointer toward the mesh structure. |
filename | name of file. |
Read mesh data.
SUBROUTINE MMGS_LOADMESH(mesh,filename,strlen,retval)
MMG5_DATA_PTR_T, INTENT(INOUT) :: mesh
CHARACTER(LEN=*), INTENT(IN) :: filename
INTEGER, INTENT(IN) :: strlen
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
mesh | pointer toward the mesh structure. |
filename | name of file. |
Read mesh data.
int MMGS_loadMshMesh | ( | MMG5_pMesh | mesh, |
MMG5_pSol | sol, | ||
const char * | filename | ||
) |
mesh | pointer toward the mesh structure. |
sol | pointer toward the solution structure. |
filename | name of file. |
Read mesh and 0 or 1 data field at MSH file format (.msh extension). We read only low-order points, edges, tria, quad, tetra and prisms.
SUBROUTINE MMGS_LOADMSHMESH(mesh,sol,filename,strlen,retval)
MMG5_DATA_PTR_T, INTENT(INOUT) :: mesh,sol
CHARACTER(LEN=*), INTENT(IN) :: filename
INTEGER, INTENT(IN) :: strlen
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_loadMshMesh_and_allData | ( | MMG5_pMesh | mesh, |
MMG5_pSol * | sol, | ||
const char * | filename | ||
) |
mesh | pointer toward the mesh structure. |
sol | pointer toward a list of solution structures. |
filename | name of file. |
Read mesh and a list of data at MSH file format (.msh extension). We read only low-order points, edges, tria, quadra, tetra and prisms.
SUBROUTINE MMGS_LOADMSHMESH_AND_ALLDATA(mesh,sol,filename,strlen,retval)
MMG5_DATA_PTR_T, INTENT(INOUT) :: mesh,sol
CHARACTER(LEN=*), INTENT(IN) :: filename
INTEGER, INTENT(IN) :: strlen
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_loadSol | ( | MMG5_pMesh | mesh, |
MMG5_pSol | met, | ||
const char * | filename | ||
) |
mesh | pointer toward the mesh structure. |
met | pointer toward the sol structure. |
filename | name of file. |
Load metric field. The solution file (at medit file format) must contains only 1 solution: the metric.
SUBROUTINE MMGS_LOADSOL(mesh,met,filename,strlen,retval)
MMG5_DATA_PTR_T, INTENT(INOUT) :: mesh,met
CHARACTER(LEN=*), INTENT(IN) :: filename
INTEGER, INTENT(IN) :: strlen
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
mesh | pointer toward the mesh structure. |
met | pointer toward the sol structure. |
filename | name of file. |
Load metric field.
Read the file header
int MMGS_mmgslib | ( | MMG5_pMesh | mesh, |
MMG5_pSol | met | ||
) |
mesh | pointer toward the mesh structure. |
met | pointer toward the sol (metric) structure. |
Main program for the library.
SUBROUTINE MMGS_MMGSLIB(mesh,met,retval)
MMG5_DATA_PTR_T, INTENT(INOUT) :: mesh,met
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
Free topologic tables (adja, xpoint, xtetra) resulting from a previous run
int MMGS_mmgsls | ( | MMG5_pMesh | mesh, |
MMG5_pSol | met | ||
) |
mesh | pointer toward the mesh structure. |
met | pointer toward the sol (metric) structure. |
Main program for level set discretization library.
SUBROUTINE MMGS_MMGSLS(mesh,met,retval)
MMG5_DATA_PTR_T, INTENT(INOUT) :: mesh,met
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
Free topologic tables (adja, xpoint, xtetra) resulting from a previous run
int MMGS_parsar | ( | int | argc, |
char * | argv[], | ||
MMG5_pMesh | mesh, | ||
MMG5_pSol | met | ||
) |
argc | number of command line arguments. |
argv | command line arguments. |
mesh | pointer toward the mesh structure. |
met | pointer toward the sol structure. |
Store command line arguments.
int MMGS_saveAllSols | ( | MMG5_pMesh | mesh, |
MMG5_pSol * | sol, | ||
const char * | filename | ||
) |
mesh | pointer toward the mesh structure. |
sol | pointer toward the solutions array |
filename | name of the solution file. |
Save 1 or more solutions in a solution file at medit file format.
SUBROUTINE MMGS_SAVEALLSOLS(mesh,sol,filename,strlen,retval)
MMG5_DATA_PTR_T, INTENT(INOUT) :: mesh,sol
CHARACTER(LEN=*), INTENT(IN) :: filename
INTEGER, INTENT(IN) :: strlen
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
mesh | pointer toward the mesh structure. |
sol | pointer toward the solutions array |
filename | name of file. |
Write solutions array
int MMGS_saveMesh | ( | MMG5_pMesh | mesh, |
const char * | filename | ||
) |
mesh | pointer toward the mesh structure. |
filename | name of file. |
Save mesh data.
SUBROUTINE MMGS_SAVEMESH(mesh,filename,strlen,retval)
MMG5_DATA_PTR_T, INTENT(INOUT) :: mesh
CHARACTER(LEN=*), INTENT(IN) :: filename
INTEGER, INTENT(IN) :: strlen
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
mesh | pointer toward the mesh structure. |
filename | name of file. |
Save mesh data.
int MMGS_saveMshMesh | ( | MMG5_pMesh | mesh, |
MMG5_pSol | sol, | ||
const char * | filename | ||
) |
mesh | pointer toward the mesh structure. |
sol | pointer toward the solution structure. |
filename | name of file. |
Write mesh and 0 or 1 data field at MSH file format (.msh extension). Save file at ASCII format for .msh extension, at binary format for .mshb one.
SUBROUTINE MMGS_SAVEMSHMESH(mesh,sol,filename,strlen,retval)
MMG5_DATA_PTR_T, INTENT(INOUT) :: mesh,sol
CHARACTER(LEN=*), INTENT(IN) :: filename
INTEGER, INTENT(IN) :: strlen
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_saveMshMesh_and_allData | ( | MMG5_pMesh | mesh, |
MMG5_pSol * | sol, | ||
const char * | filename | ||
) |
mesh | pointer toward the mesh structure. |
sol | pointer toward the solution structure. |
filename | name of file. |
Write mesh and a list of data fields (that are considered as solutions and not metrics, thus, we do nothing over the ridge points) at MSH file format (.msh extension). Save file at ASCII format for .msh extension, at binary format for .mshb one.
SUBROUTINE MMGS_SAVEMSHMESH_AND_ALLDATA(mesh,sol,filename,strlen,retval)
MMG5_DATA_PTR_T, INTENT(INOUT) :: mesh,sol
CHARACTER(LEN=*), INTENT(IN) :: filename
INTEGER, INTENT(IN) :: strlen
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_saveSol | ( | MMG5_pMesh | mesh, |
MMG5_pSol | met, | ||
const char * | filename | ||
) |
mesh | pointer toward the mesh structure. |
met | pointer toward the sol structure. |
filename | name of file. |
Write isotropic or anisotropic metric at medit file format.
SUBROUTINE MMGS_SAVESOL(mesh,met,filename,strlen,retval)
MMG5_DATA_PTR_T, INTENT(INOUT) :: mesh,met
CHARACTER(LEN=*), INTENT(IN) :: filename
INTEGER, INTENT(IN) :: strlen
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
mesh | pointer toward the mesh structure. |
met | pointer toward the sol structure. |
filename | name of file. |
Write isotropic or anisotropic metric.
int MMGS_Set_constantSize | ( | MMG5_pMesh | mesh, |
MMG5_pSol | met | ||
) |
mesh | pointer toward the mesh structure |
met | pointer toward the sol structure |
Compute constant size map according to mesh->info.hsiz
SUBROUTINE MMGS_SET_CONSTANTSIZE(mesh,met,retval)
MMG5_DATA_PTR_T, INTENT(INOUT) :: mesh,met
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_Set_corner | ( | MMG5_pMesh | mesh, |
int | k | ||
) |
mesh | pointer toward the mesh structure. |
k | vertex index. |
Set corner at point pos.
SUBROUTINE MMGS_SET_CORNER(mesh,k,retval)
MMG5_DATA_PTR_T,INTENT(INOUT) :: mesh
INTEGER, INTENT(IN) :: k
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_Set_dparameter | ( | MMG5_pMesh | mesh, |
MMG5_pSol | sol, | ||
int | dparam, | ||
double | val | ||
) |
mesh | pointer toward the mesh structure. |
sol | pointer toward the sol structure. |
dparam | double parameter to set (see MMGS_Param structure). |
val | value of the parameter. |
Set double parameter dparam at value val.
SUBROUTINE MMGS_SET_DPARAMETERS(mesh,sol,dparam,val,retval)
MMG5_DATA_PTR_T,INTENT(INOUT) :: mesh,sol
INTEGER, INTENT(IN) :: dparam
REAL(KIND=8), INTENT(IN) :: val
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_Set_edge | ( | MMG5_pMesh | mesh, |
int | v0, | ||
int | v1, | ||
int | ref, | ||
int | pos | ||
) |
mesh | pointer toward the mesh structure. |
v0 | first extremity of the edge. |
v1 | second extremity of the edge. |
ref | edge reference. |
pos | edge position in the mesh. |
Set edges of extremities v0, v1 and reference ref at position pos in mesh structure
SUBROUTINE MMGS_SET_EDGE(mesh,v0,v1,ref,pos,retval)
MMG5_DATA_PTR_T,INTENT(INOUT) :: mesh
INTEGER, INTENT(IN) :: v0,v1,ref,pos
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_Set_inputMeshName | ( | MMG5_pMesh | mesh, |
const char * | meshin | ||
) |
mesh | pointer toward the mesh structure. |
meshin | input mesh name. |
Set the name of input mesh.
SUBROUTINE MMGS_SET_INPUTMESHNAME(mesh,meshin,strlen,retval)
MMG5_DATA_PTR_T, INTENT(INOUT) :: mesh
CHARACTER(LEN=*), INTENT(IN) :: meshin
INTEGER, INTENT(IN) :: strlen
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_Set_inputSolName | ( | MMG5_pMesh | mesh, |
MMG5_pSol | sol, | ||
const char * | solin | ||
) |
mesh | pointer toward the mesh structure. |
sol | pointer toward the sol structure. |
solin | name of the input solution file. |
Set the name of input solution file.
SUBROUTINE MMGS_SET_INPUTSOLNAME(mesh,sol,solin,strlen,retval)
MMG5_DATA_PTR_T, INTENT(INOUT) :: mesh,sol
CHARACTER(LEN=*), INTENT(IN) :: solin
INTEGER, INTENT(IN) :: strlen
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_Set_iparameter | ( | MMG5_pMesh | mesh, |
MMG5_pSol | sol, | ||
int | iparam, | ||
int | val | ||
) |
functions to set parameters
mesh | pointer toward the mesh structure. |
sol | pointer toward the sol structure. |
iparam | integer parameter to set (see MMGS_Param structure). |
val | value for the parameter. |
Set integer parameter iparam at value val.
SUBROUTINE MMGS_SET_IPARAMETER(mesh,sol,iparam,val,retval)
MMG5_DATA_PTR_T,INTENT(INOUT) :: mesh,sol
INTEGER, INTENT(IN) :: iparam,val
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_Set_localParameter | ( | MMG5_pMesh | mesh, |
MMG5_pSol | sol, | ||
int | typ, | ||
int | ref, | ||
double | hmin, | ||
double | hmax, | ||
double | hausd | ||
) |
mesh | pointer toward the mesh structure. |
sol | pointer toward the sol structure. |
typ | type of entity (triangle, edge,...). |
ref | reference of the entity. |
hmin | minimal edge size. |
hmax | maximal edge size. |
hausd | value of the Hausdorff number. |
Set local parameters: set the hausdorff value at hausd, the minmal edge size value at hmin and the maximal edge size value at hmax for all elements of type typ and reference ref.
SUBROUTINE MMGS_SET_LOCALPARAMETER(mesh,sol,typ,ref,hmin,hmax,hausd,retval)
MMG5_DATA_PTR_T,INTENT(INOUT) :: mesh,sol
INTEGER, INTENT(IN) :: typ,ref
REAL(KIND=8), INTENT(IN) :: hmin,hmax,hausd
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_Set_meshSize | ( | MMG5_pMesh | mesh, |
int | np, | ||
int | nt, | ||
int | na | ||
) |
mesh | pointer toward the mesh structure. |
np | number of vertices. |
nt | number of triangles. |
na | number of edges. |
Set the number of vertices, triangles and edges of the mesh and allocate the associated tables. If call twice, reset the whole mesh to realloc it at the new size
SUBROUTINE MMGS_SET_MESHSIZE(mesh,np,nt,na,retval)
MMG5_DATA_PTR_T,INTENT(INOUT) :: mesh
INTEGER :: np,nt,na
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_Set_normalAtVertex | ( | MMG5_pMesh | mesh, |
int | k, | ||
double | n0, | ||
double | n1, | ||
double | n2 | ||
) |
mesh | pointer toward the mesh structure. |
k | point index |
n0 | x componant of the normal at point k. |
n1 | y componant of the normal at point k. |
n2 | z componant of the normal at point k. |
Set normals (n0,n1,n2) at point k.
SUBROUTINE MMGS_SET_NORMALATVERTEX(mesh,k,n0,n1,n2,retval)
MMG5_DATA_PTR_T,INTENT(INOUT) :: mesh
INTEGER, INTENT(IN) :: k
REAL(KIND=8), INTENT(IN) :: n0,n1,n2
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_Set_outputMeshName | ( | MMG5_pMesh | mesh, |
const char * | meshout | ||
) |
mesh | pointer toward the mesh structure. |
meshout | name of the output mesh file. |
Set the name of output mesh file.
SUBROUTINE MMGS_SET_OUTPUTMESHNAME(mesh,meshout,strlen,retval)
MMG5_DATA_PTR_T, INTENT(INOUT) :: mesh
CHARACTER(LEN=*), INTENT(IN) :: meshout
INTEGER, INTENT(IN) :: strlen
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_Set_outputSolName | ( | MMG5_pMesh | mesh, |
MMG5_pSol | sol, | ||
const char * | solout | ||
) |
mesh | pointer toward the mesh structure. |
sol | pointer toward the sol structure. |
solout | name of the output solution file. |
Set the name of output solution file.
SUBROUTINE MMGS_SET_OUTPUTSOLNAME(mesh,sol,solout,strlen,retval)
MMG5_DATA_PTR_T, INTENT(INOUT) :: mesh,sol
CHARACTER(LEN=*), INTENT(IN) :: solout
INTEGER, INTENT(IN) :: strlen
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_Set_requiredEdge | ( | MMG5_pMesh | mesh, |
int | k | ||
) |
mesh | pointer toward the mesh structure. |
k | edge index. |
Set edge k as required.
SUBROUTINE MMGS_SET_REQUIREDEDGE(mesh,k,retval)
MMG5_DATA_PTR_T,INTENT(INOUT) :: mesh
INTEGER, INTENT(IN) :: k
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_Set_requiredTriangle | ( | MMG5_pMesh | mesh, |
int | k | ||
) |
mesh | pointer toward the mesh structure. |
k | triangle index. |
Set triangle k as required.
SUBROUTINE MMGS_SET_REQUIREDTRIANGLE(mesh,k,retval)
MMG5_DATA_PTR_T,INTENT(INOUT) :: mesh
INTEGER, INTENT(IN) :: k
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_Set_requiredVertex | ( | MMG5_pMesh | mesh, |
int | k | ||
) |
mesh | pointer toward the mesh structure. |
k | vertex index. |
Set point k as required.
SUBROUTINE MMGS_SET_REQUIREDVERTEX(mesh,k,retval)
MMG5_DATA_PTR_T,INTENT(INOUT) :: mesh
INTEGER, INTENT(IN) :: k
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_Set_ridge | ( | MMG5_pMesh | mesh, |
int | k | ||
) |
mesh | pointer toward the mesh structure. |
k | edge index. |
Set ridge at edge k.
SUBROUTINE MMGS_SET_RIDGE(mesh,k,retval)
MMG5_DATA_PTR_T,INTENT(INOUT) :: mesh
INTEGER, INTENT(IN) :: k
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_Set_scalarSol | ( | MMG5_pSol | met, |
double | s, | ||
int | pos | ||
) |
met | pointer toward the sol structure. |
s | solution scalar value. |
pos | position of the solution in the mesh. |
Set scalar value s at position pos in solution structure
SUBROUTINE MMGS_SET_SCALARSOL(met,s,pos,retval)
MMG5_DATA_PTR_T,INTENT(INOUT) :: met
REAL(KIND=8), INTENT(IN) :: s
INTEGER, INTENT(IN) :: pos
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_Set_scalarSols | ( | MMG5_pSol | met, |
double * | s | ||
) |
met | pointer toward the sol structure. |
s | table of the scalar solutions values. s[i-1] is the solution at vertex i. |
Set scalar solutions at mesh vertices.
SUBROUTINE MMGS_SET_SCALARSOLS(met,s,retval)
MMG5_DATA_PTR_T,INTENT(INOUT) :: met
REAL(KIND=8),DIMENSION(*), INTENT(IN) :: s
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_Set_solSize | ( | MMG5_pMesh | mesh, |
MMG5_pSol | sol, | ||
int | typEntity, | ||
int | np, | ||
int | typSol | ||
) |
mesh | pointer toward the mesh structure. |
sol | pointer toward the sol structure. |
typEntity | type of solutions entities (vertices, triangles...). |
np | number of solutions. |
typSol | type of solution (scalar, vectorial...). |
Set the solution number, dimension and type.
SUBROUTINE MMGS_SET_SOLSIZE(mesh,sol,typEntity,np,typSol,retval)
MMG5_DATA_PTR_T,INTENT(INOUT) :: mesh,sol
INTEGER, INTENT(IN) :: typEntity,np,typSol
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_Set_tensorSol | ( | MMG5_pSol | met, |
double | m11, | ||
double | m12, | ||
double | m13, | ||
double | m22, | ||
double | m23, | ||
double | m33, | ||
int | pos | ||
) |
met | pointer toward the sol structure. |
m11 | value of the tensorial solution at position (1,1) in the tensor. |
m12 | value of the tensorial solution at position (1,2) in the tensor. |
m13 | value of the tensorial solution at position (1,3) in the tensor. |
m22 | value of the tensorial solution at position (2,2) in the tensor. |
m23 | value of the tensorial solution at position (2,3) in the tensor. |
m33 | value of the tensorial solution at position (3,3) in the tensor. |
pos | position of the solution in the mesh (begin to 1). |
Set tensorial values at position pos in solution structure.
SUBROUTINE MMGS_SET_TENSORSOL(met,m11,m12,m13,m22,m23,m33,pos,retval)
MMG5_DATA_PTR_T,INTENT(INOUT) :: met
REAL(KIND=8), INTENT(IN) :: m11,m12,m13,m22,m23,m33
INTEGER, INTENT(IN) :: pos
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_Set_tensorSols | ( | MMG5_pSol | met, |
double * | sols | ||
) |
met | pointer toward the sol structure. |
sols | table of the tensorial solutions. sols[6*(i-1)]@6 is the solution at vertex i |
Set tensorial values at position pos in solution structure.
SUBROUTINE MMGS_SET_TENSORSOLS(met,sols,retval)
MMG5_DATA_PTR_T,INTENT(INOUT) :: met
REAL(KIND=8),DIMENSION(*), INTENT(IN) :: sols
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_Set_triangle | ( | MMG5_pMesh | mesh, |
int | v0, | ||
int | v1, | ||
int | v2, | ||
int | ref, | ||
int | pos | ||
) |
mesh | pointer toward the mesh structure. |
v0 | first vertex of triangle. |
v1 | second vertex of triangle. |
v2 | third vertex of triangle. |
ref | triangle reference. |
pos | triangle position in the mesh. |
Set triangle of vertices v0, v1, v2 and reference ref at position pos in mesh structure.
SUBROUTINE MMGS_SET_TRIANGLE(mesh,v0,v1,v2,ref,pos,retval)
MMG5_DATA_PTR_T,INTENT(INOUT) :: mesh
INTEGER, INTENT(IN) :: v0,v1,v2,ref,pos
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_Set_triangles | ( | MMG5_pMesh | mesh, |
int * | tria, | ||
int * | refs | ||
) |
mesh | pointer toward the mesh structure. |
tria | pointer toward the table of the tria vertices Vertices of the ![]() |
refs | pointer toward the table of the triangle references. refs[i-1] is the ref of the ![]() |
Set vertices and references of the mesh triangles.
! SUBROUTINE MMGS_SET_TRIANGLES(mesh,tria,refs,retval)
! MMG5_DATA_PTR_T,INTENT(INOUT) :: mesh
! INTEGER,DIMENSION(*), INTENT(IN) :: tria,refs
! INTEGER, INTENT(OUT) :: retval
! END SUBROUTINE
int MMGS_Set_vectorSol | ( | MMG5_pSol | met, |
double | vx, | ||
double | vy, | ||
double | vz, | ||
int | pos | ||
) |
met | pointer toward the sol structure. |
vx | x value of the vectorial solution. |
vy | y value of the vectorial solution. |
vz | z value of the vectorial solution. |
pos | position of the solution in the mesh (begin to 1). |
Set vectorial value at position pos in solution structure.
SUBROUTINE MMGS_SET_VECTORSOL(met,vx,vy,vz,pos,retval)
MMG5_DATA_PTR_T,INTENT(INOUT) :: met
REAL(KIND=8), INTENT(IN) :: vx,vy,vz
INTEGER, INTENT(IN) :: pos
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_Set_vectorSols | ( | MMG5_pSol | met, |
double * | sols | ||
) |
met | pointer toward the sol structure. |
sols | table of the vectorial solutions sols[3*(i-1)]@3 is the solution at vertex i |
Set vectorial solutions at mesh vertices
SUBROUTINE MMGS_SET_VECTORSOLS(met,sols,retval)
MMG5_DATA_PTR_T,INTENT(INOUT) :: met
REAL(KIND=8),DIMENSION(*), INTENT(IN) :: sols
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_Set_vertex | ( | MMG5_pMesh | mesh, |
double | c0, | ||
double | c1, | ||
double | c2, | ||
int | ref, | ||
int | pos | ||
) |
mesh | pointer toward the mesh structure. |
c0 | coordinate of the point along the first dimension. |
c1 | coordinate of the point along the second dimension. |
c2 | coordinate of the point along the third dimension. |
ref | point reference. |
pos | position of the point in the mesh. |
Set vertex of coordinates c0, c1,c2 and reference ref at position pos in mesh structure
SUBROUTINE MMGS_SET_VERTEX(mesh,c0,c1,c2,ref,pos,retval)
MMG5_DATA_PTR_T,INTENT(INOUT) :: mesh
REAL(KIND=8), INTENT(IN) :: c0,c1,c2
INTEGER, INTENT(IN) :: ref,pos
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_Set_vertices | ( | MMG5_pMesh | mesh, |
double * | vertices, | ||
int * | refs | ||
) |
mesh | pointer toward the mesh structure. |
vertices | table of the points coor. The coordinates of the ![]() |
refs | table of points references. The ref of the ![]() |
Set vertices coordinates and references in mesh structure
! SUBROUTINE MMGS_SET_VERTICES(mesh,vertices,refs,retval)
! MMG5_DATA_PTR_T,INTENT(INOUT) :: mesh
! REAL(KIND=8), DIMENSION(*),INTENT(IN) :: vertices
! INTEGER,DIMENSION(*), INTENT(IN) :: refs
! INTEGER, INTENT(OUT) :: retval
! END SUBROUTINE
void MMGS_setfunc | ( | MMG5_pMesh | mesh, |
MMG5_pSol | met | ||
) |
To associate function pointers without calling MMGS_mmgslib
mesh | pointer toward the mesh structure (unused). |
met | pointer toward the sol structure (unused). |
Set function pointers for caltet, lenedg, defsiz and gradsiz.
SUBROUTINE MMGS_SETFUNC(mesh,met)
MMG5_DATA_PTR_T, INTENT(INOUT) :: mesh,met
END SUBROUTINE
int MMGS_stockOptions | ( | MMG5_pMesh | mesh, |
MMG5_Info * | info | ||
) |
mesh | pointer toward the mesh structure. |
info | pointer toward the info structure. |
Store the info structure in the mesh structure.
SUBROUTINE MMGS_STOCKOPTIONS(mesh,info,retval)
MMG5_DATA_PTR_T, INTENT(INOUT) :: mesh,info
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE
int MMGS_usage | ( | char * | prog | ) |
prog | pointer toward the program name. |
Print help for mmgs options.
SUBROUTINE MMGS_USAGE(prog,strlen,retval)
CHARACTER(LEN=*), INTENT(IN) :: prog
INTEGER, INTENT(IN) :: strlen
INTEGER, INTENT(OUT) :: retval
END SUBROUTINE