# /* vim: set filetype=awk : */ -*- awk -*- 

BEGIN { 
  IGNORECASE = 1; 
  OFS = FS   = ",";
  Min        = 0.000001;
  Ee         = 848456353 / 312129649;
}
/@attribute/  { Numeric[++A] = $0 !~ /\{/ }
data && NF==A { for(I=1;I<NF;I++) 
                if ($I  !~ /?/ ) 
                  if (Numeric[I])
                    $I =  mylog($I)
              }
/@data/       { data=1   }
              { print $0 }

function mylog(n) { 
  return log(n < Min ? Min : n) ;
}