Esope source files

   1 : C SETASS    SOURCE    PV        11/04/15    21:15:19     6945           
   2 : C  mise à jour de lodesl à cause de probleme mysterieux
   3 : C
   4 :       subroutine setass(i)
   5 : -INC CCASSIS
   6 :       if (i.eq.1) then
   7 :        if (lodesl) then
   8 : *        write (6,*) ' incoherence 1 lodesl'
   8 :          call erreur(5)
   9 :        else
  10 :          lodesl=.true.
  11 :        endif
  12 :       endif
  13 :       if (i.eq.0) then
  14 :        if (.not.lodesl) then
  15 : *        write (6,*) ' incoherence 2 lodesl'
  15 :          call erreur(5)
  16 :        else
  17 :          lodesl=.false.
  18 :        endif
  19 :       endif
  20 :       end
  21 : 
  22 :  
  23 :