Télécharger main2.eso

Retour à la liste

Numérotation des lignes :

  1. C MAIN2 SOURCE PV 11/04/08 21:16:13 6934
  2. C MAIN pour castem esclave
  3. C
  4. SUBROUTINE MAIN2
  5. IMPLICIT INTEGER(I-N)
  6. -INC CCOPTIO
  7. -INC SMCOORD
  8. -INC CCASSIS
  9. -INC CCNOYAU
  10. * initialisation de lotesc
  11. lotesc=.false.
  12. ith=0
  13. call ooonth(ith)
  14. if (ith.eq.0) call erreur(5)
  15. if (ith.ne.0) lotesc=.true.
  16. * write (6,*) ' dans main2 ',ith
  17. mesins=mescl(ith)
  18. * write (6,*) ' main2 mesins ',mesins
  19. SEGACT MESINS*MOD
  20. inass1 = inass
  21. CC print*, 'debut de main2 - Assistant : ', inass1
  22. CC print*, '""""""""""""""""""""""""""""""""""""""'
  23. mescla=lismes(1)
  24. * write (6,*) ' mescla dans main2 ',mescla
  25. inscou = mescla
  26. NBINS = NBINS - 1
  27. IF ( NBINS .NE. 0 ) THEN
  28. do i = 1 , NBINS
  29. lismes(i) = lismes(i+1)
  30. end do
  31. END IF
  32. lismes(NBINS+1) = 0
  33. SEGDES MESINS*RECORD
  34. imescl(ith)=mescla
  35. segact mescla*mod
  36. C recuperation des données cachées
  37. imestr = esopva(1)
  38. mestra = esopva(1)
  39. segact mestra
  40. ierres = esopva(2)
  41. C FIN DES INITIALISATIONS
  42. CALL PILOT
  43. CALL FIN
  44. STOP
  45. END
  46.  
  47.  
  48.  
  49.  
  50.  

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