function [report]=enter_sheet(r1,r2,r3,r4,r,T)
%**************************************************************************
% CLUSTER project: Cluster Flight                  Autor: Christian Maszl * 
% Unit System = [SI]                  Mail: e0025754@student.tuwien.ac.at *
%**************************************************************************
%
% This subroutine reports when the cluster satellites enter the current 
% sheet

line=1;hit1i=1;hit1o=1;

for i=1:size(T,1)
     if hit1i~=2
        if (r1(i,1)>=-r)
           report{line,1}=['[1] Enters the current sheet at t=',int2str(T(i)),' and x=',int2str(r1(i,1)),'.'];
	   line=line+1; hit1i=2; 
	else
        end
     else
     end
     if hit1o~=2
        if (r1(i,1)>=r)
           report{line,1}=['[1] Leaves the current sheet at t=',int2str(T(i)),' and x=',int2str(r1(i,1)),'.'];
	   line=line+1; hit1o=2; 
	else
        end
     else
     end

end
