AireAiPrime(k,c1,w0,Options)

function [w,ssq,cnt] = AireAiPrime(k,c1,w0,Options)
%   AIREAIPRIME     Function for complex root search
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

[w,ssq,cnt] = cxroot(@funw,w0,Options{:});
%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

% The nested function funw uses parameters k and c1 from the parent function
% AireAiPrime, where are as input arguments.
% Usef supplied nested function funw defines formulae for calculating value
% of the complex function of complex argument (w) and other parameters 
% (k,c1) 

    function fw = funw(w)
%   ~~~~~~~~~~~~~~~~~~~~~
    Z  = i*w*(6i*k)^(-2/3);
    fw = airy(k,Z)-c1*exp(i*pi/6);
    end % fw

end % AireAiPrime