Sources Esope | Cast3M

tbaff
C TBAFF     SOURCE    CHAT      05/01/13    03:32:28     5004
c subroutine utilisee dans tableau
***************************************************
*
*  AFFICHE LA PAGE IPX * IPY
*
***************************************************
        SUBROUTINE TBAFF (IPX, IPY, TABTR)
 
*
*  DEFINITION DES VARIABLES
*
      IMPLICIT INTEGER(I-N)
-INC TMNTAB
        INTEGER         IPX,IPY
        INTEGER         IEX,IEY,IX,IY,IXD,IYD
        INTEGER         IDEBY,IDEBX,IFINY,IFINX
        LOGICAL         ZHTMP,ZVTMP
        INTEGER         ICOUL
*
*  INITIALISATION DE LA NOUVELLE PAGE
        CALL TBEFF
*
*  AFFICHAGE DU LOGO SI NECESSAIRE
        ICOUL = TABTR.ILOGC
        IF  (TABTR.ZLOGO) THEN
          CALL NLOGO (ICOUL,TABTR.XLPOS,TABTR.YLPOS,TABTR.TLOGO)
        ENDIF
*
*  AFFICHER LES CASES DE LA PAGE IPX,IPY
        IDEBY = TABTR.CSGY  (IPX,IPY)
        IDEBX = TABTR.CSGX  (IPX,IPY)
        IFINY = TABTR.CIDY  (IPX,IPY)
        IFINX = TABTR.CIDX  (IPX,IPY)
        IXD   = TABTR.IHDEC (IPX,IPY)
        IYD   = TABTR.IVDEC (IPX,IPY)
        IY = 5 + TABTR.IHTCOL + IYD
        DO 1020 IEY=IDEBY , IFINY
          IX=2+IXD
          DO 1010 IEX=IDEBX , IFINX
            IF  ( (IEY.EQ.IFINY).AND.TABTR.ZAULIG) THEN
              ZHTMP = TABTR.ZHSEP (IEX,IEY+1)
              TABTR.ZHSEP (IEX,IEY+1)=.TRUE.
        CALL TBAFN  ( IEX, IEY, IX, IY, TABTR )
              TABTR.ZHSEP (IEX,IEY+1) = ZHTMP
            ENDIF
            IF  ( (IEX.EQ.IFINX).AND.TABTR.ZAULIG) THEN
              ZVTMP = TABTR.ZVSEP (IEX+1,IEY)
              TABTR.ZVSEP (IEX+1,IEY)=.TRUE.
        CALL TBAFN  ( IEX, IEY, IX, IY, TABTR )
              TABTR.ZVSEP (IEX+1,IEY) = ZVTMP
            ENDIF
        CALL TBAFN  ( IEX, IEY, IX, IY, TABTR )
            IX = IX + 1
1010      CONTINUE
          IY = IY + 1
1020    CONTINUE
*
*  AFFICHAGE DES TITRES
        CALL TBAFNT ( IPX, IPY, TABTR )
*
*  MEMORISATION POUR L'IMPRESSION
        CALL MAJSEG (1,0,0,0,0)
 
        END