Télécharger artopl.eso

Retour à la liste

Numérotation des lignes :

  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.  
  36.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales