The code of RKPM program