Esope source files

   1 : C INIASS    SOURCE    PV        11/04/15    21:15:10     6945           
   2 : C INIASS    SOURCE    PV        99/09/20    21:17:32     3684           
   3 : C  initialisation des assistants castem
   4 : C
   5 :       SUBROUTINE INIASS(NBES)
   6 :       IMPLICIT INTEGER(I-N)
   7 : -INC CCOPTIO
   8 : -INC CCNOYAU
   9 : -INC CCASSIS
  10 : -INC SMCOORD
  11 :       external long,main2
  12 :       character*128 leprog
  13 :       equivalence (ieprog,leprog)
  14 :       nbesc=nbes
  15 : *       print*, ' passage dans INIASS '
  16 :       NERR = 2
  17 :       segini MERRES
  18 : *     write (6,*) ' iniass creation merres ',merres
  19 :       LOSIER = .FALSE.
  20 :       NBERR = 0
  21 :       segdes MERRES
  21 :       call savseg(MERRES)
  22 :       segini mestra
  23 :       segdes mestra
  23 :       call savseg(mestra)
  24 :       do 10 i=0,nbesc
  25 : * on  genere egalement une structure pour le maitre 
  26 :        NINS = 10
  27 :        segini MESINS
  28 :        inass = i
  29 :        NBINS = 1 
  30 :        INSCOU = 0
  31 :        segini mescla
  32 :        lismes(nbins) = mescla
  33 :        do 5 iob=1,100   
  34 :         esoplu(iob)=.true.
  35 :   5    continue
  36 : * pour transferer les valeurs de segments particuliers
  37 :          esopva(1) = mestra
  38 :          esopva(2) = merres
  38 :        call savseg(mesins)
  38 : ***    call savseg(mescla)
  39 :        MESCL(I) = MESINS
  40 : *      write (6,*) ' iniass i mescl(i) ',i,mescl(i)
  41 :            imescl(i) = mescla
  42 :         if (i .eq. 0) then
  43 :            imestr = mestra
  44 :            ierres = merres
  45 :         end if
  46 :        iflag=1
  47 :        segdes mescla
  48 :        segdes mesins*RECORD
  49 :   10  continue
  49 :       call ooothr(nbes,main2)
  50 : * initialisation du mesins maitre
  51 :         mesins = mescl(0)
  52 :         segact mesins*mod
  53 :         NBINS = 0
  54 :         mescla = lismes(1)
  54 : ***     call libseg(mescla)
  55 :         segsup mescla
  56 :         lismes(1) = 0
  57 :         inscou = 0
  58 :         segdes mesins*record
  59 :         LODEFE = .true.
  60 :       return
  61 :   50  continue
  62 :       nbes=iob-1
  63 :       interr(1)=nbesc
  63 :       call erreur(894)
  64 :       return
  65 :       end
  66 :  
  67 :  
  68 :  
  69 :