X-Git-Url: http://git.salome-platform.org/gitweb/?a=blobdiff_plain;f=src%2FMEFISTO2%2Ftrte.f;h=8e0388b88a4ed215a75519d81df0110ebfc15f57;hb=fad0769be87f74668e0a39302912a9118a143a2f;hp=f66104e34c2d2b10052f1993048587f31a7a459e;hpb=bef9beee88cac57394b8dc3bc914381c1a2fff83;p=modules%2Fsmesh.git

diff --git a/src/MEFISTO2/trte.f b/src/MEFISTO2/trte.f
index f66104e34..8e0388b88 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
@@ -2957,7 +2982,6 @@ c        une arete de sommet ns
          if( narete .le. 0 ) then
 c           erreur: le point appartient a aucune arete
             write(imprim,*) 'sommet ',ns,' dans aucune arete'
-            pause
             ierr = 11
             return
          endif
@@ -4369,7 +4393,6 @@ c        ----------------------------------
 c
       else if( nbar .le. 2 ) then
          write(imprim,*) 'erreur trchtd: cf<3 aretes'
-         pause
          namin  = 0
          namin0 = 0
          return
@@ -5447,7 +5470,6 @@ c              l'arete appartient a 2 triangles differents de nt0
 c              anomalie. chainage des triangles des aretes defectueux
 c              a corriger
                write(imprim,*) 'pause dans tridcf'
-               pause
                ierr = 5
                return
             endif
@@ -5983,7 +6005,6 @@ c     recherche du numero de l'arete noaret dans le triangle nt1
  10   continue
 c     impossible d'arriver ici sans bogue!
       write(imprim,*) 'pause dans te2t2t 1'
-      pause
 c
 c     l'arete de sommets 2 et 3
  15   if( n1 .lt. 3 ) then
@@ -6008,7 +6029,6 @@ c     recherche du numero de l'arete noaret dans le triangle nt2
  20   continue
 c     impossible d'arriver ici sans bogue!
       write(imprim,*) 'pause dans te2t2t 2'
-      pause
 c
 c     l'arete de sommets 1 et 4
  25   if( n1 .lt. 3 ) then
@@ -7078,7 +7098,6 @@ c
 c
 c        erreur: le point np n'est pas dans l'un des nbtr triangles
          write(imprim,10010) np
-         pause
          ierr = 3
          return
 c
@@ -7165,7 +7184,6 @@ c           l'arete noar n'a pas ete retrouvee dans le chainage => erreur
      %      ' st2=',nosoar(2,noar),' ligne=',nosoar(3,noar),
      %      ' tr1=',nosoar(4,noar),' tr2=',nosoar(5,noar)
             write(imprim,*) 'chainages=',(nosoar(i,noar),i=6,mosoar)
-            pause
 c           l'arete n'est pas detruite
             return
 c
@@ -7802,7 +7820,6 @@ c        les sens ns1->ns2 et ns2->ns1 ne donne pas de solution!
          write(imprim,*)'tefoar:arete ',ns1,' - ',ns2,' a imposer'
          write(imprim,*)'tefoar:anomalie sommet ',ns1,
      %   'non dans le triangle de sommets ',(nosotr(i),i=1,3)
-         pause
          ierr = 11
          return
       endif
@@ -7934,7 +7951,6 @@ c           ici le sommet nsp est trop proche de l'arete perdue ns1-ns2
 c              point utilisateur ou frontalier non supprimable
                ierr = 11
                write(imprim,*) 'pause dans tefoar 1', d, d3, d4, d12
-               pause
                return
             endif
 c
@@ -7958,7 +7974,6 @@ ccc     %                      ncroug, ncblan )
 ccc               tratri = .false.
                ierr = 11
                write(imprim,*) 'pause dans tefoar 2'
-               pause
                return
             endif
 c
@@ -8030,7 +8045,6 @@ c           redemarrage avec le triangle nt0 et l'arete na0
 c
             write(imprim,*) 'tefoar: algorithme defaillant'
             ierr = 11
-            pause
             return
          endif
  50   continue
@@ -8042,7 +8056,6 @@ c     rotation autour du sommet par l'arete suivant na1
       write(imprim,*) 'les lignes fermees doivent etre disjointes'
       write(imprim,*) 'verifiez si elles ne se coupent pas'
       ierr = 13
-      pause
       return
 c
 c     cas sans probleme : intersection differente de celle initiale