function [rr, g] = param;
% Setting problem parameters  
% 
% Output:
% rr: Vector with components r_c, r_12, R, indicating 
%     the radius of the core, the radius to the boundary between the two materials, 
%     and the outer radius of the cylinder, respectively; 0 < r_c < r_12 < R
% g:  Heat flux at r = r_c
%
% Martin Berggren, september 2004
%
rr = [0.1; 0.55; 1];
g = 50;