anchor.diff:    integer(ZMQ_PTR), intent(in)   :: zmq_socket_sub
     integer                        :: rc
     
  +  PROVIDE zmq_context
     call omp_set_lock(zmq_lock)
     rc = f77_zmq_close(zmq_socket_sub)
     call omp_unset_lock(zmq_lock)
  
positive.code:   integer                        :: rc
    character*(8), external        :: zmq_port
    
    call omp_set_lock(zmq_lock)
    rc = f77_zmq_close(zmq_socket_pair)
    call omp_unset_lock(zmq_lock)
  
negative.code:   integer                        :: rc
    character*(8), external        :: zmq_port
    
    PROVIDE zmq_context
    call omp_set_lock(zmq_lock)
    rc = f77_zmq_close(zmq_socket_pull)
    call omp_unset_lock(zmq_lock)
  