From 547de73ed6f02f522e3580a4e16d1641703515f0 Mon Sep 17 00:00:00 2001 From: nri Date: Thu, 6 Nov 2003 14:34:27 +0000 Subject: [PATCH] NRI : Add licence header. --- src/MEFISTO2/areteideale.f | 25 +++++++++++++++++++++++++ src/MEFISTO2/trte.f | 25 +++++++++++++++++++++++++ 2 files changed, 50 insertions(+) diff --git a/src/MEFISTO2/areteideale.f b/src/MEFISTO2/areteideale.f index cabc8d442..f0c8744ca 100755 --- a/src/MEFISTO2/areteideale.f +++ b/src/MEFISTO2/areteideale.f @@ -1,3 +1,28 @@ +c MEFISTO : library to compute 2D triangulation from segmented boundaries +c +c Copyright (C) 2003 Laboratoire J.-L. Lions UPMC Paris +c +c This library is free software; you can redistribute it and/or +c modify it under the terms of the GNU Lesser General Public +c License as published by the Free Software Foundation; either +c version 2.1 of the License. +c +c This library is distributed in the hope that it will be useful, +c but WITHOUT ANY WARRANTY; without even the implied warranty of +c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +c Lesser General Public License for more details. +c +c You should have received a copy of the GNU Lesser General Public +c License along with this library; if not, write to the Free Software +c Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA +c +c See http://www.ann.jussieu.fr/~perronne or email Perronnet@ann.jussieu.fr +c +c +c File : areteideale.f +c Module : SMESH +c Author: Alain PERRONNET + double precision function areteideale( xyz, direction ) double precision xyz(3), direction(3) areteideale = 10 diff --git a/src/MEFISTO2/trte.f b/src/MEFISTO2/trte.f index f66104e34..ad5be7e08 100755 --- a/src/MEFISTO2/trte.f +++ b/src/MEFISTO2/trte.f @@ -1,3 +1,28 @@ +c MEFISTO : library to compute 2D triangulation from segmented boundaries +c +c Copyright (C) 2003 Laboratoire J.-L. Lions UPMC Paris +c +c This library is free software; you can redistribute it and/or +c modify it under the terms of the GNU Lesser General Public +c License as published by the Free Software Foundation; either +c version 2.1 of the License. +c +c This library is distributed in the hope that it will be useful, +c but WITHOUT ANY WARRANTY; without even the implied warranty of +c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +c Lesser General Public License for more details. +c +c You should have received a copy of the GNU Lesser General Public +c License along with this library; if not, write to the Free Software +c Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA +c +c See http://www.ann.jussieu.fr/~perronne or email Perronnet@ann.jussieu.fr +c +c +c File : trte.f +c Module : SMESH +c Author: Alain PERRONNET + subroutine qutr2d( p1, p2, p3, qualite ) c+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ c but : calculer la qualite d'un triangle de r**2 -- 2.30.2