C DEBUT     SOURCE    OF166741  26/03/11    21:15:04     12493          
CCC
C     PROGRAMME CAST3M INITIALISATIONS VARIEES
C
      SUBROUTINE DEBUT

-INC PPARAM
-INC CCOPTIO
-INC CCREDLE
-INC CCASSIS

-INC SMCOORD

      CHARACTER*1 AREA
      INTEGER     ICODE

%IF COUPLING
      CALL INIDATA
%ENDIF

C  Initialisation des ATTENTES et SURVEILLANCE ESOPE
C     MSURVE et MATTEN sont initialisees dans bdata.eso
      ISUR=MSURVE
      CALL OOOSUR(ISUR)
      IATE=MATTEN
      CALL OOOATE(IATE)

C  PAGE DE TITRE
C  TEST ENVIRONNEMENT
      CALL GIBECO(ICONV)
      IOGRA=ICONV+1
      IF (ICONV.EQ.1) IOGRA=3
      IECHO=1-ICONV
      ICONV=0
      IF (IOGRA.GT.1) GOTO 2
      CALL PAGE

C  DATE
      CALL VDATE
   2  CONTINUE

C  INITIALISATION
      CALL DEPMAC
C  SI LECTURE AUTOMATIQUE DE DONNEES ECHO
      IF (IOLEC.EQ.3) IECHO=1

C  DEFINITION DU NOMBRE DE THREADS
      icp=1
      call getcpu(icp)
      icp=max(icp,1)
      if(icp.gt.10) icp=icp-1
      if(icp.gt.38) icp=icp-1

C  Test combien d'entier par REAL*8
      CALL INTPDO(IREP)
      if (IREP .EQ. 2) icp=min(31,icp)
      if (IREP .EQ. 1) icp=min(127,icp)
      CALL INIthread(icp)
      nbthrs=icp

C  Augmentation de la taille des fichiers de sauvegarde si 64-bits
      if (irep.eq.1) dimfic=0.25e13

C  DEFINITION ET IMPRESSION DE LA DATE DE LA VERSION
      CALL DEFDAT(icp)

C  DEFINITION DU TRAITEMENT DES ERREURS CORRECTIBLES
      CALL ERRCOR

C  INITIALISATION des threads intra operateur
C  INITIALISATION GEMAT
      oot=0
      CALL OOOSSG
      if (oot.eq.0) OOT=OOU
      if(irep.eq.2) CALL OOOXDS(1000,1000)
      if(irep.eq.1) CALL OOOXDS(100000,100000)
C  INITIALISATION REDLEC
      CALL INIRED(SREDLE)
      IREDLE=SREDLE
C  INITIALISATION DE LA PILE DE COMMUNICATION ET DE LA TABLE DES OBJETS
      CALL INILIR
C  INITIALISATION DES VARIABLES PREDEFINIES
      CALL INIALI
C  initialisation xpetit xgrand
      CALL INIREE
C  OUVERTURE DU FICHIER ERREUR
      CALL INIERR
C  CREATION SEGMENT DES POSITIONS (Common CCOORD)
      NBPTS = 0
      SEGINI MCOORD
      IRENUM = 0

C  Initialisation verrou
      CALL VERROU(1)

C  OUVERTURE DU FICHIER INFO
      CALL INFOPN(AREA,ICODE)
C  NOUVELLES
      CALL JOURNA
C  OUVERTURE DU FICHIER PROCEDURE
      CALL PROCPN(AREA,ICODE)
C  RECHERCHE DES LOIS DITES EXTERNES (MFRONT/UMAT)
      CALL LEXTPN(icode)
C  RECHERCHE SI UTILISATION BIBLIOTHEQUE HHO (externe)
      CALL LHHOPN(icode)
C  DERNIERE INITIALISATION : LISTE DES SEGMENTS PERMANENTS
      CALL INIMEN
C  INITIALISATION ASSISTANTS reportee a la premiere utilisation de ASSI
      nbescr=icp
      nbesc=0
C  Initialisation NECESSAIRE des thread esope, meme si il y en a 0
C      call iniass(nbesc)

C  FIN DES INITIALISATIONS
      RETURN
      END