Esope source files

   1 : C TBTRCO    SOURCE    CHAT      05/01/13    03:33:42     5004           
   2 : c subroutine utilisee dans tableau
   3 : ***************************************************
   4 : *
   5 : *  TRIER LES COLONNES D'UN TABLEAU PAR RAPPORT
   6 : *    A LA LIGNE ILIG
   7 : *
   8 : ***************************************************
   9 :         SUBROUTINE TBTRCO ( ILIG, TNUM, TABTR, ITABX,ITABY )
  10 : 
  11 : *
  12 : *  DEFINITION DES VARIABLES
  13 : *
  14 :       IMPLICIT INTEGER(I-N)
  15 : -INC TMNTAB
  16 : 
  17 :         INTEGER         ILIG,ITABX,ITABY
  18 :         CHARACTER*30    CA,CB
  19 :         INTEGER         N,J
  20 :         INTEGER         TNUM
  21 :         LOGICAL ZTEST
  22 : *
  23 :         DO 1890 N=3 , ITABX, 1
  24 :           CA = TABTR.ELEM (N,ILIG)
  25 :           DO 1895 J= (N-1) , 2, -1
  26 :             CB = TABTR.ELEM (J,ILIG)
  26 :             IF  (ZTEST (CA,CB,TNUM)) CALL TBIVCO (J,J+1,TABTR,ITABY)
  27 : 1895      CONTINUE
  28 : 1890    CONTINUE
  29 : *
  30 :         END
  31 :  
  32 :