anchor.diff:  
       ! one rank per node will emit this info
       if (0 .EQ. noderank) then
  +        print *
  +        print *, '#############################################################'
  +        print *, '### nranks:             ', nranks
           print *, '### quoversion:         ', quovmaj, quovmin
           print *, '### nnodes:             ', nnodes
           print *, '### nnoderanks:         ', nnoderanks
           print *, '### nsockets:           ', nsockets
           print *, '### ncores:             ', ncores
           print *, '### npus:               ', npus
  -    end if
  -
  -    !call QUO_BIND_PUSH(quo, QUO_BIND_PUSH_OBJ, QUO_OBJ_SOCKET, 0, qerr)
  -    !if (QUO_SUCCESS .NE. qerr) then
  -    !    print *, 'QUO_BIND_PUSH failure: err = ', qerr
  -    !    stop
  -    !end if
  -    !call QM_EMITBIND(quo)
  +        print *, '#############################################################'
  +        print *
  +    end if
  +
       ! note that the ranks array must be at least large enough to hold the
       ! result. also note that the ranks retured by this routine are
       ! MPI_COMM_WORLD ranks.
  
positive.code: !
  
  ! my very first fortran app -- don't laugh too hard...
  
  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  
negative.code:     if (1 .EQ. coverflag) then
          print *, '### rank covers core 0: ', rank
      end if
      !call QM_EMITBIND(quo)
  
      call MPI_BARRIER(MPI_COMM_WORLD)
  
      if (0 .EQ. noderank) then
          print *
          print *, '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
          print *, '!!! pushing new bind policy !!!'
          print *, '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
          print *
      end if
  
      ! bind everyone to socket 0
      call QUO_BIND_PUSH(quo, QUO_BIND_PUSH_OBJ, QUO_OBJ_SOCKET, 0, qerr)
      if (QUO_SUCCESS .NE. qerr) then
          print *, 'QUO_BIND_PUSH failure: err = ', qerr
          stop
      end if
  
      !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
      ! cleanup
  