Télécharger la plaquette Cast3M


fr en

Télécharger TMNTAB.INC

Retour à la liste

Numérotation des lignes : 

  1. *  OBJET TABTR
  2. *     ELEM(I,J)       CONTENUE DE LA CASE COLONNE M, LIGNE N
  3. *     YTYPE(I)        TYPE DES ELEMENTS DE LA COLONNE I
  4. *     ILARG(I)	      LARGEUR DE LA COLONNE I
  5. *     ZVSEP(I,J)      SEPARATION VERTICAL A GAUCHE DE LA CASE (I,J)
  6. *     ZHSEP(I,J)      SEPARATION HORIZONTALE AU DESSUS 
  7. *			DE LA CASE (I,J)
  8. *     ZGVSEP(I,J)    SEPARATION VERTICAL EN GRAS A GAUCHE 
  9. *			DE LA CASE (I,J)
  10. *     ZGHSEP(I,J)    SEPARATION HORIZONTALE EN GRAS AU DESSUS 
  11. *			DE LA CASE (I,J)
  12. *     TITGEN        TITRE DU TABLEAU
  13. *     SSTITR        SOUS TITRE POUR LE TABLEAU
  14. *     ZCADRE	      ENCADRER LE TITRE
  15. *     TITCOL(I)     TITRE DE LA COLONNE I
  16. *     IHTCOL          HAUTEUR DES TITRES DE COLONNE EN LIGNES
  17. *     ZDATE           METTRE LA DATE
  18. *     ZPAGE           METTRE LES NUMEROS DE PAGE
  19. *     ZCTRER	      CENTRER LES TABLEAUX
  20. *     ZAULIG     METTRE AUTOMATIQUEMENT LES ENCADREMENTS
  21. *     ZLOGO	      METTRE LE LOGO
  22. *     XLPOS,YLPOS     POSITION DU LOGO
  23. *     TLOGO	      TAILLE DU LOGO
  24. *     CSGX(I,J)	      NUMERO DE COL DU COIN SUP GAUCHE DE LA PAGE I,J
  25. *     CSGY(I,J)	      NUMERO DE LIG DU COIN SUP GAUCHE DE LA PAGE I,J
  26. *     CIDX(I,J)	      NUMERO DE COL DU COIN INF DROIT DE LA PAGE I,J
  27. *     CIDY(I,J)	      NUMERO DE LIG DU COIN INF DROIT DE LA PAGE I,J
  28. *     IHDEC(I,J)      DECALAGE HORIZONTAL POUR CENTRER LA PAGE I,J
  29. *     IVDEC(I,J)      DECALAGE VERTICAL POUR CENTRER LA PAGE I,J
  30. *     PX              NOMBRE DE PAGES EN X
  31. *     PY              NOMBRE DE PAGES EN Y
  32. *     ITEXC	      COULEUR DU TEXTE
  33. *     ILIGC	      COULEUR DES LIGNES
  34. *     IINDC	      COULEUR DES INDICATIONS
  35. *     ITITC	      COULEUR DES TITRES
  36. *     ILOGC	      COULEUR DU LOGO
  37. *
  38. * FONCTIONS
  39. *  F_ATOI		CONVERTIE UNE CHAINE EN ENTIER
  40. *  F_ATOL		CONVERTIE UNE CHAINE EN REAL*8
  41. *  F_LTOA		CONVERTIE UN REEL EN CHAINE
  42. *  F_ITOA		CONVERTIE UN ENTIER EN CHAINE
  43. *  ZEGALE	TEST SI 2 REAL*8 SONT EGAUX A EPSILON PRES
  44. *  ZTEST	FONCTION DE TEST AVEC CLE POUR LES TRIS
  45. *
  46.         SEGMENT TABTR
  47.            CHARACTER*30   ELEM   (ITABX,  ITABY  )
  48. 	   CHARACTER*8	  YTYPE	 (ITABX)
  49. 	   LOGICAL        ZVSEP  (ITABX+1,ITABY+1)
  50. 	   LOGICAL        ZHSEP  (ITABX+1,ITABY+1)
  51. 	   LOGICAL        ZGVSEP(ITABX+1,ITABY+1)
  52. 	   LOGICAL        ZGHSEP(ITABX+1,ITABY+1)
  53.            CHARACTER*128  TITGEN
  54. 	   LOGICAL 	  ZCADRE
  55.            CHARACTER*128  SSTITR
  56. 	   CHARACTER*72   TITCOL(ITABX)
  57. 	   INTEGER	  IHTCOL
  58. 	   LOGICAL        ZDATE
  59. 	   LOGICAL	  ZPAGE
  60. 	   LOGICAL	  ZCTRER
  61. 	   LOGICAL	  ZAULIG
  62. 	   LOGICAL	  ZLOGO
  63. 	   REAL*4	  XLPOS,YLPOS
  64. 	   REAL*4	  TLOGO
  65. 	   INTEGER	  CSGX   (PAGESX,PAGESY)
  66. 	   INTEGER	  CSGY   (PAGESX,PAGESY)
  67. 	   INTEGER	  CIDX   (PAGESX,PAGESY)
  68. 	   INTEGER	  CIDY   (PAGESX,PAGESY)
  69. 	   INTEGER	  IHDEC  (PAGESX,PAGESY)
  70. 	   INTEGER	  IVDEC  (PAGESX,PAGESY)
  71. 	   INTEGER	  PX,PY
  72. 	   INTEGER	  ILIGC,ITEXC,ICOLC,ITITC,ILOGC
  73. 	   LOGICAL        ZINDIC
  74.         ENDSEGMENT
  75. *
  76. *
  77. 	INTEGER		F_ATOI
  78. 	REAL*8		F_ATOL
  79. 	CHARACTER*10	F_ITOA
  80. 	CHARACTER*10	F_LTOA
  81. 	LOGICAL		TBZGAL
  82. 	LOGICAL		TBZTES
  83. *
  84.  

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