1 : C TBPORT SOURCE CHAT 05/01/13 03:33:39 5004 2 : c subroutine utilisee dans tableau 3 : c source ensam aout 94 4 : 5 : *************************************************** 6 : * 7 : * FORMAT LES PAGES EN PORTRAIT 8 : * 9 : *************************************************** 10 : SUBROUTINE TBPORT ( NBPX, NBPY, TABTR, ITABX,ITABY) 11 : 12 : * 13 : * DEFINITION DES VARIABLES 14 : * 15 : IMPLICIT INTEGER(I-N) 16 : -INC TMNTAB 17 : -INC CCOPTIO 18 : INTEGER NBPX, NBPY 19 : INTEGER ITABX,ITABY 20 : INTEGER NBCOUL 21 : INTEGER NBGNES 22 : LOGICAL VALEUR 23 : CHARACTER*10 TMPCAR 24 : * 25 : * CALCUL LA HAUTEUR DES TITRES DE COLONNE 26 : * 26 : CALL TBTRHT (TABTR,ITABX) 27 : * 28 : * CALCUL DU NOMBRE DE PAGES 29 : * 30 : NBGNES = 40-TABTR.IHTCOL 31 : NBPX = (ITABX-2) / 4 + 1 32 : NBPY = (ITABY-2) / NBGNES + 1 33 : TABTR.PX = NBPX 34 : TABTR.PY = NBPY 35 : * 36 : * REINITIALISE LA DEFINITION DES PAGES DU TABLEAU 37 : * 38 : DO 1430 IX=1 , NBPX 39 : DO 1420 IY=1 , NBPY 40 : TABTR.CSGX ( IX,IY) = 1 +4 * (IX-1)+1 41 : TABTR.CSGY ( IX,IY) = 1 +NBGNES* (IY-1)+1 42 : TABTR.CIDX ( IX,IY) = 4 +4 * (IX-1)+1 43 : TABTR.CIDY ( IX,IY) = NBGNES +NBGNES* (IY-1)+1 44 : 1420 CONTINUE 45 : 1430 CONTINUE 46 : DO 1440 IY=1 , NBPY 47 : TABTR.CIDX ( NBPX,IY ) = ITABX 48 : 1440 CONTINUE 49 : DO 1450 IX=1 , NBPX 50 : TABTR.CIDY ( IX,NBPY ) = ITABY 51 : 1450 CONTINUE 52 : * 53 : * MET A JOUR LA VARIABLE POUR LA SORTIE POSTSCIPT 54 : * 55 : ZHORIZ = .FALSE. 56 : * 57 : * RECENTRE LE TABLEAU SI NECESSAIRE 58 : * 58 : CALL TBTRXY (TABTR,NBPX,NBPY) 59 : * 60 : END 61 : 62 :
© Cast3M 2003 - All rights reserved.
Disclaimer