anchor.diff:  
   !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   ! gathers basic system info
  -subroutine QM_SYSGROK(quoc, nnodes, nnoderanks, noderank, nsocks, ncores, npus)
  +subroutine QM_SYSGROK(quoc, nnodes, nnoderanks, noderank, &
  +                      nnumanodes, nsocks, ncores, npus)
       integer*8, intent(in) :: quoc
  -    integer*4, intent(out) :: nnodes, nnoderanks, noderank, nsocks, ncores, npus
  +    integer*4, intent(out) :: nnodes, nnoderanks, noderank, &
  +                              nnumanodes, nsocks, ncores, npus
       integer*4 :: qerr, tmpnsocks
       ! how many nodes are in our job
       call QUO_NNODES(quoc, nnodes, qerr)
  
positive.code:     ! C int type.
      integer*4 :: rank, nranks, coverflag
      integer*4 :: quovmaj, quovmin, vindex, ncoresinfsock, nsmpranksonfsock
      integer*4 :: nnodes, nnoderanks, nsockets, ncores, npus, bound, noderank
      integer*4, allocatable, dimension(1) :: ranks(:), smpranksonfsock(:)
      character(LEN=32) :: strbindprefix
      ! play nice with C strings
  
negative.code:         print *, '### quoversion:         ', quovmaj, quovmin
          print *, '### nnodes:             ', nnodes
          print *, '### nnoderanks:         ', nnoderanks
          print *, '### nnumanodes          ', nnumanodes
          print *, '### nsockets:           ', nsockets
          print *, '### ncores:             ', ncores
          print *, '### npus:               ', npus
  