libmmgsf.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 "libmmgs.h"
#include "mmgcommon_private.h"
 
FORTRAN_NAME(MMGS_MMGSLIB,mmgs_mmgslib,(MMG5_pMesh *mesh,MMG5_pSol *met,
                                        int* retval),
             (mesh,met,retval)){
 
  *retval = MMGS_mmgslib(*mesh,*met);
 
  return;
}
 
FORTRAN_NAME(MMGS_MMGSLS,mmgs_mmgsls,(MMG5_pMesh *mesh,MMG5_pSol *sol,
                                      MMG5_pSol *met,int* retval),
             (mesh,sol,met,retval)){
 
  if ( met ) {
    *retval = MMGS_mmgsls(*mesh,*sol,*met);
  }
  else {
    *retval = MMGS_mmgsls(*mesh,*sol,NULL);
  }
 
  return;
}