X-Git-Url: http://git.salome-platform.org/gitweb/?a=blobdiff_plain;f=src%2FMEFISTO2%2Ftrte.f;h=97ef32863610653e1a3772c32d10ffe2499bfb8c;hb=2aed859fcd4a79ddeaf25370c39b2ee713fc873c;hp=273569def1c20288d24bbaea4f7f0567688b56b4;hpb=79b1ac2b6df9117f16f11d444b1f165d477a1813;p=modules%2Fsmesh.git

diff --git a/src/MEFISTO2/trte.f b/src/MEFISTO2/trte.f
index 273569def..97ef32863 100755
--- a/src/MEFISTO2/trte.f
+++ b/src/MEFISTO2/trte.f
@@ -1,22 +1,22 @@
 c  MEFISTO2: a library to compute 2D triangulation from segmented boundaries
 c
-c  Copyright (C) 2006  Laboratoire J.-L. Lions UPMC Paris
+c Copyright (C) 2006-2016  CEA/DEN, EDF R&D, OPEN CASCADE
 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 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, or (at your option) any later version.
 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 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 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/~perronnet or email perronnet@ann.jussieu.fr
+c See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
 c
 c  File   : trte.f    le Fortran du trianguleur plan
 c  Module : SMESH
@@ -1294,7 +1294,7 @@ c        la direction pour le calcul de la longueur (inactif ici!)
          xyzd(2) = 0d0
          xyzd(3) = 0d0
 
-         longai = areteideale()
+         longai = areteideale(xyz,xyzd)
 c         (xyz,xyzd)
          if( longai .lt. 0d0 ) then
             write(imprim,10000) xyz