C SETASS    SOURCE    PV        11/04/15    21:15:19     6945           
C  mise à jour de lodesl à cause de probleme mysterieux
C
      subroutine setass(i)
-INC CCASSIS
      if (i.eq.1) then
       if (lodesl) then
*        write (6,*) ' incoherence 1 lodesl'
         call erreur(5)
       else
         lodesl=.true.
       endif
      endif
      if (i.eq.0) then
       if (.not.lodesl) then
*        write (6,*) ' incoherence 2 lodesl'
         call erreur(5)
       else
         lodesl=.false.
       endif
      endif
      end