init_AdtQA_V

0001 function AdtQA_V = init_AdtQA_V(Nvact, Ndelta, NL_indx ,Val)
0002 
0003 if nargin < 4, Val=1; end
0004 
0005 % Initialization
0006 AdtQA_V = cell(Ndelta,Ndelta);
0007 for nl = 1:Ndelta
0008   for nld = 1:Ndelta
0009     if nl ~= nld
0010       AdtQA_V{nld,nl} = spalloc(Nvact, Nvact, Nvact);
0011     end
0012   end
0013 end
0014 for nv = 1:Nvact
0015     for nl = 1:Ndelta
0016          if ~isempty(NL_indx{nv,nl})
0017         for nld = 1:Ndelta
0018          if ~isempty(NL_indx{nv,nld})
0019           if nl ~= nld
0020             AdtQA_V{nld,nl}(NL_indx{nv,nld},NL_indx{nv,nl}) = Val; 
0021           end
0022         end
0023       end
0024     end
0025   end
0026 end
0027 
0028 return