anchor.diff:  %%%----------------------------------------------------------------
   %%%
   init_per_group(Group, Config) ->
  -    ct:pal("~p(~p,..)",[?FUNCTION_NAME,Group]),
       case atom_to_list(Group) of
           "ciphers_"++KeySizeStr ->
               KeySize = list_to_integer(KeySizeStr),
  -            [{key_size,KeySize}
  -             | measure_openssl_aes_cbc(KeySize, Config)];
  +            [{key_size,KeySize} | Config];
   
           "textblock_"++BlockSizeStr ->
               BlockSize = list_to_integer(BlockSizeStr),
  
positive.code:     OverHead = proplists:get_value(overhead, Config, 0),
      [try
           TimePerOpBrutto = run(Crypto,KeySize,BlockSize,MilliSecGoal),
           ct:pal("Brutto: ~p Overhead: ~p (~.2f %) Netto: ~p",
                  [TimePerOpBrutto, OverHead, 100*OverHead/TimePerOpBrutto,TimePerOpBrutto - OverHead]),
           TimePerOpBrutto - OverHead
       of
           TimePerOp -> % µs
  
negative.code:     Config.
  
  
  measure_openssl_aes_cbc(KeySizes, Config) ->
      BLno_acc = [baseline(aes_cbc, KeySize, false) || KeySize <- KeySizes],
      ct:pal("Non-accelerated baseline encryption time [µs/block]:~n~p", [BLno_acc]),
      BLacc = [baseline(aes_cbc, KeySize, true) || KeySize <- KeySizes],
      ct:pal("Possibly accelerated baseline encryption time [µs/block]:~n~p", [BLacc]),
      [{acc,BLacc},
       {no_acc,BLno_acc} | Config].
  