Télécharger iniass.eso

Retour à la liste

Numérotation des lignes :

  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
  22. call savseg(MERRES)
  23. segini mestra
  24. segdes mestra
  25. call savseg(mestra)
  26. do 10 i=0,nbesc
  27. * on genere egalement une structure pour le maitre
  28. NINS = 10
  29. segini MESINS
  30. inass = i
  31. NBINS = 1
  32. INSCOU = 0
  33. segini mescla
  34. lismes(nbins) = mescla
  35. do 5 iob=1,100
  36. esoplu(iob)=.true.
  37. 5 continue
  38. * pour transferer les valeurs de segments particuliers
  39. esopva(1) = mestra
  40. esopva(2) = merres
  41. call savseg(mesins)
  42. *** call savseg(mescla)
  43. MESCL(I) = MESINS
  44. * write (6,*) ' iniass i mescl(i) ',i,mescl(i)
  45. imescl(i) = mescla
  46. if (i .eq. 0) then
  47. imestr = mestra
  48. ierres = merres
  49. end if
  50. iflag=1
  51. segdes mescla
  52. segdes mesins*RECORD
  53. 10 continue
  54. call ooothr(nbes,main2)
  55. * initialisation du mesins maitre
  56. mesins = mescl(0)
  57. segact mesins*mod
  58. NBINS = 0
  59. mescla = lismes(1)
  60. *** call libseg(mescla)
  61. segsup mescla
  62. lismes(1) = 0
  63. inscou = 0
  64. segdes mesins*record
  65. LODEFE = .true.
  66. return
  67. 50 continue
  68. nbes=iob-1
  69. interr(1)=nbesc
  70. call erreur(894)
  71. return
  72. end
  73.  
  74.  
  75.  
  76.  
  77.  

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