c=itos(area*10^dec)
l=string_length(c)
a = itos(area)

if itos(area) ==""
description="Wood= 0"+extract(c,1,l-dec)+"."+extract(c,l+1-dec,2)
else
description="Wood= "+extract(c,1,l-dec)+"."+extract(c,l+1-dec,2)
endif