Sources Esope | Cast3M

tbivco
C TBIVCO    SOURCE    CHAT      05/01/13    03:33:10     5004
c subroutine utilisee dans tableau
***************************************************
*
*  INVERSER 2 COLONNES DANS UN TABLEAU
*
***************************************************
        SUBROUTINE TBIVCO ( COLA, COLB, TABTR , ITABY)
 
*
*  DEFINITION DES VARIABLES
*
      IMPLICIT INTEGER(I-N)
-INC TMNTAB
        INTEGER         COLA, COLB
        INTEGER         ITABY, IY
        CHARACTER*72    TMPCNE
*
        DO 1810 IY=1 , ITABY, 1
        CALL TBIVCA (COLA,IY,COLB,IY,TABTR)
1810    CONTINUE
        TMPCNE = TABTR.YTYPE(COLA)
        TABTR.YTYPE(COLA) = TABTR.YTYPE(COLB)
        TABTR.YTYPE(COLB) = TMPCNE
        TMPCNE = TABTR.TITCOL(COLA)
        TABTR.TITCOL(COLA) = TABTR.TITCOL(COLB)
        TABTR.TITCOL(COLB) = TMPCNE
*
        END