Sources Esope | Cast3M

tbdell
C TBDELL    SOURCE    CHAT      05/01/13    03:32:47     5004
c subroutine utilisee dans tableau
***************************************************
*
*  SUPPRIMER UNE LIGNE DANS UN TABLEAU
*
***************************************************
        SUBROUTINE TBDELL (ILIG,NBPX,NBPY,TABTR,ITABX,ITABY)
 
*
*  DEFINITION DES VARIABLES
*
      IMPLICIT INTEGER(I-N)
-INC TMNTAB
 
-INC PPARAM
-INC CCOPTIO
        INTEGER         ILIG,NBPX,NBPY,ITABX,ITABY
        INTEGER         IX,IY,PAGESX,PAGESY
*
        IF  (ILIG.LT.1) RETURN
        IF  (ILIG.GT.ITABY) RETURN
        IF  (ITABY.LT.3) RETURN
        DO 100 IY=ILIG , ITABY-1
          DO 50 IX=1 , ITABX
            TABTR.ELEM    (IX,IY) = TABTR.ELEM    (IX,IY+1)
            TABTR.ZVSEP   (IX,IY) = TABTR.ZVSEP   (IX,IY+1)
            TABTR.ZHSEP   (IX,IY) = TABTR.ZHSEP   (IX,IY+1)
            TABTR.ZGVSEP (IX,IY) = TABTR.ZGVSEP (IX,IY+1)
            TABTR.ZGHSEP (IX,IY) = TABTR.ZGHSEP (IX,IY+1)
50        CONTINUE
          TABTR.ZVSEP   (ITABX+1,IY) = TABTR.ZVSEP   (ITABX+1,IY+1)
          TABTR.ZHSEP   (ITABX+1,IY) = TABTR.ZHSEP   (ITABX+1,IY+1)
          TABTR.ZGVSEP (ITABX+1,IY) = TABTR.ZGVSEP (ITABX+1,IY+1)
          TABTR.ZGHSEP (ITABX+1,IY) = TABTR.ZGHSEP (ITABX+1,IY+1)
100     CONTINUE
        IF  (ILIG.EQ.1) THEN
          DO 130 IX=1 , ITABX
            TABTR.TITCOL (IX) = TABTR.ELEM (IX,1)
130       CONTINUE
        ENDIF
        ITABY=ITABY-1
*
* CALCUL DU NOMBRE DE PAGES MAXI
*
        PAGESX =  (ITABX-2) / 4 + 1
        PAGESY =  (ITABY-2) / 20 + 1
*
*  AJUSTEMENT DU TABLEAU
        SEGADJ TABTR
*
        IF  (ZHORIZ) THEN
        CALL TBPAYS (NBPX,NBPY,TABTR,ITABX,ITABY)
        ELSE
        CALL TBPORT (NBPX,NBPY,TABTR,ITABX,ITABY)
        ENDIF
*
        END