Télécharger SMBLOC.INC

Retour à la liste

Numérotation des lignes :

  1. * -INC SMBLOC
  2. *
  3. * DESCRIPTEUR D'UN BLOC REPETER( UTILISER AUSSI POUR LES PROCEDURES)
  4. * MBLSUP EST LE POINTEUR SUR LE BLOC SUPERIEUR
  5. * IPSI EST LE NOMBRE DE SI COURAMMENT ACTIF DANS LE BLOC
  6. * MTXBLC CONTIENT LA DESCRIPTION DU BLOC SOUS FORME D'IMAGES CARTES
  7. * Y COMPRIT L'ORDRE DE FIN DE DESCRIPTION
  8. * MBCOUR CONTIENT LA POSITION COURANTE A L'INTERIEUR DU BLOC
  9. * MBCONT CONTIENT LE COMPTEUR
  10. * MBFONC INDIQUE SI ON EST EN INITIALISATION OU EN RELECTURE
  11. * MBERR CONTIENT LE NIVEAU D'ERREUR RENCONTRE PENDANT L'EXECUTION
  12. * DU BLOC
  13. * MBSOUC CONTIENT LE NIVEAU DE SOUCI RENCONTRE DANS LE BLOC
  14. * REINITIALISE A CHAQUE NOUVEAU PARCOURS DU BLOC
  15. * MDEOBJ POSITION A PARTIR DE LAQUELLE ON EXPLORE LA PILE OBJET POUR
  16. * UNE AFFECTATION
  17. * LE SEGMENT MPROCE SERT A SAUVER L'ETAT DE LA LECTURE
  18. * LE SEGMENT IARGUM EST SPECIFIQUE A LA PROCEDURE
  19. * IOBLIG =1 SI ARGUMENT OBLIGATOIRE
  20. *
  21. * SEGMENT /MBLOC/(MBLSUP,MBLPRO,MBCOUR,MBCONT,MBFONC,MTXBL,MBERR
  22. * # ,MDEOBJ,MFIOBJ,MSAPII,MPROCD,MARGUM,MBSOUC), MBLO1.MBLOC
  23. SEGMENT MBLOC
  24. INTEGER MBLSUP,MBLPRO,MBCOUR,MBCONT,MBFONC,MTXBL,MBERR,MBSOUC
  25. INTEGER MDEOBJ,MFIOBJ,MSAPII,MPROCD,MARGUM,ICONBO
  26. INTEGER ISPOTE,IIPOTE,MOBJCO
  27. ** CHARACTER*(LONOM) NCONBO
  28. CHARACTER*(24) NCONBO
  29. ENDSEGMENT
  30. SEGMENT ISSPOT
  31. INTEGER IPOTEM(NVQTEM)
  32. ENDSEGMENT
  33. POINTEUR MBLO1.MBLOC
  34. SEGMENT MTXBLC
  35. INTEGER NINSTV
  36. C pointe sur mtxblm et MTXBLB mtxtem nuinst
  37. INTEGER LMTXBM(NINST),MTXTTM(NINST)
  38. C INTEGER NUINSV(NINST)
  39. CHARACTER*(8) MTXBLM(NBNOMM)
  40. C pointe sur MTXBLA
  41. INTEGER MTXBA(NINST)
  42. INTEGER MTXBLA(IPVINN),MTXBLB(NBNOMM)
  43. C MTXTEM,NUINST
  44. ENDSEGMENT
  45. C SEGMENT MTXBLC(NBMOT)
  46. C SEGMENT MSAPI3
  47. C INTEGER MSAPIJ(NBMOT)
  48. C CHARACTER*(8) MSAPIL(NBMOT)
  49. C INTEGER MSAPIN(NBMOT)
  50. C ENDSEGMENT
  51. SEGMENT MPROCE
  52. INTEGER KTABNO,MPOOB
  53. INTEGER LSTOP,LLCTAB
  54. INTEGER LBPILE,LHPILE,LMOTLU,LPTEM,LBNOM,LNILU,LOMLU
  55. INTEGER LEGAL,LNTEXT,LIPOS,LDPAR,LFPAR
  56. INTEGER LTTINT,LPVINT,LINTPO,LNTEMP,LRAZ,LUTIL
  57. INTEGER LCOUR,LPREC,LRAN,LLU,LFINAN
  58. CHARACTER*(500) LEXT
  59. CHARACTER*(72) LOT
  60. ENDSEGMENT
  61. POINTEUR MPROC1.MPROCE
  62. SEGMENT IARGUM
  63. CHARACTER*(8) MTYARG(NARG)
  64. CHARACTER*(72) MSTYPA(NARG)
  65. INTEGER ILTYPA(NARG),IOBLIG(NARG),ITRESU,IVRESU,IFRESU,
  66. $ MTXBB,MTXFLO,MTXMET
  67. ENDSEGMENT
  68. SEGMENT MTRESU
  69. CHARACTER*(8) MTYRES(NRES)
  70. ENDSEGMENT
  71. SEGMENT MVRESU
  72. INTEGER IVARES(NRES)
  73. ENDSEGMENT
  74. SEGMENT MFRESU
  75. REAL*8 XFLRES(NRES)
  76. ENDSEGMENT
  77. SEGMENT MTXBI3
  78. INTEGER MTXBI(NIS)
  79. CHARACTER*8 MTXBD(NIS)
  80. INTEGER MTXBE(NIS)
  81. ENDSEGMENT
  82. SEGMENT MTXFL3
  83. REAL*8 XTFLO(NREE)
  84. INTEGER MITFLO(NREE)
  85. ENDSEGMENT
  86. *
  87.  

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