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