1 : C TBDELC SOURCE CHAT 05/01/13 03:32:44 5004 2 : c subroutine utilisee dans tableau 3 : *************************************************** 4 : * 5 : * SUPPRIMER UNE COLONNE DANS UN TABLEAU 6 : * 7 : *************************************************** 8 : SUBROUTINE TBDELC (ICOL,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 ICOL,NBPX,NBPY,ITABX,ITABY 17 : INTEGER IX,IY,PAGESX,PAGESY 18 : * 19 : IF (ICOL.LT.1) RETURN 20 : IF (ICOL.GT.ITABX) RETURN 21 : IF (ITABX.EQ.1) RETURN 22 : DO 100 IX=ICOL , ITABX-1 23 : TABTR.YTYPE (IX) = TABTR.YTYPE (IX+1) 24 : TABTR.TITCOL (IX) = TABTR.TITCOL (IX+1) 25 : DO 50 IY=1 , ITABY 26 : TABTR.ELEM (IX,IY) = TABTR.ELEM (IX+1,IY) 27 : TABTR.ZVSEP (IX,IY) = TABTR.ZVSEP (IX+1,IY) 28 : TABTR.ZHSEP (IX,IY) = TABTR.ZHSEP (IX+1,IY) 29 : TABTR.ZGVSEP (IX,IY) = TABTR.ZGVSEP (IX+1,IY) 30 : TABTR.ZGHSEP (IX,IY) = TABTR.ZGHSEP (IX+1,IY) 31 : 50 CONTINUE 32 : TABTR.ZVSEP (IX,ITABY+1) = TABTR.ZVSEP (IX+1,ITABY+1) 33 : TABTR.ZHSEP (IX,ITABY+1) = TABTR.ZHSEP (IX+1,ITABY+1) 34 : TABTR.ZGVSEP (IX,ITABY+1) = TABTR.ZGVSEP (IX+1,ITABY+1) 35 : TABTR.ZGHSEP (IX,ITABY+1) = TABTR.ZGHSEP (IX+1,ITABY+1) 36 : 100 CONTINUE 37 : ITABX=ITABX-1 38 : * 39 : * CALCUL DU NOMBRE DE PAGES MAXI 40 : * 41 : PAGESX = (ITABX-2) / 4 + 1 42 : PAGESY = (ITABY-2) / 20 + 1 43 : * 44 : * AJUSTEMENT DU TABLEAU 45 : SEGADJ TABTR 46 : * 47 : IF (ZHORIZ) THEN 47 : CALL TBPAYS (NBPX,NBPY,TABTR,ITABX,ITABY) 48 : ELSE 48 : CALL TBPORT (NBPX,NBPY,TABTR,ITABX,ITABY) 49 : ENDIF 50 : * 51 : END 52 : 53 : 54 :
© Cast3M 2003 - All rights reserved.
Disclaimer