{
{   The purpose of this procedure is to free the given socket
{ identifier.
{
{       NLP$SK_FREE_SOCKET_ID (SOCKET_ID)
{
{ SOCKET_ID: (input) This parameter specifies the identifier of
{       the socket to be freed.
{
