function CL=CLfun(x)
% function CL=CLfun(x)
%
% Function to compute the lift coefficient
%
% CL=W/(.5*pho*v^2S)
%
% x(1)=W=weight in pounds
% x(2)=rho=air density in slugs per ft^3
% x(3)=v=speed in ft/sec
% x(4)=S=wing area in ft^2
%

W=x(1);
rho=x(2);
v=x(3);
S=x(4);
CL=W/(.5*rho*v*v*S);
