Esope source files

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