anchor.diff:  start_link(MyName, All_list, Seed, MyFLUPid) ->
       gen_server:start_link(?MODULE, {MyName, All_list, Seed, MyFLUPid}, []).
   
  +stop(Pid) ->
  +    gen_server:call(Pid, {stop}, infinity).
  +
   calculate_projection_internal_old(Pid, OldThreshold, NoPartitionThreshold) ->
       gen_server:call(Pid, {calculate_projection_internal_old, OldThreshold, NoPartitionThreshold}, infinity).
   
  -stop(Pid) ->
  -    gen_server:call(Pid, {stop}, infinity).
  +cl_write_current_projection(Pid) ->
  +    gen_server:call(Pid, {cl_write_current_projection}, infinity).
   
   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   
  
positive.code:         [begin
               Proj = ?MGR:calculate_projection_internal_old(M0, 50, 50),
               io:format(user, "~p\n", [?MGR:make_projection_summary(Proj)])
           end || _ <- lists:seq(1,5)]
      after
          ok = ?MGR:stop(M0)
      end.
  
  -endif.
  
negative.code:             {Cutoff3, Seed3} = random:uniform_s(100, Seed1),
              if Cutoff3 < NoPartitionThreshold ->
                      {Seed3, []};
                 true ->
                      make_network_partition_locations(Nodes, Seed3)
              end
  