// 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`.

// cre des dummies saisonnires
// en entre le trimestre choisi (1,2,3 ou 4)
// la date de dbut et celle de fin


addfun main;
procedure main(t,debut,fin)

{
a=t;

u=0;
if (date2frac(debut)==a) then u=1 ;
b=reshape(u,debut);
for (i=debut+1;i<=fin;i=i+1)
	begin;
	u=0;
	if (date2frac(i)==a) then u=1 ;
	b=c.(b,u);
	end;

return (b);

}

 
