Sources Esope | Cast3M

tbtrht
C TBTRHT    SOURCE    CHAT      05/01/13    03:33:44     5004
c subroutine utilisee dans tableau
***************************************************
*
*  MET A JOUR LA VALEUR DE IHTCOL
*  (hauteur des titres de colonne)
***************************************************
        SUBROUTINE TBTRHT ( TABTR , ITABX )
 
*
*  DEFINITION DES VARIABLES
*
      IMPLICIT INTEGER(I-N)
-INC TMNTAB
-INC SMLENTI
        INTEGER         ITABX, IX, IY
        INTEGER         NBMCX
        POINTEUR        LI.MLENTI
        CHARACTER*72    TMPCAR
*
        LI = 0
        IY = 1
        DO 2002 IX=1 , ITABX
          TMPCAR = TABTR.TITCOL (IX)
          CALL CFORMA (TMPCAR,12,NBMCX,LI)
          IY     = MAX (IY,NBMCX)
2002    CONTINUE
        TABTR.IHTCOL = IY
        IF  (LI.NE.0) SEGSUP LI
*
        END