Télécharger tbpays.eso

Retour à la liste

Numérotation des lignes :

tbpays
  1. C TBPAYS SOURCE CHAT 05/01/13 03:33:36 5004
  2. c subroutine utilisee dans tableau
  3. ***************************************************
  4. *
  5. * FORMAT LES PAGES EN PAYSAGE
  6. *
  7. ***************************************************
  8. SUBROUTINE TBPAYS ( NBPX, NBPY, 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 NBPX, NBPY
  19. INTEGER ITABX,ITABY
  20. INTEGER IX,IY
  21. INTEGER NBCOUL
  22. INTEGER NBGNES
  23. LOGICAL VALEUR
  24. CHARACTER*10 TMPCAR
  25. *
  26. SEGACT TABTR*MOD
  27. *
  28. * CALCUL DU NOMBRE DE PAGES
  29. *
  30. CALL TBTRHT (TABTR,ITABX)
  31. NBGNES = 27 - TABTR.IHTCOL
  32. NBPX = (ITABX-2) / 7 + 1
  33. NBPY = (ITABY-2) / NBGNES + 1
  34. TABTR.PX = NBPX
  35. TABTR.PY = NBPY
  36. *
  37. * REINITIALISE LA DEFINITION DES PAGES DU TABLEAU
  38. *
  39. DO 1530 IX=1 , NBPX
  40. DO 1520 IY=1 , NBPY
  41. TABTR.CSGX ( IX,IY) = 1 +7 * (IX-1)+1
  42. TABTR.CSGY ( IX,IY) = 1 +NBGNES* (IY-1)+1
  43. TABTR.CIDX ( IX,IY) = 7 +7 * (IX-1)+1
  44. TABTR.CIDY ( IX,IY) = NBGNES +NBGNES* (IY-1)+1
  45. 1520 CONTINUE
  46. 1530 CONTINUE
  47. DO 1540 IY=1 , NBPY
  48. TABTR.CIDX ( NBPX,IY ) = ITABX
  49. 1540 CONTINUE
  50. DO 1550 IX=1 , NBPX
  51. TABTR.CIDY ( IX,NBPY ) = ITABY
  52. 1550 CONTINUE
  53.  
  54. ZHORIZ = .TRUE.
  55. CALL TBTRXY (TABTR,NBPX,NBPY)
  56. *
  57. END
  58.  
  59.  
  60.  
  61.  

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