{
{   The purpose of this procedure is to issue a keypoint instruction with
{ the specified keypoint class and keypoint code.
{
{        CLP$KEYPOINT (KEYPOINT_CLASS, KEYPOINT_CODE)
{
{ KEYPOINT_CLASS: (input) This parameter specifies the keypoint class.
{
{ KEYPOINT_CODE: (input) This parameter specifies the keypoint code.
{
