function get_sofea()
    disp( [' The restrictive policy of the mathworks File Exchange prevents me from posting the actual source'])
    disp( [' Please visit:'])
    disp( ['     <a href="http://hogwarts.ucsd.edu/~pkrysl/sofea">hogwarts.ucsd.edu/~pkrysl/sofea</a>']);
    disp( [' Petr Krysl'])
end