Fortran API functions for MMG2D library. More...

#include "libmmg2d.h"
#include "libmmg2d_private.h"

Include dependency graph for API_functionsf_2d.c:

Functions
	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 strlen0, int retval),(mesh, meshin, strlen0, retval))

	FORTRAN_NAME (MMG2D_SET_INPUTSOLNAME, mmg2d_set_inputsolname,(MMG5_pMesh mesh, MMG5_pSol sol, char solin, int strlen0, int *retval),(mesh, sol, solin, strlen0, retval))

	FORTRAN_NAME (MMG2D_SET_INPUTPARAMNAME, mmg2d_set_inputparamname,(MMG5_pMesh mesh, char fparamin, int strlen0, int retval),(mesh, fparamin, strlen0, retval))

	FORTRAN_NAME (MMG2D_SET_OUTPUTMESHNAME, mmg2d_set_outputmeshname,(MMG5_pMesh mesh, char meshout, int strlen0, int retval),(mesh, meshout, strlen0, retval))

	FORTRAN_NAME (MMG2D_SET_OUTPUTSOLNAME, mmg2d_set_outputsolname,(MMG5_pMesh mesh, MMG5_pSol sol, char solout, int strlen0, int *retval),(mesh, sol, solout, strlen0, retval))

	FORTRAN_NAME (MMG2D_SET_IPARAMETER, mmg2d_set_iparameter,(MMG5_pMesh mesh, MMG5_pSol sol, int iparam, MMG5_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_LOCALPARAMETER, mmg2d_set_localparameter,(MMG5_pMesh mesh, MMG5_pSol sol, int typ, MMG5_int ref, double hmin, double hmax, double hausd, int retval),(mesh, sol, typ, ref, hmin, hmax, hausd, retval))

	FORTRAN_NAME (MMG2D_SET_MULTIMAT, mmg2d_set_multimat,(MMG5_pMesh mesh, MMG5_pSol sol, MMG5_int ref, int split, MMG5_int rin, MMG5_int rex, int *retval),(mesh, sol, ref, split, rin, rex, retval))

	FORTRAN_NAME (MMG2D_SET_LSBASEREFERENCE, mmg2d_set_lsbasereference,(MMG5_pMesh mesh, MMG5_pSol sol, int br, int retval),(mesh, sol, br, retval))

	FORTRAN_NAME (MMG2D_SET_MESHSIZE, mmg2d_set_meshsize,(MMG5_pMesh mesh, MMG5_int np, MMG5_int nt, MMG5_int nquad, MMG5_int na, int retval),(mesh, np, nt, nquad, na, retval))

	FORTRAN_NAME (MMG2D_SET_SOLSIZE, mmg2d_set_solsize,(MMG5_pMesh mesh, MMG5_pSol sol, int typEntity, MMG5_int np, int typSol, int retval),(mesh, sol, typEntity, np, typSol, retval))

	FORTRAN_NAME (MMG2D_SET_SOLSATVERTICESSIZE, mmg2d_set_solsatverticessize,(MMG5_pMesh mesh, MMG5_pSol sol, int nsols, MMG5_int nentities, int typSol, int retval),(mesh, sol, nsols, nentities, typSol, retval))

	FORTRAN_NAME (MMG2D_GET_SOLSIZE, mmg2d_get_solsize,(MMG5_pMesh mesh, MMG5_pSol sol, int typEntity, MMG5_int np, int typSol, int retval),(mesh, sol, typEntity, np, typSol, retval))

	FORTRAN_NAME (MMG2D_GET_SOLSATVERTICESSIZE, mmg2d_get_solsatverticessize,(MMG5_pMesh mesh, MMG5_pSol sol, int nsols, MMG5_int nentities, int typSol, int retval),(mesh, sol, nsols, nentities, typSol, retval))

	FORTRAN_NAME (MMG2D_SET_VERTEX, mmg2d_set_vertex,(MMG5_pMesh mesh, double c0, double c1, MMG5_int ref, MMG5_int pos, int retval),(mesh, c0, c1, ref, pos, retval))

	FORTRAN_NAME (MMG2D_SET_CORNER, mmg2d_set_corner,(MMG5_pMesh mesh, MMG5_int k, int *retval),(mesh, k, retval))

	FORTRAN_NAME (MMG2D_UNSET_CORNER, mmg2d_unset_corner,(MMG5_pMesh mesh, MMG5_int k, int *retval),(mesh, k, retval))

	FORTRAN_NAME (MMG2D_SET_REQUIREDVERTEX, mmg2d_set_requiredvertex,(MMG5_pMesh mesh, MMG5_int k, int *retval),(mesh, k, retval))

	FORTRAN_NAME (MMG2D_UNSET_REQUIREDVERTEX, mmg2d_unset_requiredvertex,(MMG5_pMesh mesh, MMG5_int k, int *retval),(mesh, k, retval))

	FORTRAN_NAME (MMG2D_GET_VERTEX, mmg2d_get_vertex,(MMG5_pMesh mesh, double c0, double c1, MMG5_int ref, int isCorner, int isRequired, int *retval),(mesh, c0, c1, ref, isCorner, isRequired, retval))

	FORTRAN_NAME (MMG2D_GETBYIDX_VERTEX, mmg2d_getbyidx_vertex,(MMG5_pMesh mesh, double c0, double c1, MMG5_int ref, int isCorner, int isRequired, MMG5_int idx, int retval),(mesh, c0, c1, ref, isCorner, isRequired, idx, retval))

	FORTRAN_NAME (MMG2D_SET_VERTICES, mmg2d_set_vertices,(MMG5_pMesh mesh, double vertices, MMG5_int refs, int retval),(mesh, vertices, refs, retval))

	FORTRAN_NAME (MMG2D_GET_VERTICES, mmg2d_get_vertices,(MMG5_pMesh mesh, double vertices, MMG5_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, MMG5_int v0, MMG5_int v1, MMG5_int v2, MMG5_int ref, MMG5_int pos, int *retval),(mesh, v0, v1, v2, ref, pos, retval))

	FORTRAN_NAME (MMG2D_SET_REQUIREDTRIANGLE, mmg2d_set_requiredtriangle,(MMG5_pMesh mesh, MMG5_int k, int *retval),(mesh, k, retval))

	FORTRAN_NAME (MMG2D_UNSET_REQUIREDTRIANGLE, mmg2d_unset_requiredtriangle,(MMG5_pMesh mesh, MMG5_int k, int *retval),(mesh, k, retval))

	FORTRAN_NAME (MMG2D_GET_TRIANGLE, mmg2d_get_triangle,(MMG5_pMesh mesh, MMG5_int v0, MMG5_int v1, MMG5_int v2, MMG5_int ref, int isRequired, int *retval),(mesh, v0, v1, v2, ref, isRequired, retval))

	FORTRAN_NAME (MMG2D_SET_TRIANGLES, mmg2d_set_triangles,(MMG5_pMesh mesh, MMG5_int tria, MMG5_int refs, int retval),(mesh, tria, refs, retval))

	FORTRAN_NAME (MMG2D_GET_TRIANGLES, mmg2d_get_triangles,(MMG5_pMesh mesh, MMG5_int tria, MMG5_int refs, int areRequired, int *retval),(mesh, tria, refs, areRequired, retval))

	FORTRAN_NAME (MMG2D_SET_QUADRILATERAL, mmg2d_set_quadrilateral,(MMG5_pMesh mesh, MMG5_int v0, MMG5_int v1, MMG5_int v2, MMG5_int v3, MMG5_int ref, MMG5_int pos, int retval),(mesh, v0, v1, v2, v3, ref, pos, retval))

	FORTRAN_NAME (MMG2D_GET_QUADRILATERAL, mmg2d_get_quadrilateral,(MMG5_pMesh mesh, MMG5_int v0, MMG5_int v1, MMG5_int v2, MMG5_int v3, MMG5_int ref, int isRequired, int retval),(mesh, v0, v1, v2, v3, ref, isRequired, retval))

	FORTRAN_NAME (MMG2D_SET_QUADRILATERALS, mmg2d_set_quadrilaterals,(MMG5_pMesh mesh, MMG5_int quadra, MMG5_int refs, int retval),(mesh, quadra, refs, retval))

	FORTRAN_NAME (MMG2D_GET_QUADRILATERALS, mmg2d_get_quadrilaterals,(MMG5_pMesh mesh, MMG5_int quadra, MMG5_int refs, int areRequired, int *retval),(mesh, quadra, refs, areRequired, retval))

	FORTRAN_NAME (MMG2D_SET_EDGE, mmg2d_set_edge,(MMG5_pMesh mesh, MMG5_int v0, MMG5_int v1, MMG5_int ref, MMG5_int pos, int retval),(mesh, v0, v1, ref, pos, retval))

	FORTRAN_NAME (MMG2D_SET_REQUIREDEDGE, mmg2d_set_requirededge,(MMG5_pMesh mesh, MMG5_int k, int *retval),(mesh, k, retval))

	FORTRAN_NAME (MMG2D_UNSET_REQUIREDEDGE, mmg2d_unset_requirededge,(MMG5_pMesh mesh, MMG5_int k, int *retval),(mesh, k, retval))

	FORTRAN_NAME (MMG2D_SET_PARALLELEDGE, mmg2d_set_paralleledge,(MMG5_pMesh mesh, MMG5_int k, int *retval),(mesh, k, retval))

	FORTRAN_NAME (MMG2D_GET_EDGE, mmg2d_get_edge,(MMG5_pMesh mesh, MMG5_int e0, MMG5_int e1, MMG5_int ref, int isRidge, int isRequired, int *retval),(mesh, e0, e1, ref, isRidge, isRequired, retval))

	FORTRAN_NAME (MMG2D_SET_EDGES, mmg2d_set_edges,(MMG5_pMesh mesh, MMG5_int edges, MMG5_int refs, int retval),(mesh, edges, refs, retval))

	FORTRAN_NAME (MMG2D_GET_EDGES, mmg2d_get_edges,(MMG5_pMesh mesh, MMG5_int edges, MMG5_int refs, int areRidges, int areRequired, int retval),(mesh, edges, refs, areRidges, areRequired, retval))

	FORTRAN_NAME (MMG2D_GET_TRIANGLEQUALITY, mmg2d_get_trianglequality,(MMG5_pMesh mesh, MMG5_pSol met, MMG5_int k, double retval),(mesh, met, k, retval))

	FORTRAN_NAME (MMG2D_GET_MESHSIZE, mmg2d_get_meshsize,(MMG5_pMesh mesh, MMG5_int np, MMG5_int nt, MMG5_int nquad, MMG5_int na, int retval),(mesh, np, nt, nquad, na, retval))

	FORTRAN_NAME (MMG2D_SET_SCALARSOL, mmg2d_set_scalarsol,(MMG5_pSol met, double s, MMG5_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, MMG5_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, MMG5_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_SET_ITHSOL_INSOLSATVERTICES, mmg2d_set_ithsol_insolsatvertices,(MMG5_pSol sol, MMG5_int i, double s, MMG5_int pos, int *retval),(sol, i, s, pos, retval))

	FORTRAN_NAME (MMG2D_GET_ITHSOL_INSOLSATVERTICES, mmg2d_get_ithsol_insolsatvertices,(MMG5_pSol sol, MMG5_int i, double s, MMG5_int pos, int *retval),(sol, i, s, pos, retval))

	FORTRAN_NAME (MMG2D_SET_ITHSOLS_INSOLSATVERTICES, mmg2d_set_ithsols_insolsatvertices,(MMG5_pSol sol, MMG5_int i, double s, int retval),(sol, i, s, retval))

	FORTRAN_NAME (MMG2D_GET_ITHSOLS_INSOLSATVERTICES, mmg2d_get_ithsols_insolsatvertices,(MMG5_pSol sol, MMG5_int i, double s, int retval),(sol, i, s, retval))

	FORTRAN_NAME (MMG2D_CHK_MESHDATA, mmg2d_chk_meshdata,(MMG5_pMesh mesh, MMG5_pSol met, int *retval),(mesh, met, retval))

	FORTRAN_NAME (MMG2D_FREE_ALLSOLS, mmg2d_free_allsols,(MMG5_pMesh mesh, MMG5_pSol sol, int *retval),(mesh, sol, 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

	MMG5_SAFE_MALLOC (tmp, *strlen0+1, char, return)

	strncpy (tmp, meshin, *strlen0)

	MMG5_SAFE_FREE (tmp)

	FORTRAN_NAME (MMG2D_LOADVTKMESH, mmg2d_loadvtkmesh,(MMG5_pMesh mesh, MMG5_pSol met, MMG5_pSol sol, char filename, int strlen0, int retval),(mesh, met, sol, filename, strlen0, retval))

	FORTRAN_NAME (MMG2D_LOADVTKMESH_AND_ALLDATA, mmg2d_loadvtkmesh_and_alldata,(MMG5_pMesh mesh, MMG5_pSol sol, char filename, int strlen0, int *retval),(mesh, sol, filename, strlen0, retval))

	FORTRAN_NAME (MMG2D_LOADVTPMESH, mmg2d_loadvtpmesh,(MMG5_pMesh mesh, MMG5_pSol met, MMG5_pSol sol, char filename, int strlen0, int retval),(mesh, met, sol, filename, strlen0, retval))

	FORTRAN_NAME (MMG2D_LOADVTPMESH_AND_ALLDATA, mmg2d_loadvtpmesh_and_alldata,(MMG5_pMesh mesh, MMG5_pSol sol, char filename, int strlen0, int *retval),(mesh, sol, filename, strlen0, retval))

	FORTRAN_NAME (MMG2D_LOADVTUMESH, mmg2d_loadvtumesh,(MMG5_pMesh mesh, MMG5_pSol met, MMG5_pSol sol, char filename, int strlen0, int retval),(mesh, met, sol, filename, strlen0, retval))

	FORTRAN_NAME (MMG2D_LOADVTUMESH_AND_ALLDATA, mmg2d_loadvtumesh_and_alldata,(MMG5_pMesh mesh, MMG5_pSol sol, char filename, int strlen0, int *retval),(mesh, sol, filename, strlen0, retval))

	FORTRAN_NAME (MMG2D_LOADMSHMESH, mmg2d_loadmshmesh,(MMG5_pMesh mesh, MMG5_pSol sol, char filename, int strlen0, int *retval),(mesh, sol, filename, strlen0, retval))

	FORTRAN_NAME (MMG2D_LOADGENERICMESH, mmg2d_loadgenericmesh,(MMG5_pMesh mesh, MMG5_pSol met, MMG5_pSol sol, char filename, int strlen0, int retval),(mesh, met, sol, filename, strlen0, retval))

	FORTRAN_NAME (MMG2D_LOADMSHMESH_AND_ALLDATA, mmg2d_loadmshmesh_and_alldata,(MMG5_pMesh mesh, MMG5_pSol sol, char filename, int strlen0, int *retval),(mesh, sol, filename, strlen0, retval))

	FORTRAN_NAME (MMG2D_SAVEMESH, mmg2d_savemesh,(MMG5_pMesh mesh, char meshin, int strlen0, int retval),(mesh, meshin, strlen0, retval))

	FORTRAN_NAME (MMG2D_SAVEVTKMESH, mmg2d_savevtkmesh,(MMG5_pMesh mesh, MMG5_pSol sol, char filename, int strlen0, int *retval),(mesh, sol, filename, strlen0, retval))

	FORTRAN_NAME (MMG2D_SAVEVTKMESH_AND_ALLDATA, mmg2d_savevtkmesh_and_alldata,(MMG5_pMesh mesh, MMG5_pSol sol, char filename, int strlen0, int *retval),(mesh, sol, filename, strlen0, retval))

	FORTRAN_NAME (MMG2D_SAVEVTUMESH, mmg2d_savevtumesh,(MMG5_pMesh mesh, MMG5_pSol sol, char filename, int strlen0, int *retval),(mesh, sol, filename, strlen0, retval))

	FORTRAN_NAME (MMG2D_SAVEVTUMESH_AND_ALLDATA, mmg2d_savevtumesh_and_alldata,(MMG5_pMesh mesh, MMG5_pSol sol, char filename, int strlen0, int *retval),(mesh, sol, filename, strlen0, retval))

	FORTRAN_NAME (MMG2D_SAVEVTPMESH, mmg2d_savevtpmesh,(MMG5_pMesh mesh, MMG5_pSol sol, char filename, int strlen0, int *retval),(mesh, sol, filename, strlen0, retval))

	FORTRAN_NAME (MMG2D_SAVEVTPMESH_AND_ALLDATA, mmg2d_savevtpmesh_and_alldata,(MMG5_pMesh mesh, MMG5_pSol sol, char filename, int strlen0, int *retval),(mesh, sol, filename, strlen0, retval))

	FORTRAN_NAME (MMG2D_SAVEMSHMESH, mmg2d_savemshmesh,(MMG5_pMesh mesh, MMG5_pSol sol, char filename, int strlen0, int *retval),(mesh, sol, filename, strlen0, retval))

	FORTRAN_NAME (MMG2D_SAVEMSHMESH_AND_ALLDATA, mmg2d_savemshmesh_and_alldata,(MMG5_pMesh mesh, MMG5_pSol sol, char filename, int strlen0, int *retval),(mesh, sol, filename, strlen0, retval))

	FORTRAN_NAME (MMG2D_SAVETETGENMESH, mmg2d_savetetgenmesh,(MMG5_pMesh mesh, char meshin, int strlen0, int retval),(mesh, meshin, strlen0, retval))

	FORTRAN_NAME (MMG2D_SAVEGENERICMESH, mmg2d_savegenericmesh,(MMG5_pMesh mesh, MMG5_pSol sol, char filename, int strlen0, int *retval),(mesh, sol, filename, strlen0, retval))

	FORTRAN_NAME (MMG2D_LOADSOL, mmg2d_loadsol,(MMG5_pMesh mesh, MMG5_pSol met, char meshin, int strlen0, int *retval),(mesh, met, meshin, strlen0, retval))

	FORTRAN_NAME (MMG2D_LOADALLSOLS, mmg2d_loadallsols,(MMG5_pMesh mesh, MMG5_pSol sol, char meshin, int strlen0, int *retval),(mesh, sol, meshin, strlen0, retval))

	FORTRAN_NAME (MMG2D_SAVESOL, mmg2d_savesol,(MMG5_pMesh mesh, MMG5_pSol met, char meshin, int strlen0, int *retval),(mesh, met, meshin, strlen0, retval))

	FORTRAN_NAME (MMG2D_SAVEALLSOLS, mmg2d_saveallsols,(MMG5_pMesh mesh, MMG5_pSol sol, char meshin, int strlen0, int *retval),(mesh, sol, meshin, strlen0, retval))

Variables
	mmg2d_init_filenames

MMG5_pMesh *	mesh

MMG5_pMesh MMG5_pSol *	sol

	return

	mmg2d_free_structures

const int	starter

const int va_list	argptr

int	ier = MMG2D_Free_structures_var(argptr)

	mmg2d_loadmesh

MMG5_pMesh char *	meshin

MMG5_pMesh char int *	strlen0

MMG5_pMesh char int int *	retval

	tmp [*strlen0] = '\0'

Detailed Description

Fortran API functions for MMG2D library.

Author: Cecile Dobrzynski (Bx INP/Inria/UBordeaux)

Version: 5

Date: 07 2015

Copyright: GNU Lesser General Public License.

Note: Please, refer to the mmg2d/liblibmmg2d_private.h file for functions documentation.

Define the Fortran API functions for MMG2D library: adds function definitions with upcase, underscore and double underscore to match any fortran compiler.

Definition in file API_functionsf_2d.c.

Function Documentation