Sources Esope | Cast3M

tbtrco
C TBTRCO    SOURCE    CHAT      05/01/13    03:33:42     5004
c subroutine utilisee dans tableau
***************************************************
*
*  TRIER LES COLONNES D'UN TABLEAU PAR RAPPORT
*    A LA LIGNE ILIG
*
***************************************************
        SUBROUTINE TBTRCO ( ILIG, TNUM, TABTR, ITABX,ITABY )
 
*
*  DEFINITION DES VARIABLES
*
      IMPLICIT INTEGER(I-N)
-INC TMNTAB
 
        INTEGER         ILIG,ITABX,ITABY
        CHARACTER*30    CA,CB
        INTEGER         N,J
        INTEGER         TNUM
        LOGICAL ZTEST
*
        DO 1890 N=3 , ITABX, 1
          CA = TABTR.ELEM (N,ILIG)
          DO 1895 J= (N-1) , 2, -1
            CB = TABTR.ELEM (J,ILIG)
            IF  (ZTEST (CA,CB,TNUM)) CALL TBIVCO (J,J+1,TABTR,ITABY)
1895      CONTINUE
1890    CONTINUE
*
        END