summaryrefslogtreecommitdiff
path: root/js/Misc/fortran_block.js
diff options
context:
space:
mode:
Diffstat (limited to 'js/Misc/fortran_block.js')
-rw-r--r--js/Misc/fortran_block.js20
1 files changed, 10 insertions, 10 deletions
diff --git a/js/Misc/fortran_block.js b/js/Misc/fortran_block.js
index f04ff321..3b56e06e 100644
--- a/js/Misc/fortran_block.js
+++ b/js/Misc/fortran_block.js
@@ -40,8 +40,8 @@ function fortran_block() {
this.lab = arguments[0]["lab"]
this.x = arg1;
this.model = arg1.model;
- var graphics = arg1.graphics;
- var label = graphics.exprs;
+ this.graphics = arg1.graphics;
+ var label = this.graphics.exprs;
while (true) {
[ok,this.i,this.o,this.rpar,this.funam,this.lab] = scicos_getvalue("Set fortran_block parameters",["input ports sizes","output port sizes","System parameters vector","function name"],list("vec",-1,"vec",-1,"vec",-1,"str",-1),label[1-1]);
if (!ok) {
@@ -60,23 +60,23 @@ function fortran_block() {
if (this.model.sim[1-1]!=this.funam||size(this.model.in1,"*")!=size(this.i,"*")||size(this.model.out,"*")!=size(this.o,"*")) {
var tt = [];
}
- var tmpvar0 = FORTR(this.funam,tt,this.i,this.o)
- var ok = tmpvar0[0]
+ var tmpvar0 = FORTR(this.funam,tt,this.i,this.o);
+ var ok = tmpvar0[0];
var tt = tmpvar0[1];
if (!ok) {
break;
}
- var tmpvar1 = check_io(this.model,graphics,this.i,this.o,[],[])
- this.model = tmpvar1[0]
- var graphics = tmpvar1[1]
+ var tmpvar1 = check_io(this.model,this.graphics,this.i,this.o,[],[]);
+ this.model = tmpvar1[0];
+ this.graphics = tmpvar1[1];
var ok = tmpvar1[2];
if (ok) {
- this.model.sim[1] = new ScilabString([this.funam]);
+ this.model.sim[1-1] = new ScilabString([this.funam]);
this.model.rpar = new ScilabDouble(this.rpar);
label[2-1] = tt;
this.x.model = this.model;
- graphics.exprs = label;
- this.x.graphics = graphics;
+ this.graphics.exprs = new ScilabDouble([label]);
+ this.x.graphics = this.graphics;
break;
}
}