Add corsica liuqe complete ids from meq

IDS/LLXLY_IDS_corsica.m

@@ -6,9 +6,8 @@ function [L,LX,LY] = LLXLY_IDS_corsica(L_LIU, a)
 L = struct();
 L.P = L_LIU.P;
 fieldlist = {'rl';'zl'; 'rw';'zw'; 'Twa'; 'rv';'zv'; 'Tvs'; 'rf'; 'zf';'rm'; 'zm'; 'am'};
-for ii= 1:numel(fieldlist)
-   tmpname = fieldlist{ii};
-   L.G.(tmpname)  = L_LIU.G.(tmpname);
+for  field = fieldlist.'
+   L.G.(field{1})  = L_LIU.G.(field{1});
 end
 
 % Set new grid
@@ -120,14 +119,12 @@ end
 LY.t = LX.t;
 
 % Put all vector in raw form
-flist = fieldnames(LX);
-for field = flist
+for field = fieldnames(LX).'
     LX.(field{1}) = v2rw(LX.(field{1}));
 end
 
 % Put all vector in raw form
-flist = fieldnames(LY);
-for field = flist
+for field = fieldnames(LY).'
     LY.(field{1}) = v2rw(LY.(field{1}));
 end