Esope source files

   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 :