Sources Esope | Cast3M

tbport
C TBPORT    SOURCE    CHAT      05/01/13    03:33:39     5004
c subroutine utilisee dans tableau
c source ensam    aout 94
 
***************************************************
*
*  FORMAT LES PAGES EN PORTRAIT
*
***************************************************
        SUBROUTINE TBPORT ( NBPX, NBPY, TABTR, ITABX,ITABY)
 
*
*  DEFINITION DES VARIABLES
*
      IMPLICIT INTEGER(I-N)
-INC TMNTAB
 
-INC PPARAM
-INC CCOPTIO
        INTEGER         NBPX, NBPY
        INTEGER         ITABX,ITABY
        INTEGER         NBCOUL
        INTEGER         NBGNES
        LOGICAL         VALEUR
        CHARACTER*10    TMPCAR
*
* CALCUL LA HAUTEUR DES TITRES DE COLONNE
*
        CALL TBTRHT (TABTR,ITABX)
*
* CALCUL DU NOMBRE DE PAGES
*
        NBGNES = 40-TABTR.IHTCOL
        NBPX =  (ITABX-2) / 4  + 1
        NBPY =  (ITABY-2) / NBGNES + 1
        TABTR.PX = NBPX
        TABTR.PY = NBPY
*
* REINITIALISE LA DEFINITION DES PAGES DU TABLEAU
*
          DO 1430 IX=1 , NBPX
            DO 1420 IY=1 , NBPY
                TABTR.CSGX ( IX,IY) = 1  +4 * (IX-1)+1
                TABTR.CSGY ( IX,IY) = 1  +NBGNES* (IY-1)+1
                TABTR.CIDX ( IX,IY) = 4  +4 * (IX-1)+1
                TABTR.CIDY ( IX,IY) = NBGNES +NBGNES* (IY-1)+1
1420      CONTINUE
1430    CONTINUE
          DO 1440 IY=1 , NBPY
            TABTR.CIDX ( NBPX,IY ) = ITABX
1440      CONTINUE
          DO 1450 IX=1 , NBPX
            TABTR.CIDY ( IX,NBPY ) = ITABY
1450      CONTINUE
*
* MET A JOUR LA VARIABLE POUR LA SORTIE POSTSCIPT
*
        ZHORIZ = .FALSE.
*
* RECENTRE LE TABLEAU SI NECESSAIRE
*
        CALL TBTRXY (TABTR,NBPX,NBPY)
*
        END