diff --git a/scilab/deblank.sci b/scilab/deblank.sci
new file mode 100644
index 000000000..dcc4f3d64
--- /dev/null
+++ b/scilab/deblank.sci
@@ -0,0 +1,5 @@
+function strout = deblank(str)
+  // Function removes trailing blanks from input string
+  index = find(ascii(str) ~= 32);
+  strout = part(str,1:index($));
+endfunction