radius from sxR as structure as for TCV

git-svn-id: https://spcsvn.epfl.ch/repos/TCV/gdat/trunk@1864 d63d8f72-b253-0410-a779-e742ad2e26cf

JET/loadJETdata.m

@@ -477,10 +477,11 @@ switch JETkeywrdcase{index}
       end
       zmageff=interp1(zmag.t,zmag.data,trace.t);
       for i=starti:endi
-        radius(i,:)=2.848 + (2.172-zmageff') .* tan(-4.5/180.*3.14159 - atan2(0.99.*(i-18),35.31));
+        radius.data(i,:)=2.848 + (2.172-zmageff') .* tan(-4.5/180.*3.14159 - atan2(0.99.*(i-18),35.31));
       end
-      varargout={{radius}}; 
-      trace.R=radius;
+      radius.t=t;
+      varargout{1}={radius}; 
+      trace.R=radius.data;
     end
 
   %&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&