Esope source files

   1 : C INILIR    SOURCE    PV        09/08/31    21:15:00     6476           
   2 : CIF DOC                                                                   
   3 : C                INILIR                                                   
   4 : C                ------                                                   
   5 : C                                                                         
   6 : C   CE SERVEUR FAIT PARTIE DU NOYAU DE GESTION DES OBJETS.(GIBI 1.00)     
   7 : C   IL A POUR BUT D'INITIALISER LE SEGMENT NECESSAIRE A LA LECTURE ET     
   8 : C   ECRITURE DANS LA PILE  IPILE                                          
   9 : C   IL INITIALISE EGALEMENT LES TABLES PERMANENTES ET TEMPORAIRES D'OBJE  
  10 : C                                                                         
  11 : C   LISTE DES VARIABLES INITIALISEE                                       
  12 : C        IBPILE   - PREMIERE VALEUR DE LA PILE A ANALYSER.                
  13 : C                                                                         
  14 : C        IHPILE  - DERNIERE VALEUR DE LA PILE A ANALYSER                  
  15 : C                                                                         
  16 : C        IMOTLU  - POSITION DE MOT(3) DU DERNIER MOT LU                   
  17 : C                                                                         
  18 : C        IPILE  - POUR CHAQUE OBJET QUATRE MOTS SONT NECESSAIRES:         
  19 : C                    MOT(1),MOT(2)  :  TYPE DE L'OBJET (8 CARACTERES)     
  20 : C                    MOT(3)         :  =0 SI DEJA UTILISER EN LECTURE     
  21 : C                                      =1 SI PAS ENCORE UTILISER          
  22 : C                    MOT(4)         :  VALEUR ASSOCIEE A L'OBJET.         
  23 : C                                                                         
  24 : C   VALEURS  DONNEES A L'INITIALISATION.                                  
  25 : C        IBPILE =  5   (ON LAISSE 5 INFORMATIONS VIDES)                   
  26 : C        IHPILE =  4                                                      
  27 : C        IMOTLU =  0                                                      
  28 : C                                                                         
  29 : CENDIF                                                                    
  30 :       SUBROUTINE INILIR                                                   
  31 :       IMPLICIT INTEGER(I-N)
  32 : -INC CCNOYAU                                                              
  33 : -INC SMBLOC                                                               
  34 :       iblqm=1
  35 :       IBPILE=10                                                           
  36 :       IHPILE=9                                                            
  37 :       IMOTLU=0                                                            
  38 :       ISTOP=0                                                             
  39 :       N=20                                                                
  40 :       M=0                                                                 
  41 :       SEGINI JPOOB                                                        
  42 :       N=0                                                                 
  43 :       LM=100
  44 :       LMXX=100
  45 :       LMMM=1
  46 :       LMCC=100
  47 :       LMLL=2                                                               
  48 :       SEGINI ITABOB,ITABOC,ITABOD                                         
  49 :       SEGINI IPTRA,IPILOC,IPOBJ                               
  50 :       SEGINI ITABNO,ITTINT,IPIPRO
  51 :       IPLOGI(1)=.TRUE.
  52 :       IPLOGI(2)=.FALSE.
  53 :       IPCHAR(1)=1
  54 :       IPCHAR(2)=2 
  55 :       ICHARA(1:1)='.'                                                     
  56 :       LMNENT=0                                                            
  57 :       LMNREE=0                                                            
  58 :       LMNLOG=2                                                            
  59 :       LMNCHA=0                                                            
  60 :       LMNOBJ=0                                                            
  61 :       LMNNOM=0                                                            
  62 :       NBNOM=0                                                             
  63 :       IPVINT=0                                                            
  64 :       INILU=1                                                             
  65 :       IINTPO=1                                                            
  66 :       INTEMP=0                                                            
  67 :       INTEXT=0                                                            
  68 :       IPTEM=0                                                             
  69 :       LECTAB=0                                                            
  70 :       NOMLU=0                                                             
  71 :       NBMOT=0                                                             
  72 :       SEGINI MBLOC 
  73 :       NVQTEM=20
  74 :       SEGINI ISSPOT
  75 :       ISPOTE=ISSPOT                                                       
  76 :       MBLSUP=0                                                            
  77 :       MBLPRO=0                                                            
  78 :       MBFONC=1                                                                  
  79 :       MDEOBJ=1                                                                  
  80 :       MARGUM=0                                                                  
  81 :       RETURN                                                                    
  82 :       END                                                                       
  83 :  
  84 :  
  85 :  
  86 :  
  87 :