C INIASS    SOURCE    PV        11/04/15    21:15:10     6945
C INIASS    SOURCE    PV        99/09/20    21:17:32     3684
C  initialisation des assistants castem
C
      SUBROUTINE INIASS(NBES)
      IMPLICIT INTEGER(I-N)

-INC PPARAM
-INC CCOPTIO
-INC CCNOYAU
-INC CCASSIS
-INC SMCOORD
      external long,main2
      character*128 leprog
      equivalence (ieprog,leprog)
      nbesc=nbes
*       print*, ' passage dans INIASS '
      NERR = 2
      segini MERRES
*     write (6,*) ' iniass creation merres ',merres
      LOSIER = .FALSE.
      NBERR = 0
      segdes MERRES
      call savseg(MERRES)
      segini mestra
      segdes mestra
      call savseg(mestra)
      do 10 i=0,nbesc
* on  genere egalement une structure pour le maitre
       NINS = 10
       segini MESINS
       inass = i
       NBINS = 1
       INSCOU = 0
       segini mescla
       lismes(nbins) = mescla
       do 5 iob=1,100
        esoplu(iob)=.true.
  5    continue
* pour transferer les valeurs de segments particuliers
         esopva(1) = mestra
         esopva(2) = merres
       call savseg(mesins)
***    call savseg(mescla)
       MESCL(I) = MESINS
*      write (6,*) ' iniass i mescl(i) ',i,mescl(i)
           imescl(i) = mescla
        if (i .eq. 0) then
           imestr = mestra
           ierres = merres
        end if
       iflag=1
       segdes mescla
       segdes mesins*RECORD
  10  continue
      call ooothr(nbes,main2)
* initialisation du mesins maitre
        mesins = mescl(0)
        segact mesins*mod
        NBINS = 0
        mescla = lismes(1)
***     call libseg(mescla)
        segsup mescla
        lismes(1) = 0
        inscou = 0
        segdes mesins*record
        LODEFE = .true.
      return
  50  continue
      nbes=iob-1
      interr(1)=nbesc
      call erreur(894)
      return
      end