diff options
Diffstat (limited to 'js/Misc/fortran_block.js')
| -rw-r--r-- | js/Misc/fortran_block.js | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/js/Misc/fortran_block.js b/js/Misc/fortran_block.js index 2fcb385d..ee371811 100644 --- a/js/Misc/fortran_block.js +++ b/js/Misc/fortran_block.js @@ -29,7 +29,7 @@ model=arg1.model; graphics=arg1.graphics; label=graphics.exprs; while (true) { -[ok,i,o,rpar,funam,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)); +[ok,i,o,rpar,funam,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) { break; } @@ -43,7 +43,7 @@ ni=size(i,1); o=int(o.slice()); no=size(o,1); tt=label[2-1]; -if (model.sim(1)!=funam||size(model.in1,"*")!=size(i,"*")||size(model.out,"*")!=size(o,"*")) { +if (model.sim[1-1]!=funam||size(model.in1,"*")!=size(i,"*")||size(model.out,"*")!=size(o,"*")) { tt=[]; } [ok,tt]=FORTR(funam,tt,i,o); |