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.  
  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