C TBTRLI    SOURCE    CHAT      05/01/13    03:33:47     5004           
c subroutine utilisee dans tableau
***************************************************
*
*  TRIER LES LIGNES D'UN TABLEAU PAR RAPPORT
*    A LA COLONNE ICOL
*
***************************************************
        SUBROUTINE TBTRLI ( ICOL, TNUM, TABTR, ITABX,ITABY )

*
*  DEFINITION DES VARIABLES
*
      IMPLICIT INTEGER(I-N)
-INC TMNTAB

        INTEGER         ICOL,ITABX,ITABY
        REAL*8          RA,RB
        CHARACTER*30    CA,CB
        INTEGER         N,J
        INTEGER         TNUM
        LOGICAL ZTEST
*
        DO 1690 N=3 , ITABY, 1
          CA = TABTR.ELEM (ICOL,N)
          DO 1695 J= (N-1) , 2, -1
            CB = TABTR.ELEM (ICOL,J)
            IF  (ZTEST (CA,CB,TNUM)) CALL TBIVLI (J,J+1,TABTR,ITABX)
1695      CONTINUE
1690    CONTINUE
*
        END