summaryrefslogtreecommitdiff
path: root/data_structures/fortran_block.js
diff options
context:
space:
mode:
Diffstat (limited to 'data_structures/fortran_block.js')
-rw-r--r--data_structures/fortran_block.js7
1 files changed, 4 insertions, 3 deletions
diff --git a/data_structures/fortran_block.js b/data_structures/fortran_block.js
index a352794..5abf2b0 100644
--- a/data_structures/fortran_block.js
+++ b/data_structures/fortran_block.js
@@ -2,8 +2,8 @@ function fortran_block () {
var model = scicos_model();
- model.sim=list(" ",1001);
- model.in = new ScilabDouble([1]);
+ model.sim=list(new ScilabString([" "]),new ScilabDouble([1001]));
+ model.in1 = new ScilabDouble([1]);
model.out = new ScilabDouble([1]);
model.evtin = new ScilabDouble();
model.evtout = new ScilabDouble();
@@ -17,8 +17,9 @@ function fortran_block () {
var funam = "forty";
- var label = [list([sci2exp(model.in)],[sci2exp(model.out)],[strcat(sci2exp(model.rpar))],[funam],list([]))];
+ var label = list([sci2exp(model.in1)],[sci2exp(model.out)],[strcat(sci2exp(model.rpar))],[funam],list([]));
var gr_i = [];
this.x=new standard_define(new ScilabDouble([4,2]),model,label,gr_i);
+ return new BasicBlock(this.x)
}