*       -INC SMBLOC                                                             
*                                                                               
*  DESCRIPTEUR D'UN BLOC REPETER( UTILISER AUSSI POUR LES PROCEDURES)           
*  MBLSUP EST LE POINTEUR SUR LE BLOC SUPERIEUR                                 
*  IPSI EST LE NOMBRE DE SI COURAMMENT ACTIF DANS LE BLOC                       
*  MTXBLC CONTIENT LA DESCRIPTION DU BLOC SOUS FORME D'IMAGES CARTES            
*  Y COMPRIT L'ORDRE DE FIN DE DESCRIPTION                                      
*  MBCOUR CONTIENT LA POSITION COURANTE A L'INTERIEUR DU BLOC                   
*  MBCONT CONTIENT LE COMPTEUR                                                  
*  MBFONC INDIQUE SI ON EST EN INITIALISATION OU EN RELECTURE                   
*  MBERR CONTIENT LE NIVEAU D'ERREUR RENCONTRE PENDANT L'EXECUTION              
*  DU BLOC                                                                      
*  MBSOUC CONTIENT LE NIVEAU DE SOUCI RENCONTRE DANS LE BLOC
*   REINITIALISE A CHAQUE NOUVEAU PARCOURS DU BLOC
*  MBENUM CONTIENT EVENTUELLEMENT LE POINTEUR SUR LE LISTOBJE D'ENUMERATION   
*  MDEOBJ POSITION A PARTIR DE LAQUELLE ON EXPLORE LA PILE OBJET POUR           
*  UNE AFFECTATION                                                              
*  LE SEGMENT MPROCE SERT A SAUVER L'ETAT DE LA LECTURE                         
*  LE SEGMENT IARGUM EST SPECIFIQUE A LA PROCEDURE                              
*  IOBLIG =1 SI ARGUMENT OBLIGATOIRE                                            
*                                                                               
*      SEGMENT /MBLOC/(MBLSUP,MBLPRO,MBCOUR,MBCONT,MBFONC,MTXBL,MBERR            
*     #  ,MDEOBJ,MFIOBJ,MSAPII,MPROCD,MARGUM,MBSOUC,MBENUM), MBLO1.MBLOC
      SEGMENT MBLOC
         INTEGER MBLSUP,MBLPRO,MBCOUR,MBCONT,MBFONC,MTXBL,MBERR,MBSOUC
         INTEGER MBENUM
         INTEGER MDEOBJ,MFIOBJ,MSAPII,MPROCD,MARGUM,ICONBO
         INTEGER ISPOTE,IIPOTE,MOBJCO
         INTEGER ITRESU
**       CHARACTER*(LONOM) NCONBO
         CHARACTER*(24) NCONBO
      ENDSEGMENT 
      SEGMENT ISSPOT 
         INTEGER IPOTEM(NVQTEM)
      ENDSEGMENT
      POINTEUR  MBLO1.MBLOC                      
      SEGMENT MTXBLC
          INTEGER NINSTV
C    pointe sur mtxblm et MTXBLB      mtxtem      nuinst
          INTEGER LMTXBM(NINST),MTXTTM(NINST)
C         INTEGER NUINSV(NINST)                                                           
          CHARACTER*(8) MTXBLM(NBNOMM)
C      pointe sur   MTXBLA
          INTEGER MTXBA(NINST)                                           
          INTEGER MTXBLA(IPVINN),MTXBLB(NBNOMM)
C         MTXTEM,NUINST                    
      ENDSEGMENT                                                                
C      SEGMENT MTXBLC(NBMOT)                                                     
C      SEGMENT MSAPI3 
C          INTEGER MSAPIJ(NBMOT)                                                           
C          CHARACTER*(8) MSAPIL(NBMOT)                                         
C          INTEGER MSAPIN(NBMOT)                                                 
C      ENDSEGMENT                                                                
      SEGMENT MPROCE                                                            
        INTEGER KTABNO,MPOOB                                                    
        INTEGER  LSTOP,LLCTAB                                                   
        INTEGER  LBPILE,LHPILE,LMOTLU,LPTEM,LBNOM,LNILU,LOMLU                   
        INTEGER  LEGAL,LNTEXT,LIPOS,LDPAR,LFPAR                                 
        INTEGER  LTTINT,LPVINT,LINTPO,LNTEMP,LRAZ,LUTIL                         
        INTEGER LCOUR,LPREC,LRAN,LLU,LFINAN                                     
        CHARACTER*(500) LEXT                                                    
        CHARACTER*(72)  LOT                                                     
      ENDSEGMENT                                                                
      POINTEUR  MPROC1.MPROCE                                                   
      SEGMENT IARGUM                                                            
        CHARACTER*(8) MTYARG(NARG)                                              
        CHARACTER*(72) MSTYPA(NARG)                                             
        INTEGER  ILTYPA(NARG),IOBLIG(NARG),MTXBB,MTXFLO,MTXMET                                                            
      ENDSEGMENT                                                                
      SEGMENT MTRESU
          INTEGER NRESI
          CHARACTER*(8) MTYRES(NRES)
          INTEGER       IVARES(NRES)
          REAL*8        XFLRES(NRES)
      ENDSEGMENT
      SEGMENT MTXBI3                                                            
         INTEGER MTXBI(NIS)
	 CHARACTER*8 MTXBD(NIS)
	 INTEGER MTXBE(NIS)                                               
      ENDSEGMENT                                                                
      SEGMENT MTXFL3                                                            
         REAL*8  XTFLO(NREE)                                                    
         INTEGER MITFLO(NREE)                                                   
      ENDSEGMENT                                                                
*