API_functionsf.c

Go to the documentation of this file.

/* =============================================================================
**  This file is part of the mmg software package for the tetrahedral
**  mesh modification.
**  Copyright (c) Bx INP/CNRS/Inria/UBordeaux/UPMC, 2004-
**
**  mmg is free software: you can redistribute it and/or modify it
**  under the terms of the GNU Lesser General Public License as published
**  by the Free Software Foundation, either version 3 of the License, or
**  (at your option) any later version.
**
**  mmg is distributed in the hope that it will be useful, but WITHOUT
**  ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
**  FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public
**  License for more details.
**
**  You should have received a copy of the GNU Lesser General Public
**  License and of the GNU General Public License along with mmg (in
**  files COPYING.LESSER and COPYING). If not, see
**  <http://www.gnu.org/licenses/>. Please read their terms carefully and
**  use this copy of the mmg distribution only if you accept them.
** =============================================================================
*/
 
#include "mmgcommon_private.h"
 
 
FORTRAN_NAME(MMG5_INIT_FILENAMES,mmg5_init_filenames,(MMG5_pMesh *mesh,MMG5_pSol *sol),(mesh,sol)) {
 
  MMG5_Init_fileNames(*mesh,*sol);
  return;
}
 
FORTRAN_NAME(MMG5_SET_INPUTMESHNAME, mmg5_set_inputmeshname,
             (MMG5_pMesh *mesh, char *meshin, int *strlen, int *retval),
             (mesh,meshin,strlen,retval)) {
  char *tmp = NULL;
 
  tmp = (char*)malloc((*strlen+1)*sizeof(char));
  strncpy(tmp,meshin,*strlen);
  tmp[*strlen] = '\0';
  *retval = MMG5_Set_inputMeshName(*mesh,tmp);
  MMG5_SAFE_FREE(tmp);
 
  return;
}
 
FORTRAN_NAME(MMG5_SET_INPUTSOLNAME, mmg5_set_inputsolname,
             (MMG5_pMesh *mesh,MMG5_pSol *sol, char* solin, int* strlen, int* retval),
             (mesh,sol,solin,strlen,retval)) {
 
  char *tmp = NULL;
 
  tmp = (char*)malloc((*strlen+1)*sizeof(char));
  strncpy(tmp,solin,*strlen);
  tmp[*strlen] = '\0';
  *retval = MMG5_Set_inputSolName(*mesh,*sol,tmp);
  MMG5_SAFE_FREE(tmp);
 
  return;
}
 
FORTRAN_NAME(MMG5_SET_OUTPUTMESHNAME,mmg5_set_outputmeshname,
             (MMG5_pMesh *mesh, char* meshout, int* strlen,int* retval),
             (mesh,meshout,strlen,retval)){
  char *tmp = NULL;
 
  tmp = (char*)malloc((*strlen+1)*sizeof(char));
  strncpy(tmp,meshout,*strlen);
  tmp[*strlen] = '\0';
  *retval = MMG5_Set_outputMeshName(*mesh, tmp);
  MMG5_SAFE_FREE(tmp);
 
  return;
}
 
FORTRAN_NAME(MMG5_SET_OUTPUTSOLNAME,mmg5_set_outputsolname,
             (MMG5_pMesh *mesh,MMG5_pSol *sol, char* solout,int* strlen, int* retval),
             (mesh,sol,solout,strlen,retval)){
  char *tmp = NULL;
 
  tmp = (char*)malloc((*strlen+1)*sizeof(char));
  strncpy(tmp,solout,*strlen);
  tmp[*strlen] = '\0';
  *retval = MMG5_Set_outputSolName(*mesh,*sol,tmp);
  MMG5_SAFE_FREE(tmp);
 
  return;
}
 
FORTRAN_NAME(MMG5_SCALEMESH,mmg5_scalemesh,
             (MMG5_pMesh *mesh,MMG5_pSol *met,MMG5_pSol *ls,int* retval),
             (mesh,met,ls,retval)){
 
  *retval = MMG5_scaleMesh(*mesh,*met,*ls);
 
  return;
}
 
FORTRAN_NAME(MMG5_UNSCALEMESH,mmg5_unscalemesh,
             (MMG5_pMesh *mesh,MMG5_pSol *met,MMG5_pSol *ls,int* retval),
             (mesh,met,ls,retval)){
 
  *retval = MMG5_unscaleMesh(*mesh,*met,*ls);
 
  return;
}
 
FORTRAN_NAME(MMG5_MMGFREE_NAMES,mmg5_mmgfree_names,(MMG5_pMesh *mesh
                                                    ,MMG5_pSol *met
               ),(mesh,met
                 )){
  MMG5_mmgFree_names(*mesh,*met);
  return;
}