// 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 prolonge une srie x par la valeur v  une date donne
// en entre : serie x, valeur v et date de prolongement 

addfun main;

procedure main(x,v,date)
  {
	z=subrange(x,startdate(x),date-1);
        z=c.(z,v);        
       return(z); 
  }
