anchor.diff:                      ! Combine the spawning numbers
                       nspawn = nspawn_ki * nspawn_jk
   
  -                    ! 4. If H_ij is positive, then the spawned walker is of opposite
  +                    ! If H_ij is positive, then the spawned walker is of opposite
                       ! sign to the parent, otherwise the spawned walkers if of the same
                       ! sign as the parent.
                       if (hmatel_ki*hmatel_jk > 0.0_p) then
  
positive.code:                     ! Combine the spawning numbers
                      nspawn = nspawn_ki * nspawn_jk
  
                      ! 4. If H_ij is positive, then the spawned walker is of opposite
                      ! sign to the parent, otherwise the spawned walkers if of the same
                      ! sign as the parent.
                      if (hmatel_ki*hmatel_jk > 0.0_p) then
  
negative.code:             nspawn_ki = int(pspawn_ki)
              pspawn_ki = pspawn_ki - nspawn_ki
  
              ! Stochastic offspring
              if (pspawn_ki > psuccess) nspawn_ki = nspawn_ki + 1
  
              if(nspawn_ki > 0 ) then
  