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. * MBENUM CONTIENT EVENTUELLEMENT LE POINTEUR SUR LE LISTOBJE D'ENUMERATION
  16. * MDEOBJ POSITION A PARTIR DE LAQUELLE ON EXPLORE LA PILE OBJET POUR
  17. * UNE AFFECTATION
  18. * LE SEGMENT MPROCE SERT A SAUVER L'ETAT DE LA LECTURE
  19. * LE SEGMENT IARGUM EST SPECIFIQUE A LA PROCEDURE
  20. * IOBLIG =1 SI ARGUMENT OBLIGATOIRE
  21. *
  22. * SEGMENT /MBLOC/(MBLSUP,MBLPRO,MBCOUR,MBCONT,MBFONC,MTXBL,MBERR
  23. * # ,MDEOBJ,MFIOBJ,MSAPII,MPROCD,MARGUM,MBSOUC,MBENUM), MBLO1.MBLOC
  24. SEGMENT MBLOC
  25. INTEGER MBLSUP,MBLPRO,MBCOUR,MBCONT,MBFONC,MTXBL,MBERR,MBSOUC
  26. INTEGER MBENUM
  27. INTEGER MDEOBJ,MFIOBJ,MSAPII,MPROCD,MARGUM,ICONBO
  28. INTEGER ISPOTE,IIPOTE,MOBJCO
  29. ** CHARACTER*(LONOM) NCONBO
  30. CHARACTER*(24) NCONBO
  31. ENDSEGMENT
  32. SEGMENT ISSPOT
  33. INTEGER IPOTEM(NVQTEM)
  34. ENDSEGMENT
  35. POINTEUR MBLO1.MBLOC
  36. SEGMENT MTXBLC
  37. INTEGER NINSTV
  38. C pointe sur mtxblm et MTXBLB mtxtem nuinst
  39. INTEGER LMTXBM(NINST),MTXTTM(NINST)
  40. C INTEGER NUINSV(NINST)
  41. CHARACTER*(8) MTXBLM(NBNOMM)
  42. C pointe sur MTXBLA
  43. INTEGER MTXBA(NINST)
  44. INTEGER MTXBLA(IPVINN),MTXBLB(NBNOMM)
  45. C MTXTEM,NUINST
  46. ENDSEGMENT
  47. C SEGMENT MTXBLC(NBMOT)
  48. C SEGMENT MSAPI3
  49. C INTEGER MSAPIJ(NBMOT)
  50. C CHARACTER*(8) MSAPIL(NBMOT)
  51. C INTEGER MSAPIN(NBMOT)
  52. C ENDSEGMENT
  53. SEGMENT MPROCE
  54. INTEGER KTABNO,MPOOB
  55. INTEGER LSTOP,LLCTAB
  56. INTEGER LBPILE,LHPILE,LMOTLU,LPTEM,LBNOM,LNILU,LOMLU
  57. INTEGER LEGAL,LNTEXT,LIPOS,LDPAR,LFPAR
  58. INTEGER LTTINT,LPVINT,LINTPO,LNTEMP,LRAZ,LUTIL
  59. INTEGER LCOUR,LPREC,LRAN,LLU,LFINAN
  60. CHARACTER*(500) LEXT
  61. CHARACTER*(72) LOT
  62. ENDSEGMENT
  63. POINTEUR MPROC1.MPROCE
  64. SEGMENT IARGUM
  65. CHARACTER*(8) MTYARG(NARG)
  66. CHARACTER*(72) MSTYPA(NARG)
  67. INTEGER ILTYPA(NARG),IOBLIG(NARG),ITRESU,MTXBB,MTXFLO,MTXMET
  68. ENDSEGMENT
  69. SEGMENT MTRESU
  70. INTEGER NRESI
  71. CHARACTER*(8) MTYRES(NRES)
  72. INTEGER IVARES(NRES)
  73. REAL*8 XFLRES(NRES)
  74. ENDSEGMENT
  75. SEGMENT MTXBI3
  76. INTEGER MTXBI(NIS)
  77. CHARACTER*8 MTXBD(NIS)
  78. INTEGER MTXBE(NIS)
  79. ENDSEGMENT
  80. SEGMENT MTXFL3
  81. REAL*8 XTFLO(NREE)
  82. INTEGER MITFLO(NREE)
  83. ENDSEGMENT
  84. *
  85.  

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