function  param_save(zeta)

betab=0.95;
betal=0.995;
gammah=1/3;
eta=2;
kappa=1-1/40;
xi=0.15;
zeta=0.015;
%theta=0.8;
Delta=0.5;
gamma=0.7;
kappaI=2;
alpha=2/3;
delta=0.1;
epsilon=11;
Phip=0.6;
inflH=1;
inflF=1;
Pis=1.02;
v=1;
fracYH=0.4;
v1=0.25;
v2=0.25;
sp=0.04;
As=1;
sigma=0.85;
levs=4;
fracCl=0.5;


% Monetary policy rule
rhor=0.9;
rhopi=1.5;
rhoY=0.125;


% shock parameters
rhoX=0.9;
rhoRr=0.9;
rhoA = 0.95;
rhos=0.9;
eR=0.01;
eX=0.01;
eA=0.065;
eRr=eR;
es=0.01;




if nargin < 2
    zeta=0.015;
end



save param betab betal gammah eta kappa xi zeta Delta gamma kappaI alpha...
           delta epsilon Phip inflH inflF Pis v rhoX fracYH v1 v2 sp rhoRr rhor rhopi rhoY...
           rhoA eR eX eA eRr As sigma levs fracCl rhos es