// getmodelname.ind


proc(1)=getmodelname(model_num);
local model_name; 

if model_num==1; 

// Benchmark KP
//----------------
// KP refers to the Kydland-Prescott parametrization 
// considered by Christiano et al.

    model_name="KPr";
    
elseif model_num==2; 
 // KP w Frisch E. = 0
//----------------
    model_name="KPS0r";

elseif model_num==3;
 // KP w Frisch E. = 0.63
//----------------
    model_name="KPS6r";

elseif model_num==4;
// CKM benchmark model

    model_name="CKMr";

elseif model_num==5;
// CKM w Frisch E. = 0;

    model_name="CKMS0r";

elseif model_num==6;
// CKM w Frisch E. = 0.63

    model_name="CKMS6r";

elseif model_num==7;
// CKM w sigma_l/2

    model_name="CKM2r";

elseif model_num==8;
// CKM w sigma_l/3

    model_name="CKM3r";

endif;

retp(model_name);
endp; 


proc(1)=getdecname(dec_dummy); 
    local decname;
    
    if dec_dummy==1;

        decname="Chol";

    elseif dec_dummy==2;

        decname="Hand"; 
    elseif dec_dummy==3;
        decname="Hand2";
    endif; 

    retp(decname); 
endp;


proc(1)=getlagsname(lag_sdummy,pp);
    local lag_name;

    if lag_sdummy==1;

        lag_name="p"$+ftocv(pp,1,0);

    elseif lag_sdummy==2;

        lag_name="AIC"; 

    endif; 

    retp(lag_name); 
endp; 