Télécharger main.eso

Retour à la liste

Numérotation des lignes :

  1. C MAIN SOURCE CB215821 17/04/24 21:15:11 9420
  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.  
  40. C DEFINITION ET IMPRESSION DE LA DATE DE LA VERSION
  41. CALL DEFDAT(icp)
  42. C DEFINITION DU TRAITEMENT DES ERREURS CORRECTIBLES
  43. CALL ERRCOR
  44. C INITIALISATION des threads intra operateur
  45. C INITIALISATION GEMAT
  46. oot=0
  47. CALL OOOSSG
  48. if (oot.eq.0) OOT=OOU
  49. CALL OOOXDS(1000,1000)
  50. C INITIALISATION REDLEC
  51. CALL INIRED(SREDLE)
  52. IREDLE=SREDLE
  53. C OUVERTURE DU FICHIER INFO
  54. CALL INFOPN(AREA,ICODE)
  55. C INITIALISATION DE LA PILE DE COMMUNICATION ET DE LA TABLE DES OBJETS
  56. CALL INILIR
  57. C INITIALISATION DES VARIABLES PREDEFINIES
  58. CALL INIALI
  59. C initialisation xpetit xgrand
  60. CALL INIREE
  61. C OUVERTURE DU FICHIER ERREUR
  62. CALL INIERR
  63. C CREATION SEGMENT DES POSITIONS
  64. NBPTS=0
  65. SEGINI MCOORD
  66. C NOUVELLES
  67. CALL JOURNA
  68. C OUVERTURE DU FICHIER PROCEDURE
  69. CALL PROCPN(AREA,ICODE)
  70. C DERNIERE INITIALISATION : LISTE DES SEGMENTS PERMANENTS
  71. CALL INIMEN
  72. C INITIALISATION ASSISTANTS reportee a la premiere utilisation de ASSI
  73. nbescr=icp
  74. nbesc=0
  75. * il est necessaire d'initialiser les thread esope, meme si il y en a 0
  76. ** call iniass(nbesc)
  77. C FIN DES INITIALISATIONS
  78. CALL PILOT
  79. CALL FIN
  80. STOP
  81. END
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  

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