Télécharger debut.eso

Retour à la liste

Numérotation des lignes :

debut
  1. C DEBUT SOURCE OF166741 24/06/19 21:15:03 11942
  2. CCC
  3. C PROGRAMME CAST3M INITIALISATIONS VARIEES
  4. C
  5. SUBROUTINE DEBUT
  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. if(icp.gt.10) icp=icp-1
  48. if(icp.gt.38) icp=icp-1
  49.  
  50. C Test combien d'entier par REAL*8
  51. CALL INTPDO(IREP)
  52. if (IREP .EQ. 2) icp=min(31,icp)
  53. if (IREP .EQ. 1) icp=min(63,icp)
  54. CALL INIthread(icp)
  55. nbthrs=icp
  56.  
  57. C Augmentation de la taille des fichiers de sauvegarde si 64-bits
  58. if (irep.eq.1) dimfic=4e9
  59.  
  60. C DEFINITION ET IMPRESSION DE LA DATE DE LA VERSION
  61. CALL DEFDAT(icp)
  62.  
  63. C DEFINITION DU TRAITEMENT DES ERREURS CORRECTIBLES
  64. CALL ERRCOR
  65.  
  66. C INITIALISATION des threads intra operateur
  67. C INITIALISATION GEMAT
  68. oot=0
  69. CALL OOOSSG
  70. if (oot.eq.0) OOT=OOU
  71. if(irep.eq.2) CALL OOOXDS(1000,1000)
  72. if(irep.eq.1) CALL OOOXDS(100000,100000)
  73. C INITIALISATION REDLEC
  74. CALL INIRED(SREDLE)
  75. IREDLE=SREDLE
  76. C INITIALISATION DE LA PILE DE COMMUNICATION ET DE LA TABLE DES OBJETS
  77. CALL INILIR
  78. C INITIALISATION DES VARIABLES PREDEFINIES
  79. CALL INIALI
  80. C initialisation xpetit xgrand
  81. CALL INIREE
  82. C OUVERTURE DU FICHIER ERREUR
  83. CALL INIERR
  84. C CREATION SEGMENT DES POSITIONS
  85. NBPTS=0
  86. SEGINI MCOORD
  87.  
  88. C Initialisation verrou
  89. CALL VERROU(1)
  90.  
  91. C OUVERTURE DU FICHIER INFO
  92. CALL INFOPN(AREA,ICODE)
  93. C NOUVELLES
  94. CALL JOURNA
  95. C OUVERTURE DU FICHIER PROCEDURE
  96. CALL PROCPN(AREA,ICODE)
  97. C RECHERCHE DES LOIS DITES EXTERNES (MFRONT/UMAT)
  98. CALL LEXTPN(icode)
  99. C RECHERCHE SI UTILISATION BIBLIOTHEQUE HHO (externe)
  100. CALL LHHOPN(icode)
  101. C DERNIERE INITIALISATION : LISTE DES SEGMENTS PERMANENTS
  102. CALL INIMEN
  103. C INITIALISATION ASSISTANTS reportee a la premiere utilisation de ASSI
  104. nbescr=icp
  105. nbesc=0
  106. C Initialisation NECESSAIRE des thread esope, meme si il y en a 0
  107. C call iniass(nbesc)
  108.  
  109. C FIN DES INITIALISATIONS
  110. RETURN
  111. END
  112.  
  113.  
  114.  
  115.  
  116.  

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