Télécharger la plaquette Cast3M


fr en

Télécharger debut.eso

Retour à la liste

Numérotation des lignes : 

debut

  1. C DEBUT     SOURCE    PV090527  24/01/11    21:15:01     10699          
  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  DERNIERE INITIALISATION : LISTE DES SEGMENTS PERMANENTS
  100.       CALL INIMEN
  101. C  INITIALISATION ASSISTANTS reportee a la premiere utilisation de ASSI
  102.       nbescr=icp
  103.       nbesc=0
  104. C  Initialisation NECESSAIRE des thread esope, meme si il y en a 0
  105. C      call iniass(nbesc)
  106.  
  107. C  FIN DES INITIALISATIONS
  108.       RETURN
  109.       END
  110.  
  111.  
  112.  
  113.  

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