Télécharger la plaquette Cast3M


fr en

Télécharger tbini.eso

Retour à la liste

Numérotation des lignes : 

tbini

  1. C TBINI     SOURCE    CHAT      05/01/13    03:33:04     5004
  2. c subroutine utilisee dans tableau
  3. ***************************************************
  4. *
  5. *  INITIALISE UN TABLEAU
  6. *
  7. ***************************************************
  8.         SUBROUTINE TBINI (TABTR,ITABX,ITABY)
  9.  
  10. *
  11. *  DEFINITION DES VARIABLES
  12. *
  13.       IMPLICIT INTEGER(I-N)
  14. -INC TMNTAB
  15.  
  16. -INC PPARAM
  17. -INC CCOPTIO
  18.         INTEGER ITABX,ITABY
  19.         INTEGER IX,IY
  20. *
  21.         TABTR.TITGEN    = '  '
  22.         TABTR.SSTITR   = '  '
  23.         TABTR.ZDATE       = .TRUE.
  24.         TABTR.ZCTRER    = .TRUE.
  25.         TABTR.ZAULIG = .TRUE.
  26.         TABTR.ZLOGO       = .FALSE.
  27.         TABTR.TLOGO       = 1.5
  28.         IF (ZHORIZ) THEN
  29.           TABTR.XLPOS     = 24.3
  30.           TABTR.YLPOS     = 19.46
  31.         ELSE
  32.           TABTR.XLPOS     = 20.2
  33.           TABTR.YLPOS     = 28.2
  34.         ENDIF
  35.         TABTR.ICOLC       = 0
  36.         TABTR.ITEXC       = 0
  37.         TABTR.ILIGC       = 0
  38.         TABTR.ITITC       = 0
  39.         TABTR.ILOGC       = 0
  40.  
  41.         DO 100 IX=1 , ITABX
  42.           TABTR.TITCOL (IX) = '  '
  43.         DO 200 IY=1 , ITABY
  44.           TABTR.ELEM(IX,IY)='  '
  45. 200     CONTINUE
  46. 100     CONTINUE
  47.  
  48.         DO 400 IX=1 , ITABX+1
  49.         DO 300 IY=1 , ITABY+1
  50.           TABTR.ZVSEP(IX,IY)=.FALSE.
  51.           TABTR.ZHSEP(IX,IY)=.FALSE.
  52.           TABTR.ZGVSEP(IX,IY)=.FALSE.
  53.           TABTR.ZGHSEP(IX,IY)=.FALSE.
  54. 300     CONTINUE
  55. 400     CONTINUE
  56.  
  57. * REGARDE S'IL FAUT METTRE LES NUMEROS DE PAGES
  58.         IF (TABTR.PX*TABTR.PY.GT.1) THEN
  59.           TABTR.ZPAGE = .TRUE.
  60.         ELSE
  61.           TABTR.ZPAGE = .FALSE.
  62.         ENDIF
  63. *
  64.         END
  65.  
  66.  
  67.  

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