Sources Esope | Cast3M

tbtrxy
C TBTRXY    SOURCE    CHAT      05/01/13    03:33:50     5004
c subroutine utilisee dans tableau
***************************************************
*
*  MET A JOUR LES VALEURS DE IHDEC ET IVDEC
*  (pour le centrage du tableau)
***************************************************
        SUBROUTINE TBTRXY ( TABTR , NBPX, NBPY)
 
*
*  DEFINITION DES VARIABLES
*
      IMPLICIT INTEGER(I-N)
-INC TMNTAB
 
-INC PPARAM
-INC CCOPTIO
        INTEGER         NBPX,NBPY
        INTEGER         IHAUT,ILARG
*
        DO 200 IX=1 , NBPX
        DO 100 IY=1 , NBPY
        IF  (TABTR.ZCTRER) THEN
          IHAUT = TABTR.IHTCOL + TABTR.CIDY (IX,IY)-TABTR.CSGY (IX,IY)+1
          ILARG = TABTR.CIDX (IX,IY)-TABTR.CSGX (IX,IY)+2
          IF  (ZHORIZ) THEN
            IF  (IHAUT.LT. (26-TABTR.IHTCOL)) THEN
              TABTR.IVDEC (IX,IY)= (27-IHAUT)/2
            ELSE
              TABTR.IVDEC (IX,IY)=0
            ENDIF
            IF  (ILARG.LT.7) THEN
              TABTR.IHDEC (IX,IY)= (8-ILARG)/2
            ELSE
              TABTR.IHDEC (IX,IY)=0
            ENDIF
          ELSE
            IF  (IHAUT.LT. (39-TABTR.IHTCOL)) THEN
              TABTR.IVDEC (IX,IY)= (40-IHAUT)/2
            ELSE
              TABTR.IVDEC (IX,IY)=0
            ENDIF
            IF  (ILARG.LT.4) THEN
              TABTR.IHDEC (IX,IY)= (5-ILARG)/2
            ELSE
              TABTR.IHDEC (IX,IY)=0
            ENDIF
          ENDIF
        ELSE
          TABTR.IVDEC (IX,IY)=0
          TABTR.IHDEC (IX,IY)=0
        ENDIF
100     CONTINUE
200     CONTINUE
*
        END