// 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 prend en entrée le nom d'une série annuelle et retourne la série annuelle px A-1 (calculée à partir des séries en vol px A-1 et en valeur)

addfun main;

procedure main(xvolvo,xval)
{
	t0 = STARTDATE(xvolvo);
	// Année de base des comptes nationaux, à modifier à chaque changement de base
	t1 = 2010A;
	t2 = ENDDATE(xvolvo);
	xpxbase = 1;
	i = 1;    

    for (j=t1-1;j>=t0-1;j=j-1)
	{
	valeur = (xvolvo[j+1]/xval[j+1])*xpxbase[1];
     	xpxbase = C.(valeur,xpxbase);
	i = i+1;
        }

    for (j=t1+1;j<=t2;j=j+1)
	{
	valeur = (xval[j]/xvolvo[j])*xpxbase[i]; 
	xpxbase = C.(xpxbase,valeur);
	i = i+1;
        }

		
  xpxbase=RESHAPE(xpxbase,t0-1);
  RETURN(xpxbase); 
  }
