sir hlnt.f , nr * hhart