tbpays
C TBPAYS SOURCE CHAT 05/01/13 03:33:36 5004 c subroutine utilisee dans tableau *************************************************** * * FORMAT LES PAGES EN PAYSAGE * *************************************************** * * 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 * 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. * END
© Cast3M 2003 - Tous droits réservés.
Mentions légales