anchor.diff:    ! Context for the ZeroMQ library
     END_DOC
     call omp_init_lock(zmq_lock)
  -  zmq_context = f77_zmq_ctx_new ()
  +  zmq_context = 0_ZMQ_PTR
   END_PROVIDER
   
   
  
positive.code:   integer                        :: rc, sze
    integer(ZMQ_PTR),external      :: new_zmq_to_qp_run_socket
    integer(ZMQ_PTR), intent(out)  :: zmq_to_qp_run_socket
    
    zmq_to_qp_run_socket = new_zmq_to_qp_run_socket()
    name = name_in
    sze = len(trim(name))
  
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)
  