The TELEMAC-MASCARET system  trunk
echele.f
Go to the documentation of this file.
1 ! *****************
2  SUBROUTINE echele
3 ! *****************
4 !
5  &(ikle, iel1 , iel2 )
6 !
7 !***********************************************************************
8 ! PROGICIEL: STBTEL V5.2 28/08/89 J-M HERVOUET (LNH) 3071 8018
9 !***********************************************************************
10 !
11 ! FONCTION : ECHANGE DES NUMEROS DE 2 ELEMENTS
12 !
13 !-----------------------------------------------------------------------
14 ! ARGUMENTS
15 ! .________________.____.______________________________________________.
16 ! | NOM |MODE| ROLE |
17 ! |________________|____|______________________________________________|
18 ! | IKLE |<-->|VECTEUR ASSEMBLE |
19 ! | IEL1, IEL2 | -->|NUMEROS DES NOEUDS A PERMUTER |
20 ! |________________|____|______________________________________________
21 ! | COMMON: | |
22 ! | GEO: | |
23 ! | MESH | -->| TYPE DES ELEMENTS DU MAILLAGE
24 ! | NDP | -->| NOMBRE DE NOEUDS PAR ELEMENTS
25 ! | NPOIN | -->| NOMBRE TOTAL DE NOEUDS DU MAILLAGE
26 ! | NELEM | -->| NOMBRE TOTAL D'ELEMENTS DU MAILLAGE
27 ! | NPMAX | -->| DIMENSION EFFECTIVE DES TABLEAUX X ET Y
28 ! | | | (NPMAX = NPOIN + 0.1*NELEM)
29 ! | NELMAX | -->| DIMENSION EFFECTIVE DES TABLEAUX CONCERNANT
30 ! | | | LES ELEMENTS (NELMAX = NELEM + 0.2*NELEM)
31 ! |________________|____|______________________________________________|
32 ! MODE : -->(DONNEE NON MODIFIEE), <--(RESULTAT), <-->(DONNEE MODIFIEE)
33 !-----------------------------------------------------------------------
34 ! APPELE PAR : SHUFLE
35 !***********************************************************************
36 !
39  IMPLICIT NONE
40 !
41  INTEGER, INTENT(IN) :: IEL1 , IEL2
42  INTEGER, INTENT(INOUT) :: IKLE(nelmax,4)
43 !
44  INTEGER STO(4), I
45 !
46 !
47 !=======================================================================
48 !
49  DO i = 1 , ndp
50  sto(i) = ikle(iel1,i)
51  ikle(iel1,i) = ikle(iel2,i)
52  ikle(iel2,i) = sto(i)
53  ENDDO
54 !
55 !=======================================================================
56 !
57  RETURN
58  END
subroutine echele(IKLE, IEL1, IEL2)
Definition: echele.f:7