function v = entropy_mole(tp)

v = thermo_get(tp.tp_id, 4);