Télécharger nusom.eso

Retour à la liste

Numérotation des lignes :

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

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