Télécharger setass.eso

Retour à la liste

Numérotation des lignes :

  1. C SETASS SOURCE PV 18/10/18 11:48:57 9969
  2. C mise à jour de lodesl à cause de probleme mysterieux
  3. C
  4. subroutine setass(i)
  5. -INC CCASSIS
  6. ith=oothrd
  7. if (ith.ne.0) return
  8. if (i.eq.1) then
  9. if (lodesl) then
  10. * write (6,*) ' incoherence 1 lodesl'
  11. call erreur(5)
  12. else
  13. lodesl=.true.
  14. endif
  15. endif
  16. if (i.eq.0) then
  17. if (.not.lodesl) then
  18. * write (6,*) ' incoherence 2 lodesl'
  19. call erreur(5)
  20. else
  21. lodesl=.false.
  22. endif
  23. endif
  24. end
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  

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