Fortran API functions for MMGS library. More...

#include "libmmgs.h"
#include "libmmgs_private.h"

Include dependency graph for API_functionsf_s.c:

Functions
	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_INPUTPARAMNAME, mmgs_set_inputparamname,(MMG5_pMesh mesh, char fparamin, int strlen0, int retval),(mesh, fparamin, strlen0, retval))

	FORTRAN_NAME (MMGS_SET_SOLSIZE, mmgs_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 (MMGS_SET_SOLSATVERTICESSIZE, mmgs_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 (MMGS_SET_MESHSIZE, mmgs_set_meshsize,(MMG5_pMesh mesh, MMG5_int np, MMG5_int nt, MMG5_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, MMG5_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, MMG5_int nentities, int typSol, int retval),(mesh, sol, nsols, nentities, typSol, retval))

	FORTRAN_NAME (MMGS_GET_MESHSIZE, mmgs_get_meshsize,(MMG5_pMesh mesh, MMG5_int np, MMG5_int nt, MMG5_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, MMG5_int ref, MMG5_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, MMG5_int ref, int isCorner, int isRequired, int retval),(mesh, c0, c1, c2, ref, isCorner, isRequired, retval))

	FORTRAN_NAME (MMGS_GETBYIDX_VERTEX, mmgs_getbyidx_vertex,(MMG5_pMesh mesh, double c0, double c1, double c2, MMG5_int ref, int isCorner, int isRequired, MMG5_int idx, int *retval),(mesh, c0, c1, c2, ref, isCorner, isRequired, idx, retval))

	FORTRAN_NAME (MMGS_SET_VERTICES, mmgs_set_vertices,(MMG5_pMesh mesh, double vertices, MMG5_int refs, int retval),(mesh, vertices, refs, retval))

	FORTRAN_NAME (MMGS_GET_VERTICES, mmgs_get_vertices,(MMG5_pMesh mesh, double vertices, MMG5_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, 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 (MMGS_GET_TRIANGLE, mmgs_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 (MMGS_SET_TRIANGLES, mmgs_set_triangles,(MMG5_pMesh mesh, MMG5_int tria, MMG5_int refs, int retval),(mesh, tria, refs, retval))

	FORTRAN_NAME (MMGS_GET_TRIANGLES, mmgs_get_triangles,(MMG5_pMesh mesh, MMG5_int tria, MMG5_int refs, int areRequired, int *retval),(mesh, tria, refs, areRequired, retval))

	FORTRAN_NAME (MMGS_SET_EDGE, mmgs_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 (MMGS_GET_EDGE, mmgs_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 (MMGS_SET_EDGES, mmgs_set_edges,(MMG5_pMesh mesh, MMG5_int edges, MMG5_int refs, int retval),(mesh, edges, refs, retval))

	FORTRAN_NAME (MMGS_GET_EDGES, mmgs_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 (MMGS_SET_CORNER, mmgs_set_corner,(MMG5_pMesh mesh, MMG5_int k, int *retval),(mesh, k, retval))

	FORTRAN_NAME (MMGS_UNSET_CORNER, mmgs_unset_corner,(MMG5_pMesh mesh, MMG5_int k, int *retval),(mesh, k, retval))

	FORTRAN_NAME (MMGS_SET_REQUIREDVERTEX, mmgs_set_requiredvertex,(MMG5_pMesh mesh, MMG5_int k, int *retval),(mesh, k, retval))

	FORTRAN_NAME (MMGS_UNSET_REQUIREDVERTEX, mmgs_unset_requiredvertex,(MMG5_pMesh mesh, MMG5_int k, int *retval),(mesh, k, retval))

	FORTRAN_NAME (MMGS_SET_REQUIREDTRIANGLE, mmgs_set_requiredtriangle,(MMG5_pMesh mesh, MMG5_int k, int *retval),(mesh, k, retval))

	FORTRAN_NAME (MMGS_UNSET_REQUIREDTRIANGLE, mmgs_unset_requiredtriangle,(MMG5_pMesh mesh, MMG5_int k, int *retval),(mesh, k, retval))

	FORTRAN_NAME (MMGS_SET_RIDGE, mmgs_set_ridge,(MMG5_pMesh mesh, MMG5_int k, int *retval),(mesh, k, retval))

	FORTRAN_NAME (MMGS_UNSET_RIDGE, mmgs_unset_ridge,(MMG5_pMesh mesh, MMG5_int k, int *retval),(mesh, k, retval))

	FORTRAN_NAME (MMGS_SET_REQUIREDEDGE, mmgs_set_requirededge,(MMG5_pMesh mesh, MMG5_int k, int *retval),(mesh, k, retval))

	FORTRAN_NAME (MMGS_UNSET_REQUIREDEDGE, mmgs_unset_requirededge,(MMG5_pMesh mesh, MMG5_int k, int *retval),(mesh, k, retval))

	FORTRAN_NAME (MMGS_SET_NORMALATVERTEX, mmgs_set_normalatvertex,(MMG5_pMesh mesh, MMG5_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, MMG5_int k, double n0, double n1, double n2, int retval),(mesh, k, n0, n1, n2, retval))

	FORTRAN_NAME (MMGS_GET_TRIANGLEQUALITY, mmgs_get_trianglequality,(MMG5_pMesh mesh, MMG5_pSol met, MMG5_int k, double retval),(mesh, met, k, retval))

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

	FORTRAN_NAME (MMGS_GET_ITHSOL_INSOLSATVERTICES, mmgs_get_ithsol_insolsatvertices,(MMG5_pSol sol, MMG5_int i, double s, MMG5_int pos, int *retval),(sol, i, s, pos, retval))

	FORTRAN_NAME (MMGS_SET_ITHSOLS_INSOLSATVERTICES, mmgs_set_ithsols_insolsatvertices,(MMG5_pSol sol, MMG5_int i, double s, int retval),(sol, i, s, retval))

	FORTRAN_NAME (MMGS_GET_ITHSOLS_INSOLSATVERTICES, mmgs_get_ithsols_insolsatvertices,(MMG5_pSol sol, MMG5_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, MMG5_int val, int *retval),(mesh, sol, iparam, val, retval))

	FORTRAN_NAME (MMGS_GET_IPARAMETER, mmgs_get_iparameter,(MMG5_pMesh mesh, int iparam, MMG5_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, MMG5_int ref, double hmin, double hmax, double hausd, int retval),(mesh, sol, typ, ref, hmin, hmax, hausd, retval))

	FORTRAN_NAME (MMGS_SET_MULTIMAT, mmgs_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 (MMGS_SET_LSBASEREFERENCE, mmgs_set_lsbasereference,(MMG5_pMesh mesh, MMG5_pSol sol, int br, int retval),(mesh, sol, br, retval))

	FORTRAN_NAME (MMGS_FREE_ALLSOLS, mmgs_free_allsols,(MMG5_pMesh mesh, MMG5_pSol sol, int *retval),(mesh, sol, 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_LOADVTKMESH, mmgs_loadvtkmesh,(MMG5_pMesh mesh, MMG5_pSol met, MMG5_pSol sol, char filename, int strlen0, int retval),(mesh, met, sol, filename, strlen0, retval))

	FORTRAN_NAME (MMGS_LOADVTKMESH_AND_ALLDATA, mmgs_loadvtkmesh_and_alldata,(MMG5_pMesh mesh, MMG5_pSol sol, char filename, int strlen0, int *retval),(mesh, sol, filename, strlen0, retval))

	FORTRAN_NAME (MMGS_LOADVTPMESH, mmgs_loadvtpmesh,(MMG5_pMesh mesh, MMG5_pSol met, MMG5_pSol sol, char filename, int strlen0, int retval),(mesh, met, sol, filename, strlen0, retval))

	FORTRAN_NAME (MMGS_LOADVTPMESH_AND_ALLDATA, mmgs_loadvtpmesh_and_alldata,(MMG5_pMesh mesh, MMG5_pSol sol, char filename, int strlen0, int *retval),(mesh, sol, filename, strlen0, retval))

	FORTRAN_NAME (MMGS_LOADVTUMESH, mmgs_loadvtumesh,(MMG5_pMesh mesh, MMG5_pSol met, MMG5_pSol sol, char filename, int strlen0, int retval),(mesh, met, sol, filename, strlen0, retval))

	FORTRAN_NAME (MMGS_LOADVTUMESH_AND_ALLDATA, mmgs_loadvtumesh_and_alldata,(MMG5_pMesh mesh, MMG5_pSol sol, char filename, int strlen0, int *retval),(mesh, sol, filename, strlen0, retval))

	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_LOADGENERICMESH, mmgs_loadgenericmesh,(MMG5_pMesh mesh, MMG5_pSol met, MMG5_pSol sol, char filename, int strlen0, int retval),(mesh, met, 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_SAVEVTKMESH, mmgs_savevtkmesh,(MMG5_pMesh mesh, MMG5_pSol sol, char filename, int strlen0, int *retval),(mesh, sol, filename, strlen0, retval))

	FORTRAN_NAME (MMGS_SAVEVTKMESH_AND_ALLDATA, mmgs_savevtkmesh_and_alldata,(MMG5_pMesh mesh, MMG5_pSol sol, char filename, int strlen0, int *retval),(mesh, sol, filename, strlen0, retval))

	FORTRAN_NAME (MMGS_SAVEVTUMESH, mmgs_savevtumesh,(MMG5_pMesh mesh, MMG5_pSol sol, char filename, int strlen0, int *retval),(mesh, sol, filename, strlen0, retval))

	FORTRAN_NAME (MMGS_SAVEVTUMESH_AND_ALLDATA, mmgs_savevtumesh_and_alldata,(MMG5_pMesh mesh, MMG5_pSol sol, char filename, int strlen0, int *retval),(mesh, sol, filename, strlen0, retval))

	FORTRAN_NAME (MMGS_SAVEVTPMESH, mmgs_savevtpmesh,(MMG5_pMesh mesh, MMG5_pSol sol, char filename, int strlen0, int *retval),(mesh, sol, filename, strlen0, retval))

	FORTRAN_NAME (MMGS_SAVEVTPMESH_AND_ALLDATA, mmgs_savevtpmesh_and_alldata,(MMG5_pMesh mesh, MMG5_pSol sol, char filename, int strlen0, int *retval),(mesh, sol, filename, 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_SAVEGENERICMESH, mmgs_savegenericmesh,(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))

	FORTRAN_NAME (MMGS_CLEAN_ISOSURF, mmgs_clean_isosurf,(MMG5_pMesh mesh, int retval),(mesh, retval))

Variables
	mmgs_init_parameters

MMG5_pMesh *	mesh

	return

	mmgs_free_structures

const int	starter

const int va_list	argptr

int	ier = MMGS_Free_structures_var(argptr)

	mmgs_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 MMGS library.

Author: Algiane Froehly (Inria/UBordeaux)

Version: 5

Date: 01 2014

Copyright: GNU Lesser General Public License.

Note: Please, refer to the mmgs/libmmgs.h file for functions documentation.

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

Definition in file API_functionsf_s.c.

Function Documentation