Salome HOME
NRI : Add licence header.
[modules/smesh.git] / src / MEFISTO2 / areteideale.f
index cabc8d4..f0c8744 100755 (executable)
@@ -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