Télécharger la plaquette Cast3M


fr en

Télécharger iniass.eso

Retour à la liste

Numérotation des lignes : 

iniass

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

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