function[ktol]=P9550_values(i)
%
    disp(' ref 1 ');
%
    ktable(1)= 99999.;
    ktable(2)= 2.339;
	ktable(3)= 1.939;
	ktable(4)= 1.830;
	ktable(5)= 1.779;
	ktable(6)= 1.750;
	ktable(7)= 1.732;
	ktable(8)= 1.719;
	ktable(9)= 1.709;
	ktable(10)= 1.702;
	ktable(11)= 1.696;
	ktable(12)= 1.691;
	ktable(13)= 1.687;
	ktable(14)= 1.684;
	ktable(15)= 1.681;
	ktable(16)= 1.678;
	ktable(17)= 1.676;
	ktable(18)= 1.674;
	ktable(19)= 1.673;
	ktable(20)= 1.671;
	ktable(21)= 1.670;
	ktable(22)= 1.669;
	ktable(23)= 1.668;
	ktable(24)= 1.667;
	ktable(25)= 1.666;
	ktable(26)= 1.665;
	ktable(27)= 1.664;
	ktable(28)= 1.663;
	ktable(29)= 1.662;
	ktable(30)= 1.662;
	ktable(31)= 1.662;
	ktable(32)= 1.661;
	ktable(33)= 1.661;
	ktable(34)= 1.660;
	ktable(35)= 1.659;
	ktable(36)= 1.659;
	ktable(37)= 1.659;
	ktable(38)= 1.659;
	ktable(39)= 1.659;
	ktable(40)= 1.658;
	ktable(41)= 1.658;
	ktable(42)= 1.657;
	ktable(43)= 1.657;
	ktable(44)= 1.656;
	ktable(45)= 1.656;
        disp(' ref 2 ');
    if(i<=45)
       ktol=ktable(i);
    end
    if(i>45)
       ktol=ktable(45);
    end
    disp(' ref 3 ');