function [stk,txt,top]=sci_log10()
// Copyright INRIA
txt=[]
stk=list('log('+stk(top)(1)+')/log(10)','0',stk(top)(3),stk(top)(4),'1')




