1 files changed, 25 insertions, 0 deletions
diff --git a/history/data_structures/fortran_block.js b/history/data_structures/fortran_block.js
new file mode 100644
index 0000000..5abf2b0
--- /dev/null
+++ b/history/data_structures/fortran_block.js
@@ -0,0 +1,25 @@
+function fortran_block () {
+
+
+	var model = scicos_model();
+	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();
+	model.state = new ScilabDouble();
+	model.dstate = new ScilabDouble();
+	model.rpar = new ScilabDouble();
+	model.ipar = new ScilabDouble([0]);
+	model.blocktype = new ScilabString(["c"]);
+	model.firing = new ScilabDouble();
+	model.dep_ut = new ScilabBoolean([true,false]);
+
+	var funam = "forty";
+
+	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)
+}