diff options
Diffstat (limited to 'data_structures/fortran_block.js')
-rw-r--r-- | data_structures/fortran_block.js | 7 |
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) } |