Sources Esope | Cast3M

tbpays
C TBPAYS    SOURCE    CHAT      05/01/13    03:33:36     5004
c subroutine utilisee dans tableau
***************************************************
*
*  FORMAT LES PAGES EN PAYSAGE
*
***************************************************
        SUBROUTINE TBPAYS ( 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         IX,IY
        INTEGER         NBCOUL
        INTEGER         NBGNES
        LOGICAL         VALEUR
        CHARACTER*10    TMPCAR
*
        SEGACT TABTR*MOD
*
* CALCUL DU NOMBRE DE PAGES
*
        CALL TBTRHT (TABTR,ITABX)
        NBGNES = 27 - TABTR.IHTCOL
        NBPX =  (ITABX-2) / 7 + 1
        NBPY =  (ITABY-2) / NBGNES + 1
        TABTR.PX = NBPX
        TABTR.PY = NBPY
*
* REINITIALISE LA DEFINITION DES PAGES DU TABLEAU
*
          DO 1530 IX=1 , NBPX
            DO 1520 IY=1 , NBPY
                TABTR.CSGX ( IX,IY) = 1  +7 * (IX-1)+1
                TABTR.CSGY ( IX,IY) = 1  +NBGNES* (IY-1)+1
                TABTR.CIDX ( IX,IY) = 7  +7 * (IX-1)+1
                TABTR.CIDY ( IX,IY) = NBGNES +NBGNES* (IY-1)+1
1520      CONTINUE
1530    CONTINUE
          DO 1540 IY=1 , NBPY
            TABTR.CIDX ( NBPX,IY ) = ITABX
1540      CONTINUE
          DO 1550 IX=1 , NBPX
            TABTR.CIDY ( IX,NBPY ) = ITABY
1550      CONTINUE
 
        ZHORIZ = .TRUE.
        CALL TBTRXY (TABTR,NBPX,NBPY)
*
        END