function [eventwert,isterminal,richt] = MagnetoptikEvents(t,y,qB0m,qBofm,v0,rpos)

% Magnetfeld nach Durchlaufen des Quadrupols oder Sextupols ausschalten

% W. Schweizer
% Simulation physikalischer Systeme - Computational Physics mit MATLAB 
% 2016

% Vers. 3.1 01/2015

eventwert = v0*t-rpos;  % aus in DGL
isterminal = 1;
richt = 0;