// 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 des séries (qui doivent alterner volumes chaines et valeurs), et qui rend la sommen en volume chaine



addfun main;




PROCEDURE main(arg1,arg2)

	{
	
	nb=numargs(); // les arguments impairs sont les volumes chaines, les arguments pairs sont les valeurs
	
	test=nb/2; 
	
	test2=ROUND(test);
	
	IF (test<>test2) THEN
		
		{

		PRT.("Error: Number of arguments is not even");

		RETURN(NA);
  
		}


	output7=0*getarg(1);

	output3=0*getarg(2);

	FOR(j=1;j<nb+1;j=j+2)
	
		{
		
		valeur = getarg(j)/getarg(j)(-1)*getarg(j+1)(-1);

		output7 = output7 + valeur;

		output3 = output3 + getarg(j+1);
		}

	RETURN(output7);
	
	}
