Implement EXPBLK_m, EXTRACTBITS, GENSQR_f, fortran_block blocks

1 files changed, 28 insertions, 0 deletions

diff --git a/data_structures_correct/EXPBLK_m.js b/data_structures_correct/EXPBLK_m.js
new file mode 100644
index 0000000..b5cf28b
--- /dev/null
+++ b/data_structures_correct/EXPBLK_m.js
@@ -0,0 +1,28 @@
+function EXPBLK_m() {
+
+    EXPBLK_m.prototype.define = function EXPBLK_m() {
+        this.in1 = 1;
+        this.a = math.E;
+
+        var model = scicos_model();
+        model.sim = list(new ScilabString(["expblk_m"]), new ScilabDouble([4]));
+        model.in = new ScilabDouble([-1]);
+        model.in2 = new ScilabDouble([-2]);
+        model.out = new ScilabDouble([-1]);
+        model.out2 = new ScilabDouble([-2]);
+        model.intyp = new ScilabDouble([1]);
+        model.outtyp = new ScilabDouble([1]);
+        model.rpar = new ScilabDouble([this.a]);
+        model.blocktype = new ScilabString(["c"]);
+        model.dep_ut = new ScilabBoolean([true, false]);
+
+        var exprs = new ScilabString(["%e"]);
+
+        var gr_i = new ScilabString(["xstringb(orig(1),orig(2),\"EXPBLK_m\",sz(1),sz(2));"]);
+        this.x = new standard_define(new ScilabDouble([2, 2]), model, exprs, gr_i);
+        return new BasicBlock(this.x);
+    }
+    EXPBLK_m.prototype.details = function EXPBLK_m() {
+        return this.x;
+    }
+}