volume parts of mass components
function parts_vol input Real parts_mass[:]; input Real rho_parts[size(parts_mass, 1)]; output Real parts[size(parts_mass, 1)]; end parts_vol;