summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Roundstr.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Roundstr.sci')
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Roundstr.sci7
1 files changed, 7 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Roundstr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Roundstr.sci
new file mode 100755
index 00000000..d14f3b3a
--- /dev/null
+++ b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Roundstr.sci
@@ -0,0 +1,7 @@
+// 10.11.04
+
+function Out=Roundstr(X,Ni,Nf)
+ Na=Ni+1+Nf;
+ Fmt='%'+string(Na)+'.'+string(Nf)+'f';
+ Out=sprintf(Fmt,X);
+endfunction;