|
| FORTRAN_VARIADIC (MMGS_INIT_MESH, mmgs_init_mesh,(const int starter,...), va_list argptr;int ier;va_start(argptr, starter);ier=MMGS_Init_mesh_var(argptr);va_end(argptr);if(!ier) exit(EXIT_FAILURE);return;) FORTRAN_NAME(MMGS_INIT_PARAMETERS |
|
| FORTRAN_NAME (MMGS_SET_INPUTMESHNAME, mmgs_set_inputmeshname,(MMG5_pMesh *mesh, char *meshin, int *strlen0, int *retval),(mesh, meshin, strlen0, retval)) |
|
| FORTRAN_NAME (MMGS_SET_INPUTSOLNAME, mmgs_set_inputsolname,(MMG5_pMesh *mesh, MMG5_pSol *sol, char *solin, int *strlen0, int *retval),(mesh, sol, solin, strlen0, retval)) |
|
| FORTRAN_NAME (MMGS_SET_OUTPUTMESHNAME, mmgs_set_outputmeshname,(MMG5_pMesh *mesh, char *meshout, int *strlen0, int *retval),(mesh, meshout, strlen0, retval)) |
|
| FORTRAN_NAME (MMGS_SET_OUTPUTSOLNAME, mmgs_set_outputsolname,(MMG5_pMesh *mesh, MMG5_pSol *sol, char *solout, int *strlen0, int *retval),(mesh, sol, solout, strlen0, retval)) |
|
| FORTRAN_NAME (MMGS_SET_SOLSIZE, mmgs_set_solsize,(MMG5_pMesh *mesh, MMG5_pSol *sol, int *typEntity, int *np, int *typSol, int *retval),(mesh, sol, typEntity, np, typSol, retval)) |
|
| FORTRAN_NAME (MMGS_SET_SOLSATVERTICESSIZE, mmgs_set_solsatverticessize,(MMG5_pMesh *mesh, MMG5_pSol *sol, int *nsols, int *nentities, int *typSol, int *retval),(mesh, sol, nsols, nentities, typSol, retval)) |
|
| FORTRAN_NAME (MMGS_SET_MESHSIZE, mmgs_set_meshsize,(MMG5_pMesh *mesh, int *np, int *nt, int *na, int *retval),(mesh, np, nt, na, retval)) |
|
| FORTRAN_NAME (MMGS_GET_SOLSIZE, mmgs_get_solsize,(MMG5_pMesh *mesh, MMG5_pSol *sol, int *typEntity, int *np, int *typSol, int *retval),(mesh, sol, typEntity, np, typSol, retval)) |
|
| FORTRAN_NAME (MMGS_GET_SOLSATVERTICESSIZE, mmgs_get_solsatverticessize,(MMG5_pMesh *mesh, MMG5_pSol *sol, int *nsols, int *nentities, int *typSol, int *retval),(mesh, sol, nsols, nentities, typSol, retval)) |
|
| FORTRAN_NAME (MMGS_GET_MESHSIZE, mmgs_get_meshsize,(MMG5_pMesh *mesh, int *np, int *nt, int *na, int *retval),(mesh, np, nt, na, retval)) |
|
| FORTRAN_NAME (MMGS_SET_VERTEX, mmgs_set_vertex,(MMG5_pMesh *mesh, double *c0, double *c1, double *c2, int *ref, int *pos, int *retval),(mesh, c0, c1, c2, ref, pos, retval)) |
|
| FORTRAN_NAME (MMGS_GET_VERTEX, mmgs_get_vertex,(MMG5_pMesh *mesh, double *c0, double *c1, double *c2, int *ref, int *isCorner, int *isRequired, int *retval),(mesh, c0, c1, c2, ref, isCorner, isRequired, retval)) |
|
| FORTRAN_NAME (MMGS_SET_VERTICES, mmgs_set_vertices,(MMG5_pMesh *mesh, double *vertices, int *refs, int *retval),(mesh, vertices, refs, retval)) |
|
| FORTRAN_NAME (MMGS_GET_VERTICES, mmgs_get_vertices,(MMG5_pMesh *mesh, double *vertices, int *refs, int *areCorners, int *areRequired, int *retval),(mesh, vertices, refs, areCorners, areRequired, retval)) |
|
| FORTRAN_NAME (MMGS_SET_TRIANGLE, mmgs_set_triangle,(MMG5_pMesh *mesh, int *v0, int *v1, int *v2, int *ref, int *pos, int *retval),(mesh, v0, v1, v2, ref, pos, retval)) |
|
| FORTRAN_NAME (MMGS_GET_TRIANGLE, mmgs_get_triangle,(MMG5_pMesh *mesh, int *v0, int *v1, int *v2, int *ref, int *isRequired, int *retval),(mesh, v0, v1, v2, ref, isRequired, retval)) |
|
| FORTRAN_NAME (MMGS_SET_TRIANGLES, mmgs_set_triangles,(MMG5_pMesh *mesh, int *tria, int *refs, int *retval),(mesh, tria, refs, retval)) |
|
| FORTRAN_NAME (MMGS_GET_TRIANGLES, mmgs_get_triangles,(MMG5_pMesh *mesh, int *tria, int *refs, int *areRequired, int *retval),(mesh, tria, refs, areRequired, retval)) |
|
| FORTRAN_NAME (MMGS_SET_EDGE, mmgs_set_edge,(MMG5_pMesh *mesh, int *v0, int *v1, int *ref, int *pos, int *retval),(mesh, v0, v1, ref, pos, retval)) |
|
| FORTRAN_NAME (MMGS_GET_EDGE, mmgs_get_edge,(MMG5_pMesh *mesh, int *e0, int *e1, int *ref, int *isRidge, int *isRequired, int *retval),(mesh, e0, e1, ref, isRidge, isRequired, retval)) |
|
| FORTRAN_NAME (MMGS_SET_EDGES, mmgs_set_edges,(MMG5_pMesh *mesh, int *edges, int *refs, int *retval),(mesh, edges, refs, retval)) |
|
| FORTRAN_NAME (MMGS_GET_EDGES, mmgs_get_edges,(MMG5_pMesh *mesh, int *edges, int *refs, int *areRidges, int *areRequired, int *retval),(mesh, edges, refs, areRidges, areRequired, retval)) |
|
| FORTRAN_NAME (MMGS_SET_CORNER, mmgs_set_corner,(MMG5_pMesh *mesh, int *k, int *retval),(mesh, k, retval)) |
|
| FORTRAN_NAME (MMGS_SET_REQUIREDVERTEX, mmgs_set_requiredvertex,(MMG5_pMesh *mesh, int *k, int *retval),(mesh, k, retval)) |
|
| FORTRAN_NAME (MMGS_SET_REQUIREDTRIANGLE, mmgs_set_requiredtriangle,(MMG5_pMesh *mesh, int *k, int *retval),(mesh, k, retval)) |
|
| FORTRAN_NAME (MMGS_SET_RIDGE, mmgs_set_ridge,(MMG5_pMesh *mesh, int *k, int *retval),(mesh, k, retval)) |
|
| FORTRAN_NAME (MMGS_SET_REQUIREDEDGE, mmgs_set_requirededge,(MMG5_pMesh *mesh, int *k, int *retval),(mesh, k, retval)) |
|
| FORTRAN_NAME (MMGS_SET_NORMALATVERTEX, mmgs_set_normalatvertex,(MMG5_pMesh *mesh, int *k, double *n0, double *n1, double *n2, int *retval),(mesh, k, n0, n1, n2, retval)) |
|
| FORTRAN_NAME (MMGS_GET_NORMALATVERTEX, mmgs_get_normalatvertex,(MMG5_pMesh *mesh, int *k, double *n0, double *n1, double *n2, int *retval),(mesh, k, n0, n1, n2, retval)) |
|
| FORTRAN_NAME (MMGS_SET_SCALARSOL, mmgs_set_scalarsol,(MMG5_pSol *met, double *s, int *pos, int *retval),(met, s, pos, retval)) |
|
| FORTRAN_NAME (MMGS_GET_SCALARSOL, mmgs_get_scalarsol,(MMG5_pSol *met, double *s, int *retval),(met, s, retval)) |
|
| FORTRAN_NAME (MMGS_SET_SCALARSOLS, mmgs_set_scalarsols,(MMG5_pSol *met, double *s, int *retval),(met, s, retval)) |
|
| FORTRAN_NAME (MMGS_GET_SCALARSOLS, mmgs_get_scalarsols,(MMG5_pSol *met, double *s, int *retval),(met, s, retval)) |
|
| FORTRAN_NAME (MMGS_SET_VECTORSOL, mmgs_set_vectorsol,(MMG5_pSol *met, double *vx, double *vy, double *vz, int *pos, int *retval),(met, vx, vy, vz, pos, retval)) |
|
| FORTRAN_NAME (MMGS_GET_VECTORSOL, mmgs_get_vectorsol,(MMG5_pSol *met, double *vx, double *vy, double *vz, int *retval),(met, vx, vy, vz, retval)) |
|
| FORTRAN_NAME (MMGS_SET_VECTORSOLS, mmgs_set_vectorsols,(MMG5_pSol *met, double *sols, int *retval),(met, sols, retval)) |
|
| FORTRAN_NAME (MMGS_GET_VECTORSOLS, mmgs_get_vectorsols,(MMG5_pSol *met, double *sols, int *retval),(met, sols, retval)) |
|
| FORTRAN_NAME (MMGS_SET_TENSORSOL, mmgs_set_tensorsol,(MMG5_pSol *met, double *m11, double *m12, double *m13, double *m22, double *m23, double *m33, int *pos, int *retval),(met, m11, m12, m13, m22, m23, m33, pos, retval)) |
|
| FORTRAN_NAME (MMGS_GET_TENSORSOL, mmgs_get_tensorsol,(MMG5_pSol *met, double *m11, double *m12, double *m13, double *m22, double *m23, double *m33, int *retval),(met, m11, m12, m13, m22, m23, m33, retval)) |
|
| FORTRAN_NAME (MMGS_SET_TENSORSOLS, mmgs_set_tensorsols,(MMG5_pSol *met, double *sols, int *retval),(met, sols, retval)) |
|
| FORTRAN_NAME (MMGS_GET_TENSORSOLS, mmgs_get_tensorsols,(MMG5_pSol *met, double *sols, int *retval),(met, sols, retval)) |
|
| FORTRAN_NAME (MMGS_SET_ITHSOL_INSOLSATVERTICES, mmgs_set_ithsol_insolsatvertices,(MMG5_pSol *sol, int *i, double *s, int *pos, int *retval),(sol, i, s, pos, retval)) |
|
| FORTRAN_NAME (MMGS_GET_ITHSOL_INSOLSATVERTICES, mmgs_get_ithsol_insolsatvertices,(MMG5_pSol *sol, int *i, double *s, int *pos, int *retval),(sol, i, s, pos, retval)) |
|
| FORTRAN_NAME (MMGS_SET_ITHSOLS_INSOLSATVERTICES, mmgs_set_ithsols_insolsatvertices,(MMG5_pSol *sol, int *i, double *s, int *retval),(sol, i, s, retval)) |
|
| FORTRAN_NAME (MMGS_GET_ITHSOLS_INSOLSATVERTICES, mmgs_get_ithsols_insolsatvertices,(MMG5_pSol *sol, int *i, double *s, int *retval),(sol, i, s, retval)) |
|
| FORTRAN_NAME (MMGS_CHK_MESHDATA, mmgs_chk_meshdata,(MMG5_pMesh *mesh, MMG5_pSol *met, int *retval),(mesh, met, retval)) |
|
| FORTRAN_NAME (MMGS_SET_IPARAMETER, mmgs_set_iparameter,(MMG5_pMesh *mesh, MMG5_pSol *sol, int *iparam, int *val, int *retval),(mesh, sol, iparam, val, retval)) |
|
| FORTRAN_NAME (MMGS_GET_IPARAMETER, mmgs_get_iparameter,(MMG5_pMesh *mesh, int *iparam, int *retval),(mesh, iparam, retval)) |
|
| FORTRAN_NAME (MMGS_SET_DPARAMETER, mmgs_set_dparameter,(MMG5_pMesh *mesh, MMG5_pSol *sol, int *dparam, double *val, int *retval),(mesh, sol, dparam, val, retval)) |
|
| FORTRAN_NAME (MMGS_SET_LOCALPARAMETER, mmgs_set_localparameter,(MMG5_pMesh *mesh, MMG5_pSol *sol, int *typ, int *ref, double *hmin, double *hmax, double *hausd, int *retval),(mesh, sol, typ, ref, hmin, hmax, hausd, retval)) |
|
| FORTRAN_VARIADIC (MMGS_FREE_ALL, mmgs_free_all,(const int starter,...), va_list argptr;int ier;va_start(argptr, starter);ier=MMGS_Free_all_var(argptr);va_end(argptr);if(!ier) exit(EXIT_FAILURE);return;) FORTRAN_VARIADIC(MMGS_FREE_STRUCTURES |
|
| va_start (argptr, starter) |
|
| va_end (argptr) |
|
| if (!ier) exit(EXIT_FAILURE) |
|
| FORTRAN_VARIADIC (MMGS_FREE_NAMES, mmgs_free_names,(const int starter,...), va_list argptr;int ier;va_start(argptr, starter);ier=MMGS_Free_names_var(argptr);va_end(argptr);if(!ier) exit(EXIT_FAILURE);return;) FORTRAN_NAME(MMGS_LOADMESH |
|
| MMG5_SAFE_MALLOC (tmp, *strlen0+1, char, return) |
|
| strncpy (tmp, meshin, *strlen0) |
|
| MMG5_SAFE_FREE (tmp) |
|
| FORTRAN_NAME (MMGS_LOADMSHMESH, mmgs_loadmshmesh,(MMG5_pMesh *mesh, MMG5_pSol *sol, char *filename, int *strlen0, int *retval),(mesh, sol, filename, strlen0, retval)) |
|
| FORTRAN_NAME (MMGS_LOADMSHMESH_AND_ALLDATA, mmgs_loadmshmesh_and_alldata,(MMG5_pMesh *mesh, MMG5_pSol *sol, char *filename, int *strlen0, int *retval),(mesh, sol, filename, strlen0, retval)) |
|
| FORTRAN_NAME (MMGS_LOADSOL, mmgs_loadsol,(MMG5_pMesh *mesh, MMG5_pSol *met, char *meshin, int *strlen0, int *retval),(mesh, met, meshin, strlen0, retval)) |
|
| FORTRAN_NAME (MMGS_LOADALLSOLS, mmgs_loadallsols,(MMG5_pMesh *mesh, MMG5_pSol *sol, char *meshin, int *strlen0, int *retval),(mesh, sol, meshin, strlen0, retval)) |
|
| FORTRAN_NAME (MMGS_SAVEMESH, mmgs_savemesh,(MMG5_pMesh *mesh, char *meshin, int *strlen0, int *retval),(mesh, meshin, strlen0, retval)) |
|
| FORTRAN_NAME (MMGS_SAVEMSHMESH, mmgs_savemshmesh,(MMG5_pMesh *mesh, MMG5_pSol *sol, char *filename, int *strlen0, int *retval),(mesh, sol, filename, strlen0, retval)) |
|
| FORTRAN_NAME (MMGS_SAVESOL, mmgs_savesol,(MMG5_pMesh *mesh, MMG5_pSol *met, char *meshin, int *strlen0, int *retval),(mesh, met, meshin, strlen0, retval)) |
|
| FORTRAN_NAME (MMGS_SAVEALLSOLS, mmgs_saveallsols,(MMG5_pMesh *mesh, MMG5_pSol *sol, char *filename, int *strlen0, int *retval),(mesh, sol, filename, strlen0, retval)) |
|