%
%   OILTANKC.M   Function evaluation for ODE step in OILTANK.M
%
%   Evaluate  dh/dt = -(Aout/2L)*sqrt(2g/(D-h))  for given t and h   
%
%   File prepared by J. R. White, UMass-Lowell (July 2003)
%
      function hp = oiltankc(t,h,flag,A,L,G,D)
      hp = -(A/(2*L))*sqrt(2*G/(D-h));       
%
%   end of function