missing kin_functions.f