// Ce code source est rgi par la licence CeCILL V2.1 soumise au droit franais et 
//respectant les principes de diffusion des logiciels libres. Il est autoris de modifier 
//et/ou redistribuer ce code sous les conditions de la licence CeCILL V2.1. Le texte complet
// de la licence CeCILL V2.1 est dans le fichier `LICENSE`.

// fonction qui rtropole une srie x par la variation de y entre la date dbut de y 
// et la date de dbut de x
// en entre : serie x, serie y dfinie sur une priode allant plus loin dans le pass

addfun main;

procedure main(x,y)
  {
  t1=startdate(x);
  t2=startdate(y);
 serie=x;
  for (i=t1-1;i>=t2;i=i-1)
     {j=i+1;
     valeur=reshape(serie[j]+y[i]-y[j],i);
     serie=( c.(valeur,serie) );
     
     }
  return(serie);
  } 
     
