Esope source files

   1 : C ARTOPL    SOURCE    CHAT      05/01/12    21:25:16     5004           
   2 :       SUBROUTINE ARTOPL(IARNOE,NBNMAX,IARAR,NBCMAX,IPOLY,NBPP)
   3 : C     *****************************************************************
   4 : C     OBJET : EXTRAIT UN POLYGONE FERME D'UN MAILLAGE D'ARETES 
   5 : C
   6 : C     EN ENTREE :
   7 : C         IARNOE,NBNMAX: NOEUDS DES ARETES 
   8 : C             IARNOE((I-1)*NBNMAX+1) NOEUD ORIGINE DE L'ARETE I
   9 : C             IARNOE((I-1)*NBNMAX+2) NOEUD EXTREMITE DE L'ARETE I
  10 : C         IARAR,NBCMAX: ARETE ADJACENTES
  11 : C             IARAR((I-1)*NBNMAX+1) ARETE PRECEDENTE DE I
  12 : C             IARNOE((I-1)*NBNMAX+2) ARETE SUIVANTE DE I
  13 : C
  14 : C     EN SORTIE :
  15 : C         IPOLY : TABLEAU DES NUMEROS DES NOEUDS 
  16 : C         NBPP : NOMBRE DE POINTS DU POLYGONE.
  17 : C
  18 : C     *****************************************************************
  19 :       IMPLICIT INTEGER(I-N)
  20 :       INTEGER IARNOE(*),NBNMAX,IARAR(*),NBCMAX,IPOLY(*),NBPP
  21 : C
  22 :       INTEGER IDEBUT,ISUIV
  23 : C
  24 :       IDEBUT = 1
  25 :       NBPP = 1
  26 :       IPOLY(1) = IARNOE(1)
  27 :       ISUIV = IARAR(2)
  28 :    10 IF( ISUIV .EQ. IDEBUT )GO TO 999 
  29 :       NBPP = NBPP+1
  30 :       IPOLY(NBPP) = IARNOE((ISUIV-1)*NBNMAX+1)
  31 :       ISUIV = IARAR((ISUIV-1)*NBCMAX+2)
  32 :       GO TO 10 
  33 :   999 END
  34 :  
  35 :