Télécharger madjac.eso

Retour à la liste

Numérotation des lignes :

  1. C MADJAC SOURCE CHAT 05/01/13 01:27:42 5004
  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. -INC CCOPTIO
  16. -INC SMELEME
  17. -INC SMCOORD
  18. SEGMENT SLCPR
  19. LOGICAL LCPR (NN1)
  20. END SEGMENT
  21. INTEGER NBELE,NBNOEU,IELE,JNOEU,NUMIJ
  22. LOGICAL LOG1
  23. C
  24. C
  25. NN1=(XCOOR(/1)/(IDIM+1))
  26. SEGINI SLCPR
  27. C
  28. C
  29. MELEME=MEL1
  30. NBELE=NUM(/2)
  31. NBNOE=NUM(/1)
  32. DO IELE=1,NBELE
  33. DO JNOEU=1,NBNOE
  34. NUMIJ=NUM(JNOEU,IELE)
  35. LCPR(NUMIJ)=.TRUE.
  36. END DO
  37. END DO
  38. C
  39. C
  40. MELEME=MEL2
  41. NBELE=NUM(/2)
  42. NBNOE=NUM(/1)
  43. LOG1=.FALSE.
  44. IELE=0
  45. DO WHILE ((.NOT. LOG1) .AND. (IELE .LT. NBELE))
  46. IELE=IELE+1
  47. DO JNOEU=1,NBNOE
  48. NUMIJ=NUM(JNOEU,IELE)
  49. LOG1=LOG1 .OR. LCPR(NUMIJ)
  50. END DO
  51. END DO
  52. SEGSUP SLCPR
  53. RETURN
  54. END
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  

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