Télécharger madjac.eso

Retour à la liste

Numérotation des lignes :

  1. C MADJAC SOURCE PV 20/03/30 21:20:55 10567
  2. SUBROUTINE MADJAC(MEL1,MEL2,LOG1)
  3. C
  4. C Cette routine permet de tester si les maillages elmentaires
  5. C pointes par MEL1 et MEL2 sont adjacents
  6. C
  7. C Les segments MEL1 et MEL2 doivent etre actifs et
  8. C sont rendus actifs
  9. C
  10. C C. La Borderie Juin 1992.
  11. C
  12. C
  13. IMPLICIT INTEGER(I-N)
  14. IMPLICIT REAL*8(A-H,O-Z)
  15.  
  16. -INC PPARAM
  17. -INC CCOPTIO
  18. -INC SMELEME
  19. -INC SMCOORD
  20. SEGMENT SLCPR
  21. LOGICAL LCPR (NN1)
  22. END SEGMENT
  23. INTEGER NBELE,NBNOEU,IELE,JNOEU,NUMIJ
  24. LOGICAL LOG1
  25. C
  26. C
  27. NN1= nbpts
  28. SEGINI SLCPR
  29. C
  30. C
  31. MELEME=MEL1
  32. NBELE=NUM(/2)
  33. NBNOE=NUM(/1)
  34. DO IELE=1,NBELE
  35. DO JNOEU=1,NBNOE
  36. NUMIJ=NUM(JNOEU,IELE)
  37. LCPR(NUMIJ)=.TRUE.
  38. END DO
  39. END DO
  40. C
  41. C
  42. MELEME=MEL2
  43. NBELE=NUM(/2)
  44. NBNOE=NUM(/1)
  45. LOG1=.FALSE.
  46. IELE=0
  47. DO WHILE ((.NOT. LOG1) .AND. (IELE .LT. NBELE))
  48. IELE=IELE+1
  49. DO JNOEU=1,NBNOE
  50. NUMIJ=NUM(JNOEU,IELE)
  51. LOG1=LOG1 .OR. LCPR(NUMIJ)
  52. END DO
  53. END DO
  54. SEGSUP SLCPR
  55. RETURN
  56. END
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  

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