Télécharger main.eso

Retour à la liste

Numérotation des lignes :

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

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