function F = lininterp1f(X,Y,XI,Ydefault)

disp('For fast linear interpolation, download lininterp1f from Mathworks')
disp('file exchange (File ID: #8627) or use alternative interpolator')
disp('http://www.mathworks.com/matlabcentral/fileexchange/8627-fast-linear-interpolation')
disp(' ')
disp('Place lininterp1f in CORE\utilities')