{
{   The purpose of this procedure is to unlock the entry
{ for the given socket identifier in the array of job sockets if it
{ is locked by this task.
{
{       NLP$SK_CLEAR_JOB_SOCKET_LOCK (SOCKET_ID)
{
{ SOCKET_ID: (input) This parameter specifies the socket identifier.
{

