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    OF166741  25/06/11    21:15:06     12280          
  2. CCC
  3. C     PROGRAMME CAST3M INITIALISATIONS VARIEES
  4. C
  5.       SUBROUTINE DEBUT
  6.  
  7. -INC PPARAM
  8. -INC CCOPTIO
  9. -INC CCREDLE
  10. -INC CCASSIS
  11.  
  12. -INC SMCOORD
  13.  
  14.       CHARACTER*1 AREA
  15.       INTEGER     ICODE
  16.  
  17. %IF COUPLING
  18.       CALL INIDATA
  19. %ENDIF
  20.  
  21. C  Initialisation des ATTENTES et SURVEILLANCE ESOPE
  22. C     MSURVE et MATTEN sont initialisees dans bdata.eso
  23.       ISUR=MSURVE
  24.       CALL OOOSUR(ISUR)
  25.       IATE=MATTEN
  26.       CALL OOOATE(IATE)
  27.  
  28. C  PAGE DE TITRE
  29. C  TEST ENVIRONNEMENT
  30.       CALL GIBECO(ICONV)
  31.       IOGRA=ICONV+1
  32.       IF (ICONV.EQ.1) IOGRA=3
  33.       IECHO=1-ICONV
  34.       ICONV=0
  35.       IF (IOGRA.GT.1) GOTO 2
  36.       CALL PAGE
  37.  
  38. C  DATE
  39.       CALL VDATE
  40.    2  CONTINUE
  41.  
  42. C  INITIALISATION
  43.       CALL DEPMAC
  44. C  SI LECTURE AUTOMATIQUE DE DONNEES ECHO
  45.       IF (IOLEC.EQ.3) IECHO=1
  46.  
  47. C  DEFINITION DU NOMBRE DE THREADS
  48.       icp=1
  49.       call getcpu(icp)
  50.       icp=max(icp,1)
  51.       if(icp.gt.10) icp=icp-1
  52.       if(icp.gt.38) icp=icp-1
  53.  
  54. C  Test combien d'entier par REAL*8
  55.       CALL INTPDO(IREP)
  56.       if (IREP .EQ. 2) icp=min(31,icp)
  57.       if (IREP .EQ. 1) icp=min(63,icp)
  58.       CALL INIthread(icp)
  59.       nbthrs=icp
  60.  
  61. C  Augmentation de la taille des fichiers de sauvegarde si 64-bits
  62.       if (irep.eq.1) dimfic=4e9
  63.  
  64. C  DEFINITION ET IMPRESSION DE LA DATE DE LA VERSION
  65.       CALL DEFDAT(icp)
  66.  
  67. C  DEFINITION DU TRAITEMENT DES ERREURS CORRECTIBLES
  68.       CALL ERRCOR
  69.  
  70. C  INITIALISATION des threads intra operateur
  71. C  INITIALISATION GEMAT
  72.       oot=0
  73.       CALL OOOSSG
  74.       if (oot.eq.0) OOT=OOU
  75.       if(irep.eq.2) CALL OOOXDS(1000,1000)
  76.       if(irep.eq.1) CALL OOOXDS(100000,100000)
  77. C  INITIALISATION REDLEC
  78.       CALL INIRED(SREDLE)
  79.       IREDLE=SREDLE
  80. C  INITIALISATION DE LA PILE DE COMMUNICATION ET DE LA TABLE DES OBJETS
  81.       CALL INILIR
  82. C  INITIALISATION DES VARIABLES PREDEFINIES
  83.       CALL INIALI
  84. C  initialisation xpetit xgrand
  85.       CALL INIREE
  86. C  OUVERTURE DU FICHIER ERREUR
  87.       CALL INIERR
  88. C  CREATION SEGMENT DES POSITIONS
  89.       NBPTS=0
  90.       SEGINI MCOORD
  91.  
  92. C  Initialisation verrou
  93.       CALL VERROU(1)
  94.  
  95. C  OUVERTURE DU FICHIER INFO
  96.       CALL INFOPN(AREA,ICODE)
  97. C  NOUVELLES
  98.       CALL JOURNA
  99. C  OUVERTURE DU FICHIER PROCEDURE
  100.       CALL PROCPN(AREA,ICODE)
  101. C  RECHERCHE DES LOIS DITES EXTERNES (MFRONT/UMAT)
  102.       CALL LEXTPN(icode)
  103. C  RECHERCHE SI UTILISATION BIBLIOTHEQUE HHO (externe)
  104.       CALL LHHOPN(icode)
  105. C  DERNIERE INITIALISATION : LISTE DES SEGMENTS PERMANENTS
  106.       CALL INIMEN
  107. C  INITIALISATION ASSISTANTS reportee a la premiere utilisation de ASSI
  108.       nbescr=icp
  109.       nbesc=0
  110. C  Initialisation NECESSAIRE des thread esope, meme si il y en a 0
  111. C      call iniass(nbesc)
  112.  
  113. C  FIN DES INITIALISATIONS
  114.       RETURN
  115.       END
  116.  
  117.  
  118.  

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