Télécharger la plaquette Cast3M


fr en

Télécharger madjac.eso

Retour à la liste

Numérotation des lignes : 

madjac

  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