Esope source files

   1 : C MAIN      SOURCE    PV        11/04/08    21:16:15     6934           
   2 : CCC                                                                             
   3 : C     PROGRAMME GIBI   MAIN     INITIALISATIONS VARIEES                         
   4 : C                                                                               
   5 : -INC CCOPTIO                                                                    
   6 : -INC SMCOORD 
   7 : -INC CCREDLE
   8 : -INC CCASSIS                                                                   
   9 :       CHARACTER*1 AREA                                                          
  10 :       CHARACTER*4 ICODE                                                         
  11 : C    PAGE DE TITRE                                                              
  12 : C    TEST ENVIRONNEMENT                                                         
  12 :       CALL GIBECO(ICONV)                                                        
  13 :       IOGRA=ICONV+1                                                             
  14 :       IF (ICONV.EQ.1) IOGRA=3                                                   
  15 :       IECHO=1-ICONV                                                             
  16 :       ICONV=0                                                                   
  17 :       IF (IOGRA.GT.1) GOTO 2                                                    
  17 :       CALL PAGE                                                                 
  18 : C   DATE                                                                        
  18 :       CALL VDATE                                                                
  19 :    2  CONTINUE                                                                  
  20 : C    INITIALISATION                                                             
  20 :       CALL DEPMAC                                                               
  21 : *    SI LECTURE AUTOMATIQUE DE DONNEES ECHO                                     
  22 :       IF (IOLEC.EQ.3) IECHO=1                                                   
  23 : C    DEFINITION ET IMPRESSION DE LA DATE DE LA VERSION                          
  24 :       icp=1
  24 :       call getcpu(icp)
  25 :       icp=max(icp,1)
  26 :       icp=min(icp,62)
  27 : *  test si 32 bits
  28 :       ig=2**28
  29 :       ig=ig*2**10
  30 :       if (ig.le.0) icp=min(30,icp)
  30 :       CALL INIthread(icp)
  30 :       CALL DEFDAT(icp)
  31 : C    DEFINITION DU TRAITEMENT DES ERREURS CORRECTIBLES                          
  31 :       CALL ERRCOR                                                               
  32 : C   INITIALISATION des threads intra operateur
  33 : C    INITIALISATION GEMAT                                                       
  34 :       oot=0
  34 :       CALL OOOSSG                                                               
  35 :       if (oot.eq.0) OOT=OOU
  35 :       CALL OOOXDS(1000,1000)                                                    
  36 : C    INITIALISATION REDLEC
  36 :       CALL INIRED(SREDLE)
  37 :       IREDLE=SREDLE
  38 : C   OUVERTURE DU FICHIER INFO                                                   
  38 :       CALL INFOPN(AREA,ICODE)                                                   
  39 : C   INITIALISATION DE LA PILE DE COMMUNICATION ET DE LA TABLE DES OBJETS        
  39 :       CALL INILIR                                                               
  40 : C  INITIALISATION DES VARIABLES PREDEFINIES                                     
  40 :       CALL INIALI
  41 : C  initialisation xpetit xgrand
  41 :       CALL INIREE
  42 : C  OUVERTURE DU FICHIER ERREUR                                                  
  42 :       CALL INIERR  
  43 : C   CREATION SEGMENT DES POSITIONS                                              
  44 :       NBPTS=0                                                                   
  45 :       SEGINI MCOORD                                                             
  46 : C   NOUVELLES                                                                   
  46 :       CALL JOURNA                                                               
  47 : C   OUVERTURE DU FICHIER PROCEDURE                                              
  47 :       CALL PROCPN(AREA,ICODE) 
  48 : C   DERNIERE INITIALISATION : LISTE DES SEGMENTS PERMANENTS                     
  48 :       CALL INIMEN                                                               
  49 : C   INITIALISATION ASSISTANTS
  50 :         nbesc=min(icp,31)
  51 :         nbesc=icp
  52 : * il est necessaire d'initialiser les thread esope, meme si il y en a 0
  52 :         call iniass(nbesc)
  53 : C   FIN DES INITIALISATIONS   
  53 :       CALL PILOT                                                                
  53 :       CALL FIN                                                                  
  54 :       STOP                                                                      
  55 :       END                                                                       
  56 :  
  57 :  
  58 :  
  59 :  
  60 :  
  61 :  
  62 :  
  63 :  
  64 :  
  65 :  
  66 :  
  67 :  
  68 :  
  69 :  
  70 :  
  71 :  
  72 :