echele.f

Go to the documentation of this file.

!                       *****************
                        SUBROUTINE echele
!                       *****************
!
     &(ikle, iel1 , iel2 )
!
!***********************************************************************
! PROGICIEL: STBTEL V5.2          28/08/89  J-M HERVOUET (LNH) 3071 8018
!***********************************************************************
!
! FONCTION : ECHANGE DES NUMEROS DE 2 ELEMENTS
!
!-----------------------------------------------------------------------
!                             ARGUMENTS
! .________________.____.______________________________________________.
! |      NOM       |MODE|                   ROLE                       |
! |________________|____|______________________________________________|
! |  IKLE          |<-->|VECTEUR ASSEMBLE                              |
! |  IEL1, IEL2    | -->|NUMEROS DES NOEUDS A PERMUTER                 |
! |________________|____|______________________________________________
! | COMMON:        |    |
! |  GEO:          |    |
! |    MESH        | -->| TYPE DES ELEMENTS DU MAILLAGE
! |    NDP         | -->| NOMBRE DE NOEUDS PAR ELEMENTS
! |    NPOIN       | -->| NOMBRE TOTAL DE NOEUDS DU MAILLAGE
! |    NELEM       | -->| NOMBRE TOTAL D'ELEMENTS DU MAILLAGE
! |    NPMAX       | -->| DIMENSION EFFECTIVE DES TABLEAUX X ET Y
! |                |    | (NPMAX = NPOIN + 0.1*NELEM)
! |    NELMAX      | -->| DIMENSION EFFECTIVE DES TABLEAUX CONCERNANT
! |                |    | LES ELEMENTS (NELMAX = NELEM + 0.2*NELEM)
! |________________|____|______________________________________________|
! MODE : -->(DONNEE NON MODIFIEE), <--(RESULTAT), <-->(DONNEE MODIFIEE)
!-----------------------------------------------------------------------
! APPELE PAR : SHUFLE
!***********************************************************************
!
      USE declarations_special
      USE declarations_stbtel
      IMPLICIT NONE
!
      INTEGER, INTENT(IN) :: IEL1 , IEL2
      INTEGER, INTENT(INOUT) :: IKLE(nelmax,4)
!
      INTEGER STO(4), I
!
!
!=======================================================================
!
      DO i = 1 , ndp
        sto(i) = ikle(iel1,i)
        ikle(iel1,i) = ikle(iel2,i)
        ikle(iel2,i) = sto(i)
      ENDDO
!
!=======================================================================
!
      RETURN
      END