Sources des Includes

C                 -----------------------------------                           
C                I  COMMON LIE A LA VERSION  OOOW..  I                          
C                 -----------------------------------                           
C                                                                               
      MACRO , ( INSTRUCTION_SEGINI           , INSTRUCTION_SEGACT,                    
     1          INSTRUCTION_SEGDES           , INSTRUCTION_SEGSUP,                    
     2          INSTRUCTION_SEGINI_EGAL      , INSTRUCTION_SEGACT_EGAL,               
     3          INSTRUCTION_SEGADJ           , INSTRUCTION_SEGPRT,                    
     4          INSTRUCTION_SEGMENT_EXTENSION, INSTRUCTION_SEGACT_MOD,                                  
     5          INSTRUCTION_SEGINIA          , INSTRUCTION_SEGIND)
 
      CHARACTER* 11 HSEG(12)
      DATA          HSEG
     1    / 'SEGINI ,   ','SEGACT ,   ','SEGDES ,   ','SEGSUP ,   '
     2    , 'SEGINI =   ','SEGACT =   ','SEGADJ ,   ','SEGPRT ,   '
     3    , 'SEGEXT     ','SEGACT*MOD ','SEGINIA    ','SEGIND ,   ' /
C                                                                         
C     LONSEG    NOMBRE DE MOTS DEMANDES (POUR MESSAGE D'ERREUR)                 
C     GESMEM    CHOIX DELA METHODE DE RECUPARATION DE PLACE MEMOIRE             
C     VERACT    VERIFIER L'ETAT ACTIF D'UN SEGMENT UTILISE                      
C     TESOOO    GEMAT EN MODE TEST                                              
C     OOOFOR    supprime les attentes sur les activations et suppression
C     thread    multithread actif
C                                                                               
      MACRO ,   ( GESMEM_TASSEMENT , GESMEM_SORTIE_DISQUE )                     
 
      INTEGER         LONSEG , GESMEM                         
      COMMON /OOWCOM/ LONSEG , GESMEM                         
      LOGICAL         VERACT , TESOOO , OOOFOR , thread
      COMMON /OOWCOM/ VERACT , TESOOO , OOOFOR , thread
      INTEGER        HORO(0:128)
      COMMON /OOWCOM/ HORO
      PARAMETER (NSUPQ=128)
      INTEGER        SUPQ(0:128,NSUPQ),ISUPQ(0:128),LSUPQ(0:128)
      COMMON /OOWCOM/ SUPQ,ISUPQ,LSUPQ
      PARAMETER (NDESQ=128)
      INTEGER        DESQ(0:128,NDESQ),IDESQ(0:128),LDESQ(0:128)
      COMMON /OOWCOM/ DESQ,IDESQ,LDESQ
 
C     HDIA      'NOM_SUBROUTINE NUMERO_INSTRUCTION NOM_SEGMENT '
C     LDIA      LONGUEUR UTILE DE HDIA
C     KASINS    INSTRUCTION_SEGINI ... INSTRUCTION_SEGMENT_EXTENSION
      CHARACTER*(80)  HDIA
      INTEGER         LDIA,KASINS
      COMMON /OOWCOH/ HDIA,LDIA,KASINS
C     Les messages de surveillance sont definis par thread
!$OMP THREADPRIVATE(/OOWCOH/)
 
C                                                                               
C PROGRAMMEUR : MOUGIN                                                          
C        CREE : 26/01/89    POUR LA FAMILLE  OOOW..                             
C                                                                               
C--------------------------------------------------------------------           
C