Esope source files

   1 : C NUSOM     SOURCE    CHAT      05/01/13    02:03:53     5004           
   2 : C SHAPE     SOURCE    BALD      96/02/07    21:19:39     2024
   3 :       FUNCTION NUSOM(NSOM1, NSOM2, FER, NDEB)
   4 : C=======================================================================
   5 : C                                                                       
   6 : C     Numero du point de la frontiere d'un polygone compris entre
   7 : C     deux points du maillage dual associé. Si les deux points ne sont
   8 : C     pas voisin, ou hors de la frontiere, la procedure retourne 0
   9 : C                                                                       
  10 : C=======================================================================
  11 :       IMPLICIT INTEGER(I-N)
  12 :       SEGMENT /FER/(NFI(ITT),MAI(IPP),ITOUR)
  13 : *
  14 :       NUSOM = 0
  15 : *
  16 :       IF (NSOM1.LT.NDEB .AND. NSOM2.LT.NDEB) THEN
  17 : *
  18 :         DO 100, NUCOT = 1, ITOUR
  19 : *
  20 :           IDEB = MAI(NUCOT)+1
  21 :           IFIN = MAI(NUCOT+1)
  22 : *  
  23 :           DO 80, IP2 = IDEB, IFIN 
  24 : *
  25 :             IP1 = IP2 - 1
  26 :             IP3 = IP2 + 1
  27 :             IF (IP1.LT.IDEB) IP1 = IFIN
  28 :             IF (IP3.GT.IFIN) IP3 = IDEB
  29 : 
  30 :             IF ( NSOM1.EQ.NFI(IP2)) THEN
  31 : *
  32 :               IF ( NSOM2.EQ.NFI(IP1))  NUSOM = NFI(IP2)
  33 :               IF ( NSOM2.EQ.NFI(IP3))  NUSOM = NFI(IP3)
  34 : *
  35 :               RETURN             
  36 : *
  37 :             ENDIF
  38 : *
  39 :   80      CONTINUE
  40 : *
  41 :  100    CONTINUE 
  42 : *
  43 :       ENDIF
  44 : *
  45 :       END
  46 :  
  47 :