echele.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\stbtel\echele.f
00002 !
00024                         SUBROUTINE ECHELE
00025 !                       *****************
00026 !
00027      &(IKLE, IEL1 , IEL2 )
00028 !
00029 !***********************************************************************
00030 ! PROGICIEL: STBTEL V5.2          28/08/89  J-M HERVOUET (LNH) 3071 8018
00031 !***********************************************************************
00032 !
00033 ! FONCTION : ECHANGE DES NUMEROS DE 2 ELEMENTS
00034 !
00035 !-----------------------------------------------------------------------
00036 !                             ARGUMENTS
00037 ! .________________.____.______________________________________________.
00038 ! |      NOM       |MODE|                   ROLE                       |
00039 ! |________________|____|______________________________________________|
00040 ! |  IKLE          |<-->|VECTEUR ASSEMBLE                              |
00041 ! |  IEL1, IEL2    | -->|NUMEROS DES NOEUDS A PERMUTER                 |
00042 ! |________________|____|______________________________________________
00043 ! | COMMON:        |    |
00044 ! |  GEO:          |    |
00045 ! |    MESH        | -->| TYPE DES ELEMENTS DU MAILLAGE
00046 ! |    NDP         | -->| NOMBRE DE NOEUDS PAR ELEMENTS
00047 ! |    NPOIN       | -->| NOMBRE TOTAL DE NOEUDS DU MAILLAGE
00048 ! |    NELEM       | -->| NOMBRE TOTAL D'ELEMENTS DU MAILLAGE
00049 ! |    NPMAX       | -->| DIMENSION EFFECTIVE DES TABLEAUX X ET Y
00050 ! |                |    | (NPMAX = NPOIN + 0.1*NELEM)
00051 ! |    NELMAX      | -->| DIMENSION EFFECTIVE DES TABLEAUX CONCERNANT
00052 ! |                |    | LES ELEMENTS (NELMAX = NELEM + 0.2*NELEM)
00053 ! |________________|____|______________________________________________|
00054 ! MODE : -->(DONNEE NON MODIFIEE), <--(RESULTAT), <-->(DONNEE MODIFIEE)
00055 !-----------------------------------------------------------------------
00056 ! APPELE PAR : SHUFLE
00057 !***********************************************************************
00058 !
00059       IMPLICIT NONE
00060       INTEGER LNG,LU
00061       COMMON/INFO/LNG,LU
00062 !
00063       INTEGER MESH , NDP , I , IEL1 , IEL2 , NPMAX , NELEM
00064       INTEGER NPOIN , NELMAX
00065       INTEGER IKLE(NELMAX,4) , STO(4)
00066 !
00067       COMMON/GEO/ MESH , NDP , NPOIN , NELEM , NPMAX , NELMAX
00068 !
00069 !=======================================================================
00070 !
00071       DO I = 1 , NDP
00072         STO(I) = IKLE(IEL1,I)
00073         IKLE(IEL1,I) = IKLE(IEL2,I)
00074         IKLE(IEL2,I) = STO(I)
00075       ENDDO
00076 !
00077 !=======================================================================
00078 !
00079       RETURN
00080       END

Generated on Fri Aug 31 2013 18:12:58 by S.E.Bourban (HRW) using doxygen 1.7.0