C                      -------------------------                                
C                     I GESTION D'ESPACE DISQUE I                               
C                      -------------------------                                
C                                                                               
C     LTRK    LONGUEUR D'UN BLOC EN MOTS                                        
C     NTRK    NOMBRE DE BLOCS ESPACE DISQUE                                     
C     NTRF    PROCHAIN BLOC A FORMATTER                                         
C     NTRL    TETE DE CHAINE DES BLOCS LIBRES                                   
C     JTRK    CONTIENT TOUT LES CHAINAGE DE BLOC                                
C                                                                               
C             UN CHAINAGE DE BLOC EST MATERIALISE PAR UN NUMERO                 
C             DE PREMIER BLOC     : ITRK1                                       
C             LE BLOC SUIVANT EST : ITRK2 = JTRK(ITRK1)                         
C             ET AINSI DE SUITE                                                 
C             LE DERNIER BLOC EST : ITRKN   TEL QUE  JTRK(ITRKN)=0              
C                                                                               
C     SEGMENT  /PTRK/ (LLTRK=LTRK,NNTRK=NTRK,NTRF=1,NTRL=0,JTRK(NTRK))          
                                                                                
      SEGMENT , PTRK                                                            
        INTEGER LLTRK , NNTRK , NTRF , NTRL , JTRK(NTRK)                        
      ENDSEGMENT                                                                
C                                                                               
C PROGRAMMEUR : MOUGIN                                                          
C       MODIF : 312/01/89    A LA MODE  PTRK ...                                
C                                                                               
C-----------------------------------------------------------------------        
C