Télécharger CCASSIS.INC

Retour à la liste

Numérotation des lignes :

  1. ** pour le fonctionnement des ASSISTANTs
  2. ** """""""""""""""""""""""""""""""""""""""
  3. ** 04/04/14: Modif GF: declaration explicite des variables
  4. ** utilisation par le MAITRE
  5. ** """""""""""""""""""""""""""
  6. ** NBESC : nombre d'ASSISTANTs
  7. ** NBESCR : nombre d'ASSISTANTs possibles
  8. ** NBTHRS : nombre de threads possibles pour resou
  9. ** MESCL : liste des pointeurs sur les listes des instructions
  10. ** pour les ASSISTANTs
  11. ** IPCAR1 : pointeur sur la chaine contenant la ligne de commande
  12. ** (pour les erreurs)
  13. common/cassis/nbesc,mescl(0:512),ipcar1,nbescr,nbthrs
  14. integer nbesc,mescl,ipcar1,nbescr,nbthrs
  15. **
  16. ** pour le decodage des objets et pour trouver l'instruction
  17. ** LODESL : VRAI dans l'operateur ASSIstant
  18. ** LOTRMA : le maitre doit faire le travail d'un assistant
  19. ** LOTESC : logique indiquant le fonctionnement en assistant
  20. ** LODEFE : logique indiquant que opti assi est défini
  21. LOGICAL LODESL,LOTRMA,LOTESCPV,LODEFE,LOTESC
  22. common/cassi1/LODESL,LOTRMA,LOTESCPV,LODEFE
  23. **
  24. ** utilisation par un ASSISTANT
  25. ** """"""""""""""""""""""""""""""
  26. ** INASS1 : numero de l'ASSISTANT
  27. ** IMESIN : pointeur sur le segment contenant la liste
  28. ** des instructions pour un ASSISTANT
  29. ** IMESCL : pointeur sur le segment contenant l'instruction
  30. ** en cours de traitement
  31. ** IMESTR : pointeur sur le segment MESTRA pour le gerer le MENAGE
  32. ** IERRES : pointeur sur le segment MERRES des erreurs
  33. integer imesdm
  34. parameter (imesdm=64)
  35. common/cassi2/imescl(0:imesdm),imestr,ierres,imesou(0:imesdm)
  36. integer imescl,imestr,ierres
  37. save /cassis/,/cassi1/,/cassi2/
  38. **
  39. **
  40. **
  41. ** pour gerer le menage
  42. ** """"""""""""""""""""""
  43. segment MESTRA
  44. integer IIIIII
  45. end segment
  46. **
  47. ** pour gerer les erreurs
  48. ** """"""""""""""""""""""""
  49. segment MERRES
  50. * est on en situation d'erreur ?
  51. logical LOSIER
  52. * numero de l'assistant qui a gemerer l'erreur
  53. integer IASSER
  54. * nombre d'erreurs
  55. integer NBERR
  56. * liste des erreurs
  57. integer liserr(3,NERR)
  58. end segment
  59. **
  60. ** liste des instructions pour un ASSISTANT
  61. ** """"""""""""""""""""""""""""""""""""""""""
  62. segment MESINS
  63. * numero de l assistant
  64. integer inass
  65. * liste des instructions chainees
  66. integer lismes(NINS)
  67. * nombre d'instructions chainees
  68. integer nbins
  69. * instruction courante (pour gerer le menage)
  70. integer inscou
  71. end segment
  72. **
  73. ** codage d'une instruction
  74. ** """"""""""""""""""""""""""
  75. segment mescla
  76. * pointeur sur la chaine contenant la ligne de commande
  77. * (pour les erreurs)
  78. integer jpcar1
  79. * objets operandes
  80. integer imotlv
  81. logical esoplu(100)
  82. character*8 esopty(100)
  83. integer esopva(100)
  84. character*(LOCHAI) esopch(100)
  85. logical esoplo(100)
  86. real*8 esopre(100)
  87. * objets esclaves pour le retour
  88. integer esrees(100)
  89. * pour recuperer l'erreur eventuelle
  90. integer jjjerr
  91. endsegment
  92. pointeur mescl1.mescla,mescl2.mescla
  93. **
  94. ** codage d'un resultat (chapeau)
  95. ** """""""""""""""""""""""""""""""
  96. segment mesres
  97. * pour savoir si l'objet a ete mis a jour par l'assistant
  98. LOGICAL LOREMP
  99. **
  100. ** codage d'un resultat
  101. ** """"""""""""""""""""""
  102. character*8 esrety
  103. logical esrelo
  104. integer esreva
  105. character*(LOCHAI) esrech
  106. real*8 esrere
  107. endsegment
  108.  

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