Esope source files

   1 : C TBPAYS    SOURCE    CHAT      05/01/13    03:33:36     5004           
   2 : c subroutine utilisee dans tableau
   3 : ***************************************************
   4 : *
   5 : *  FORMAT LES PAGES EN PAYSAGE
   6 : *
   7 : ***************************************************
   8 :         SUBROUTINE TBPAYS ( NBPX, NBPY, TABTR, ITABX, ITABY)
   9 : 
  10 : *
  11 : *  DEFINITION DES VARIABLES
  12 : *
  13 :       IMPLICIT INTEGER(I-N)
  14 : -INC TMNTAB
  15 : -INC CCOPTIO                                                                    
  16 :         INTEGER         NBPX, NBPY
  17 :         INTEGER         ITABX,ITABY
  18 :         INTEGER         IX,IY
  19 :         INTEGER         NBCOUL
  20 :         INTEGER         NBGNES
  21 :         LOGICAL         VALEUR
  22 :         CHARACTER*10    TMPCAR
  23 : *
  24 :         SEGACT TABTR*MOD
  25 : *
  26 : * CALCUL DU NOMBRE DE PAGES
  27 : *
  27 :         CALL TBTRHT (TABTR,ITABX)
  28 :         NBGNES = 27 - TABTR.IHTCOL
  29 :         NBPX =  (ITABX-2) / 7 + 1
  30 :         NBPY =  (ITABY-2) / NBGNES + 1
  31 :         TABTR.PX = NBPX
  32 :         TABTR.PY = NBPY
  33 : *
  34 : * REINITIALISE LA DEFINITION DES PAGES DU TABLEAU
  35 : *
  36 :           DO 1530 IX=1 , NBPX
  37 :             DO 1520 IY=1 , NBPY
  38 :                 TABTR.CSGX ( IX,IY) = 1  +7 * (IX-1)+1
  39 :                 TABTR.CSGY ( IX,IY) = 1  +NBGNES* (IY-1)+1
  40 :                 TABTR.CIDX ( IX,IY) = 7  +7 * (IX-1)+1
  41 :                 TABTR.CIDY ( IX,IY) = NBGNES +NBGNES* (IY-1)+1
  42 : 1520      CONTINUE
  43 : 1530    CONTINUE
  44 :           DO 1540 IY=1 , NBPY
  45 :             TABTR.CIDX ( NBPX,IY ) = ITABX
  46 : 1540      CONTINUE
  47 :           DO 1550 IX=1 , NBPX
  48 :             TABTR.CIDY ( IX,NBPY ) = ITABY
  49 : 1550      CONTINUE
  50 : 
  51 :         ZHORIZ = .TRUE.
  51 :         CALL TBTRXY (TABTR,NBPX,NBPY)
  52 : *
  53 :         END
  54 :  
  55 :  
  56 :