function strout = deblank(str)
// Function removes trailing blanks from input string
index = find(ascii(str) ~= 32);
strout = part(str,1:index($));
endfunction