hpt.f - KK t it