Esope source files

   1 : C CONFON    SOURCE    PV        12/12/06    21:15:01     7594           
   2 : C   CE SOUS PROGRAMME CONFOND DEUX POINTS EN LE SECOND
   3 : C     
   4 :       SUBROUTINE CONFON
   5 :       IMPLICIT INTEGER(I-N)
   6 : -INC CCOPTIO
   7 : -INC SMCOORD
   8 : -INC CCASSIS
   9 :       SEGMENT ICPR(XCOOR(/1)/(IDIM+1))
  10 :       CHARACTER*(8) ITPOIN
  11 :       DATA ITPOIN/'POINT   '/
  12 :       SEGACT MCOORD*MOD
  12 :       CALL LIROBJ(ITPOIN,IP1,1,IRETOU)
  12 :       CALL LIROBJ(ITPOIN,IP2,1,IRETOU)
  13 :       IF (IERR.NE.0) RETURN
  14 :       if(nbesc.ne.0) then
  15 :          mestra=imestr
  16 :          SEGACT MESTRA*MOD
  16 :          call ooofrc(1)
  16 :          call setass(1)
  17 :       endif
  18 :       SEGINI ICPR
  19 :       ICPR(IP1)=1
  20 :       ICPR(IP2)=1
  21 :       NUMNP=1
  22 :       KIKI=0
  23 : *  ON MET TOUTES LES COORDONNEES A CELLES DU SECOND POINT
  24 :       DO 10 I=1,IDIM+1
  25 :          XCOOR((IP1-1)*(IDIM+1)+I)=XCOOR((IP2-1)*(IDIM+1)+I)
  26 :  10   CONTINUE
  27 : *  ON FARFOUILLE LA NUMEROTATION
  27 :       CALL TASSP2(KIKI,ICPR,NUMNP,icolac,0)
  28 : * On fait le ménage 
  28 :       CALL SUPPIL(icolac,-1)
  29 :       SEGSUP ICPR
  29 :       CALL ECROBJ(ITPOIN,IP1)
  30 :       if(nbesc.ne.0) then
  31 :          mestra=imestr
  32 :          SEGDES MESTRA
  32 :          call ooofrc(0)
  32 :          call setass(0)
  33 :       endif
  34 :       RETURN
  35 :       END
  36 : 
  37 :  
  38 :  
  39 :  
  40 :  
  41 :  
  42 :  
  43 :  
  44 :  
  45 :