Sources Esope | Cast3M

nusom
C NUSOM     SOURCE    CHAT      05/01/13    02:03:53     5004
C SHAPE     SOURCE    BALD      96/02/07    21:19:39     2024
      FUNCTION NUSOM(NSOM1, NSOM2, FER, NDEB)
C=======================================================================
C
C     Numero du point de la frontiere d'un polygone compris entre
C     deux points du maillage dual associé. Si les deux points ne sont
C     pas voisin, ou hors de la frontiere, la procedure retourne 0
C
C=======================================================================
      IMPLICIT INTEGER(I-N)
      SEGMENT /FER/(NFI(ITT),MAI(IPP),ITOUR)
*
      NUSOM = 0
*
      IF (NSOM1.LT.NDEB .AND. NSOM2.LT.NDEB) THEN
*
        DO 100, NUCOT = 1, ITOUR
*
          IDEB = MAI(NUCOT)+1
          IFIN = MAI(NUCOT+1)
*
          DO 80, IP2 = IDEB, IFIN
*
            IP1 = IP2 - 1
            IP3 = IP2 + 1
            IF (IP1.LT.IDEB) IP1 = IFIN
            IF (IP3.GT.IFIN) IP3 = IDEB
 
            IF ( NSOM1.EQ.NFI(IP2)) THEN
*
              IF ( NSOM2.EQ.NFI(IP1))  NUSOM = NFI(IP2)
              IF ( NSOM2.EQ.NFI(IP3))  NUSOM = NFI(IP3)
*
              RETURN
*
            ENDIF
*
  80      CONTINUE
*
 100    CONTINUE
*
      ENDIF
*
      END