Télécharger main.eso

Retour à la liste

Numérotation des lignes :

  1. C MAIN SOURCE CB215821 19/07/30 21:17:11 10273
  2. CCC
  3. C PROGRAMME GIBI MAIN INITIALISATIONS VARIEES
  4. C
  5. PROGRAM CAST3M
  6.  
  7. -INC CCOPTIO
  8. -INC SMCOORD
  9. -INC CCREDLE
  10. -INC CCASSIS
  11.  
  12. CHARACTER*1 AREA
  13. INTEGER ICODE
  14.  
  15. C Initialisation des ATTENTES et SURVEILLANCE ESOPE
  16. C MSURVE et MATTEN sont initialisees dans bdata.eso
  17. ISUR=MSURVE
  18. CALL OOOSUR(ISUR)
  19. IATE=MATTEN
  20. CALL OOOATE(IATE)
  21.  
  22. C PAGE DE TITRE
  23. C TEST ENVIRONNEMENT
  24. CALL GIBECO(ICONV)
  25. IOGRA=ICONV+1
  26. IF (ICONV.EQ.1) IOGRA=3
  27. IECHO=1-ICONV
  28. ICONV=0
  29. IF (IOGRA.GT.1) GOTO 2
  30. CALL PAGE
  31.  
  32. C DATE
  33. CALL VDATE
  34. 2 CONTINUE
  35.  
  36. C INITIALISATION
  37. CALL DEPMAC
  38. C SI LECTURE AUTOMATIQUE DE DONNEES ECHO
  39. IF (IOLEC.EQ.3) IECHO=1
  40.  
  41. C DEFINITION DU NOMBRE DE THREADS
  42. icp=1
  43. call getcpu(icp)
  44. icp=max(icp,1)
  45.  
  46. C Test combien d'entier par REAL*8
  47. CALL INTPDO(IREP)
  48. if (IREP .EQ. 2) icp=min(30,icp)
  49. if (IREP .EQ. 1) icp=min(62,icp)
  50.  
  51. CALL INIthread(icp)
  52. nbthrs=icp
  53.  
  54. C Augmentation de la taille des fichiers de sauvegarde si 64-bits
  55. if (irep.eq.1) dimfic=4e9
  56.  
  57. C DEFINITION ET IMPRESSION DE LA DATE DE LA VERSION
  58. CALL DEFDAT(icp)
  59.  
  60. C DEFINITION DU TRAITEMENT DES ERREURS CORRECTIBLES
  61. CALL ERRCOR
  62.  
  63. C INITIALISATION des threads intra operateur
  64. C INITIALISATION GEMAT
  65. oot=0
  66. CALL OOOSSG
  67. if (oot.eq.0) OOT=OOU
  68. CALL OOOXDS(1000,1000)
  69. C INITIALISATION REDLEC
  70. CALL INIRED(SREDLE)
  71. IREDLE=SREDLE
  72. C OUVERTURE DU FICHIER INFO
  73. CALL INFOPN(ICODE)
  74. C INITIALISATION DE LA PILE DE COMMUNICATION ET DE LA TABLE DES OBJETS
  75. CALL INILIR
  76. C INITIALISATION DES VARIABLES PREDEFINIES
  77. CALL INIALI
  78. C initialisation xpetit xgrand
  79. CALL INIREE
  80. C OUVERTURE DU FICHIER ERREUR
  81. CALL INIERR
  82. C CREATION SEGMENT DES POSITIONS
  83. NBPTS=0
  84. SEGINI MCOORD
  85.  
  86. C Initialisation verrou
  87. CALL VERROU(1)
  88.  
  89. C NOUVELLES
  90. CALL JOURNA
  91. C OUVERTURE DU FICHIER PROCEDURE
  92. CALL PROCPN(AREA,ICODE)
  93. C DERNIERE INITIALISATION : LISTE DES SEGMENTS PERMANENTS
  94. CALL INIMEN
  95. C INITIALISATION ASSISTANTS reportee a la premiere utilisation de ASSI
  96. nbescr=icp
  97. nbesc=0
  98. C Initialisation NECESSAIRE des thread esope, meme si il y en a 0
  99. C call iniass(nbesc)
  100.  
  101. C FIN DES INITIALISATIONS
  102. CALL PILOT
  103. CALL FIN
  104. STOP
  105. END
  106.  
  107.  
  108.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales