Sources Esope | Cast3M

tbivca
C TBIVCA    SOURCE    CHAT      05/01/13    03:33:07     5004
c subroutine utilisee dans tableau
***************************************************
*
*  INVERSER 2 CASES DANS UN TABLEAU
*
***************************************************
        SUBROUTINE TBIVCA ( IXA,IYA,IXB,IYB, TABTR )
 
*
*  DEFINITION DES VARIABLES
*
      IMPLICIT INTEGER(I-N)
-INC TMNTAB
        INTEGER         IXA,IXB,IYA,IYB
        CHARACTER*30    TMPCAR
*
          TMPCAR = TABTR.ELEM(IXA,IYA)
          TABTR.ELEM(IXA,IYA) = TABTR.ELEM(IXB,IYB)
          TABTR.ELEM(IXB,IYB) = TMPCAR
*
        END