// Ce code source est régi par la licence CeCILL V2.1 soumise au droit français 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 série x par la valeur v à une date donnée
// en entrée : 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); 
  }
