Télécharger main.eso

Retour à la liste

Numérotation des lignes :

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

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