Esope source files

   1 : C TBIVCO    SOURCE    CHAT      05/01/13    03:33:10     5004           
   2 : c subroutine utilisee dans tableau
   3 : ***************************************************
   4 : *
   5 : *  INVERSER 2 COLONNES DANS UN TABLEAU
   6 : *
   7 : ***************************************************
   8 :         SUBROUTINE TBIVCO ( COLA, COLB, TABTR , ITABY)
   9 : 
  10 : *
  11 : *  DEFINITION DES VARIABLES
  12 : *
  13 :       IMPLICIT INTEGER(I-N)
  14 : -INC TMNTAB
  15 :         INTEGER         COLA, COLB
  16 :         INTEGER         ITABY, IY
  17 :         CHARACTER*72    TMPCNE
  18 : *
  19 :         DO 1810 IY=1 , ITABY, 1
  19 :         CALL TBIVCA (COLA,IY,COLB,IY,TABTR)
  20 : 1810    CONTINUE
  21 :         TMPCNE = TABTR.YTYPE(COLA)
  22 :         TABTR.YTYPE(COLA) = TABTR.YTYPE(COLB)
  23 :         TABTR.YTYPE(COLB) = TMPCNE
  24 :         TMPCNE = TABTR.TITCOL(COLA)
  25 :         TABTR.TITCOL(COLA) = TABTR.TITCOL(COLB)
  26 :         TABTR.TITCOL(COLB) = TMPCNE
  27 : *
  28 :         END
  29 :  
  30 :