Esope source files

   1 : C TBAFN     SOURCE    CHAT      05/01/13    03:32:35     5004           
   2 : c subroutine utilisee dans tableau
   3 : ***************************************************
   4 : *
   5 : *  AFFICHE LA CASE (IX,IY) A LA POSITION FX,FY
   6 : *
   7 : ***************************************************
   8 :         SUBROUTINE TBAFN (IX,IY,FX,FY,TABTR)
   9 : 
  10 : *
  11 : *  DEFINITION DES VARIABLES
  12 : *
  13 :       IMPLICIT INTEGER(I-N)
  14 : -INC TMNTAB
  15 :         CHARACTER*10  TMPCAR
  16 :         INTEGER       IX,IY,FX,FY
  17 :         LOGICAL       ZH,ZB,ZG,ZD,ZGH,ZGB,ZGG,ZGD
  18 :         INTEGER         ICOUL
  19 : *
  20 :         ICOUL  = TABTR.ITEXC
  21 :         TMPCAR = TABTR.ELEM(IX,IY)
  22 :         IF (TABTR.ZAULIG) THEN
  23 :           ZG  = .TRUE.
  24 :           ZH  = TABTR.ZHSEP  (IX  ,IY  )
  25 :           ZD  = .TRUE.
  26 :           ZB  = TABTR.ZHSEP  (IX  ,IY+1)
  27 :           ZGG = TABTR.ZGVSEP(IX  ,IY  )
  28 :           ZGH = TABTR.ZGHSEP(IX  ,IY  )
  29 :           ZGD = TABTR.ZGVSEP(IX+1,IY  )
  30 :           ZGB = TABTR.ZGHSEP(IX  ,IY+1)
  31 :         ELSE
  32 :           ZG  = TABTR.ZVSEP  (IX  ,IY  )
  33 :           ZH  = TABTR.ZHSEP  (IX  ,IY  )
  34 :           ZD  = TABTR.ZVSEP  (IX+1,IY  )
  35 :           ZB  = TABTR.ZHSEP  (IX  ,IY+1)
  36 :           ZGG = TABTR.ZGVSEP(IX  ,IY  )
  37 :           ZGH = TABTR.ZGHSEP(IX  ,IY  )
  38 :           ZGD = TABTR.ZGVSEP(IX+1,IY  )
  39 :           ZGB = TABTR.ZGHSEP(IX  ,IY+1)
  40 :         ENDIF
  40 :         CALL TBAFNC (TMPCAR,ICOUL,FX,FY,ZH,ZB,ZG,ZD
  41 :      >                  ,ZGH,ZGB,ZGG,ZGD,TABTR)
  42 : *
  43 :         END
  44 : 
  45 :  
  46 :