Sources Esope | Cast3M

spperm
C SPPERM    SOURCE    CHAT      06/03/29    21:34:50     5360
      SUBROUTINE SPPERM(TAB,NBNMAX,NBE,IT1,IT2,iarr)
C     **********************************************************************
C     OBJET : PERMUTE 2 ELEMENTS D'UN TABLEAU
C     EN ENTREE:
C      ITAB     :   TABLEAU DES ELEMENTS
C      NBCMAX :    (2..6) NOMBRE DE COTES MAXIMUM DES ELEMENTS
C      NBE     :   NOMBRE D'ELEMENTS DU MAILLAGE
C      ITL,IT2:    LES 2 ELEMENTS A PERMUTER
C     EN SORTIE:
C     **********************************************************************
      IMPLICIT INTEGER(I-N)
      REAL*8        TAB(*)
      INTEGER     NBNMAX,NBE
      INTEGER     IT1, IT2, iarr
C
      INTEGER I
      REAL*8     TAMPON(4)
C
      IF( IT1 .EQ. IT2 )GO TO 999
      IF((IT1.LT.1).OR.(IT1.GT.NBE).OR.
     >    (IT2.LT.1).OR.(IT2.GT.NBE))THEN
        iarr = -1
        GO TO 999
      ENDIF
C     ------------------ SAUVEGARDE IT2 ---
      DO 10 I=1,NBNMAX
       TAMPON(I)=TAB((IT2-1)*NBNMAX+I)
   10 CONTINUE
C     ---------- TRANSFERT IT1 -> IT2 ----------
      DO 20 I=1,NBNMAX
        TAB((IT2-1)*NBNMAX+I)=TAB((IT1-1)*NBNMAX+I)
   20 CONTINUE
C     ---------- TRANSFERT IT2 -> IT1 ----------
      DO 30 I=1,NBNMAX
        TAB((IT1-1)*NBNMAX+I)=TAMPON(I)
   30 CONTINUE
C     ------------------
  999 END