|
| | FORTRAN_VARIADIC (MMG2D_INIT_MESH, mmg2d_init_mesh,(const int starter,...), va_list argptr;int ier;va_start(argptr, starter);ier=_MMG2D_Init_mesh_var(argptr);va_end(argptr);if(!ier) exit(EXIT_FAILURE);return;) FORTRAN_NAME(MMG2D_INIT_FILENAMES |
| |
| | FORTRAN_NAME (MMG2D_INIT_PARAMETERS, mmg2d_init_parameters,(MMG5_pMesh *mesh),(mesh)) |
| |
| | FORTRAN_NAME (MMG2D_SET_INPUTMESHNAME, mmg2d_set_inputmeshname,(MMG5_pMesh *mesh, char *meshin, int *strlen, int *retval),(mesh, meshin, strlen, retval)) |
| |
| | FORTRAN_NAME (MMG2D_SET_INPUTSOLNAME, mmg2d_set_inputsolname,(MMG5_pMesh *mesh, MMG5_pSol *sol, char *solin, int *strlen, int *retval),(mesh, sol, solin, strlen, retval)) |
| |
| | FORTRAN_NAME (MMG2D_SET_OUTPUTMESHNAME, mmg2d_set_outputmeshname,(MMG5_pMesh *mesh, char *meshout, int *strlen, int *retval),(mesh, meshout, strlen, retval)) |
| |
| | FORTRAN_NAME (MMG2D_SET_OUTPUTSOLNAME, mmg2d_set_outputsolname,(MMG5_pMesh *mesh, MMG5_pSol *sol, char *solout, int *strlen, int *retval),(mesh, sol, solout, strlen, retval)) |
| |
| | FORTRAN_NAME (MMG2D_SET_IPARAMETER, mmg2d_set_iparameter,(MMG5_pMesh *mesh, MMG5_pSol *sol, int *iparam, int *val, int *retval),(mesh, sol, iparam, val, retval)) |
| |
| | FORTRAN_NAME (MMG2D_SET_DPARAMETER, mmg2d_set_dparameter,(MMG5_pMesh *mesh, MMG5_pSol *sol, int *dparam, double *val, int *retval),(mesh, sol, dparam, val, retval)) |
| |
| | FORTRAN_NAME (MMG2D_SET_MESH_MMG2D_SIZE, mmg2d_set_meshsize,(MMG5_pMesh *mesh, int *np, int *nt, int *na, int *retval),(mesh, np, nt, na, retval)) |
| |
| | FORTRAN_NAME (MMG2D_SET_SOL_MMG2D_SIZE, mmg2d_set_solsize,(MMG5_pMesh *mesh, MMG5_pSol *sol, int *typEntity, int *np, int *typSol, int *retval),(mesh, sol, typEntity, np, typSol, retval)) |
| |
| | FORTRAN_NAME (MMG2D_GET_SOL_MMG2D_SIZE, mmg2d_get_solsize,(MMG5_pMesh *mesh, MMG5_pSol *sol, int *typEntity, int *np, int *typSol, int *retval),(mesh, sol, typEntity, np, typSol, retval)) |
| |
| | FORTRAN_NAME (MMG2D_SET_VERTEX, mmg2d_set_vertex,(MMG5_pMesh *mesh, double *c0, double *c1, int *ref, int *pos, int *retval),(mesh, c0, c1, ref, pos, retval)) |
| |
| | FORTRAN_NAME (MMG2D_SET_CORNER, mmg2d_set_corner,(MMG5_pMesh *mesh, int *k, int *retval),(mesh, k, retval)) |
| |
| | FORTRAN_NAME (MMG2D_SET_REQUIREDVERTEX, mmg2d_set_requiredvertex,(MMG5_pMesh *mesh, int *k, int *retval),(mesh, k, retval)) |
| |
| | FORTRAN_NAME (MMG2D_GET_VERTEX, mmg2d_get_vertex,(MMG5_pMesh *mesh, double *c0, double *c1, int *ref, int *isCorner, int *isRequired, int *retval),(mesh, c0, c1, ref, isCorner, isRequired, retval)) |
| |
| | FORTRAN_NAME (MMG2D_SET_VERTICES, mmg2d_set_vertices,(MMG5_pMesh *mesh, double *vertices, int *refs, int *retval),(mesh, vertices, refs, retval)) |
| |
| | FORTRAN_NAME (MMG2D_GET_VERTICES, mmg2d_get_vertices,(MMG5_pMesh *mesh, double *vertices, int *refs, int *areCorners, int *areRequired, int *retval),(mesh, vertices, refs, areCorners, areRequired, retval)) |
| |
| | FORTRAN_NAME (MMG2D_SET_TRIANGLE, mmg2d_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 (MMG2D_SET_REQUIREDTRIANGLE, mmg2d_set_requiredtriangle,(MMG5_pMesh *mesh, int *k, int *retval),(mesh, k, retval)) |
| |
| | FORTRAN_NAME (MMG2D_GET_TRIANGLE, mmg2d_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 (MMG2D_SET_TRIANGLES, mmg2d_set_triangles,(MMG5_pMesh *mesh, int *tria, int *refs, int *retval),(mesh, tria, refs, retval)) |
| |
| | FORTRAN_NAME (MMG2D_GET_TRIANGLES, mmg2d_get_triangles,(MMG5_pMesh *mesh, int *tria, int *refs, int *areRequired, int *retval),(mesh, tria, refs, areRequired, retval)) |
| |
| | FORTRAN_NAME (MMG2D_SET_EDGE, mmg2d_set_edge,(MMG5_pMesh *mesh, int *v0, int *v1, int *ref, int *pos, int *retval),(mesh, v0, v1, ref, pos, retval)) |
| |
| | FORTRAN_NAME (MMG2D_SET_REQUIREDEDGE, mmg2d_set_requirededge,(MMG5_pMesh *mesh, int *k, int *retval),(mesh, k, retval)) |
| |
| | FORTRAN_NAME (MMG2D_SET_PARALLELEDGE, mmg2d_set_paralleledge,(MMG5_pMesh *mesh, int *k, int *retval),(mesh, k, retval)) |
| |
| | FORTRAN_NAME (MMG2D_GET_EDGE, mmg2d_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 (MMG2D_GET_MESH_MMG2D_SIZE, mmg2d_get_meshsize,(MMG5_pMesh *mesh, int *np, int *nt, int *na, int *retval),(mesh, np, nt, na, retval)) |
| |
| | FORTRAN_NAME (MMG2D_SET_SCALARSOL, mmg2d_set_scalarsol,(MMG5_pSol *met, double *s, int *pos, int *retval),(met, s, pos, retval)) |
| |
| | FORTRAN_NAME (MMG2D_GET_SCALARSOL, mmg2d_get_scalarsol,(MMG5_pSol *met, double *s, int *retval),(met, s, retval)) |
| |
| | FORTRAN_NAME (MMG2D_SET_SCALARSOLS, mmg2d_set_scalarsols,(MMG5_pSol *met, double *s, int *retval),(met, s, retval)) |
| |
| | FORTRAN_NAME (MMG2D_GET_SCALARSOLS, mmg2d_get_scalarsols,(MMG5_pSol *met, double *s, int *retval),(met, s, retval)) |
| |
| | FORTRAN_NAME (MMG2D_SET_VECTORSOL, mmg2d_set_vectorsol,(MMG5_pSol *met, double *vx, double *vy, int *pos, int *retval),(met, vx, vy, pos, retval)) |
| |
| | FORTRAN_NAME (MMG2D_GET_VECTORSOL, mmg2d_get_vectorsol,(MMG5_pSol *met, double *vx, double *vy, int *retval),(met, vx, vy, retval)) |
| |
| | FORTRAN_NAME (MMG2D_SET_VECTORSOLS, mmg2d_set_vectorsols,(MMG5_pSol *met, double *sols, int *retval),(met, sols, retval)) |
| |
| | FORTRAN_NAME (MMG2D_GET_VECTORSOLS, mmg2d_get_vectorsols,(MMG5_pSol *met, double *sols, int *retval),(met, sols, retval)) |
| |
| | FORTRAN_NAME (MMG2D_SET_TENSORSOL, mmg2d_set_tensorsol,(MMG5_pSol *met, double *m11, double *m12, double *m22, int *pos, int *retval),(met, m11, m12, m22, pos, retval)) |
| |
| | FORTRAN_NAME (MMG2D_GET_TENSORSOL, mmg2d_get_tensorsol,(MMG5_pSol *met, double *m11, double *m12, double *m22, int *retval),(met, m11, m12, m22, retval)) |
| |
| | FORTRAN_NAME (MMG2D_SET_TENSORSOLS, mmg2d_set_tensorsols,(MMG5_pSol *met, double *sols, int *retval),(met, sols, retval)) |
| |
| | FORTRAN_NAME (MMG2D_GET_TENSORSOLS, mmg2d_get_tensorsols,(MMG5_pSol *met, double *sols, int *retval),(met, sols, retval)) |
| |
| | FORTRAN_NAME (MMG2D_CHK_MESHDATA, mmg2d_chk_meshdata,(MMG5_pMesh *mesh, MMG5_pSol *met, int *retval),(mesh, met, retval)) |
| |
| | FORTRAN_VARIADIC (MMG2D_FREE_ALL, mmg2d_free_all,(const int starter,...), va_list argptr;int ier;va_start(argptr, starter);ier=_MMG2D_Free_all_var(argptr);va_end(argptr);if(!ier) exit(EXIT_FAILURE);return;) FORTRAN_VARIADIC(MMG2D_FREE_STRUCTURES |
| |
| | va_start (argptr, starter) |
| |
| | va_end (argptr) |
| |
| | if (!ier) exit(EXIT_FAILURE) |
| |
| | FORTRAN_VARIADIC (MMG2D_FREE_NAMES, mmg2d_free_names,(const int starter,...), va_list argptr;int ier;va_start(argptr, starter);ier=_MMG2D_Free_names_var(argptr);va_end(argptr);if(!ier) exit(EXIT_FAILURE);return;) FORTRAN_NAME(MMG2D_LOADMESH |
| |
| | strncpy (tmp, meshin, *strlen) |
| |
| | _MMG5_SAFE_FREE (tmp) |
| |
| | FORTRAN_NAME (MMG2D_LOADMSHMESH, mmg2d_loadmshmesh,(MMG5_pMesh *mesh, MMG5_pSol *sol, char *filename, int *strlen, int *retval),(mesh, sol, filename, strlen, retval)) |
| |
| | FORTRAN_NAME (MMG2D_LOADMSHMESH_AND_ALLDATA, mmg2d_loadmshmesh_and_alldata,(MMG5_pMesh *mesh, MMG5_pSol *sol, char *filename, int *strlen, int *retval),(mesh, sol, filename, strlen, retval)) |
| |
| | FORTRAN_NAME (MMG2D_SAVEMESH, mmg2d_savemesh,(MMG5_pMesh *mesh, char *meshin, int *strlen, int *retval),(mesh, meshin, strlen, retval)) |
| |
| | FORTRAN_NAME (MMG2D_SAVEMSHMESH, mmg2d_savemshmesh,(MMG5_pMesh *mesh, MMG5_pSol *sol, char *filename, int *strlen, int *retval),(mesh, sol, filename, strlen, retval)) |
| |
| | FORTRAN_NAME (MMG2D_SAVEMSHMESH_AND_ALLDATA, mmg2d_savemshmesh_and_alldata,(MMG5_pMesh *mesh, MMG5_pSol *sol, char *filename, int *strlen, int *retval),(mesh, sol, filename, strlen, retval)) |
| |
| | FORTRAN_NAME (MMG2D_LOADSOL, mmg2d_loadsol,(MMG5_pMesh *mesh, MMG5_pSol *met, char *meshin, int *strlen, int *retval),(mesh, met, meshin, strlen, retval)) |
| |
| | FORTRAN_NAME (MMG2D_LOADALLSOLS, mmg2d_loadallsols,(MMG5_pMesh *mesh, MMG5_pSol *sol, char *meshin, int *strlen, int *retval),(mesh, sol, meshin, strlen, retval)) |
| |
| | FORTRAN_NAME (MMG2D_SAVESOL, mmg2d_savesol,(MMG5_pMesh *mesh, MMG5_pSol *met, char *meshin, int *strlen, int *retval),(mesh, met, meshin, strlen, retval)) |
| |
| | FORTRAN_NAME (MMG2D_SAVEALLSOLS, mmg2d_saveallsols,(MMG5_pMesh *mesh, MMG5_pSol *sol, char *meshin, int *strlen, int *retval),(mesh, sol, meshin, strlen, retval)) |
| |