Télécharger la plaquette Cast3M


fr en

Télécharger tbafn.eso

Retour à la liste

Numérotation des lignes : 

tbafn

  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
  41.         CALL TBAFNC (TMPCAR,ICOUL,FX,FY,ZH,ZB,ZG,ZD
  42.      >                  ,ZGH,ZGB,ZGG,ZGD,TABTR)
  43. *
  44.         END
  45.  
  46.  
  47.  
  48.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales