      SUBROUTINE berlitz(iopt)
      INCLUDE 'Parametres.f'
      if (iopt.eq.1) then
        albion = .true.
      else
        albion = .false.
      endif
      END
