Télécharger main.eso

Retour à la liste

Numérotation des lignes :

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

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