Sedimentation velocity function
function vSfun input Real X; input Real ISV; output Real vS; end vSfun;