bksup1

 Copyright (C) 2001 Michel Juillard

0001 % Copyright (C) 2001 Michel Juillard
0002 %
0003 function d = bksup1(ny,jcf)
0004 
0005 global options_ iyf c 
0006 
0007 ir = [(options_.periods-2)*ny+1:ny+(options_.periods-2)*ny] ;
0008 irf = iyf+(options_.periods-1)*ny ;
0009 icf = [1:size(iyf,2)] ;
0010 
0011 for i = 2:options_.periods
0012     c(ir,jcf) = c(ir,jcf)-c(ir,icf)*c(irf,jcf) ;
0013     ir = ir-ny ;
0014     irf = irf-ny ;
0015 end
0016 
0017 d = c(:,jcf) ;
0018 
0019 return ;