function [sensitivity] = calibrations_20110916(inst_ID,chname)
    %This file will get more accurate at time goes on.
    %Q = eps0*E*A
        %As=0.1 m^2
        %Am=0..02
        %Ai=0.005
    %G = -20 (M, S)
    %G = -10 (I)
    %Vs = Q/C1s=Q/1.1 nanoFarad
    %Vm = Q/C1m=Q/6.2 nanoFarad
    %Vi = Q/C1i=Q/22 nanoFarad
    %geometry = Enhancement factor -- Guess geometry=1/7
    %E = k*V where k= (C/eps0*A*G)
    
    if length(inst_ID)>5  nmbr=str2num(inst_ID(5:6)); 
    else nmbr=str2num(inst_ID(5));
    end
%   Load calibration constants
    CALS=load('LEFAloc20110916.txt');
    inst_nmbr=CALS(:,4);
    
%     geometry=1/7;
%     ks=-62.08; %(V/m per V)
%     km=-1750; %(V/m per V)
%     ki=-49700; %(V/m per V)
%     effective_area_factor_i_channel=2.3; %From Joanna Zhang 11/11/2009 e-mail
%     ki=ki*effective_area_factor_i_channel;
%     ks=ks*geometry;
%     km=km*geometry;
%     ki=ki*geometry;
    
    switch nmbr
        case {2,3,4,5,6,7,8,11,10,12}
            switch chname
                case {'S'}
%                     disp('S')
                  idx=find(nmbr==inst_nmbr,1);
                  info=CALS(idx,6);
                case {'M'}
%                     disp('M')
                  idx=find(nmbr==inst_nmbr,1);
                  info=CALS(idx,7);
                case {'I'}
%                     disp('I')
                  idx=find(nmbr==inst_nmbr,1);
                  info=CALS(idx,8);
                otherwise
                    error('Channel name didnt work')
            end
        otherwise
          error('Invalid instrument_ID passed to calibrations.m')
    end
    
    sensitivity=-info;

%     switch chname
%       case {'S'}
%         sensitivity=ks*site_correction;
%       case {'M'}
%         sensitivity=-site_correction;
%       case {'I'}
%         sensitivity=ki*site_correction;
%     end
    
end