anchor.diff:    if (me .eq. 1) then
       seed_eq = 0
     else
  -    seed_eq = any(random_num .eq. from_master)
  +    seed_eq = transfer(any(random_num .eq. from_master), 0)
     end if
     call co_max(seed_eq, 1)
   
  
positive.code:     from_master = random_num
    end if
    call co_broadcast(from_master, 1)
    seed_eq = all(random_num .eq. from_master)
    call co_min(seed_eq, 1)
  
    if (me .eq. 1 .and. seed_eq .eq. 0) then
  
negative.code:     from_master = random_num
    end if
    call co_broadcast(from_master, 1)
    seed_eq = transfer(all(random_num .eq. from_master), 0)
    call co_min(seed_eq, 1)
  
  print *,"me=", me, ", rand_num=", random_num, ", from_master=", from_master, ", seed_eq=", seed_eq
  