anchor.diff:    integer                        :: rc, sze
     integer(ZMQ_PTR),external      :: new_zmq_to_qp_run_socket
     integer(ZMQ_PTR), intent(out)  :: zmq_to_qp_run_socket
  -  
  +
  +  zmq_context = f77_zmq_ctx_new ()
     zmq_to_qp_run_socket = new_zmq_to_qp_run_socket()
     name = name_in
     sze = len(trim(name))
  
positive.code:   ! Context for the ZeroMQ library
    END_DOC
    call omp_init_lock(zmq_lock)
    zmq_context = f77_zmq_ctx_new ()
  END_PROVIDER
  
  
  
negative.code:   zmq_state = 'No_state'
    call end_zmq_to_qp_run_socket(zmq_to_qp_run_socket)
  
    rc = f77_zmq_ctx_term(zmq_context)
    if (rc /= 0) then
      print *,  'Unable to terminate ZMQ context'
      stop 'error'
    endif
  end
  
  subroutine connect_to_taskserver(zmq_to_qp_run_socket,worker_id,thread)
  