1 files changed, 39 insertions, 0 deletions
diff --git a/data_structures/RFILE_f.js b/data_structures/RFILE_f.js
new file mode 100644
index 0000000..19369ca
--- /dev/null
+++ b/data_structures/RFILE_f.js
@@ -0,0 +1,39 @@
+function RFILE_f () {
+
+
+	var out = 1;
+
+	var nout = sum(out);
+
+	var frmt = "(7(e10.3,1x))";
+
+	var fname = "foo";
+
+	var lunit = 0;
+
+	var N = 2;
+
+	var rpar = [];
+
+	var tmask = 0;
+
+	var outmask = 1;
+
+	var ipar = [[,length(fname)],[length(frmt)],[0],[N],[,_str2code(fname)],[_str2code(frmt)],[,tmask],[outmask,]];
+
+	var dstate = [[1],[,1],[,lunit],[,zeros((nout)*N,,1)]];
+
+	var model = scicos_model();
+	model.sim = new ScilabString(["readf"]);
+	model.out=nout;
+	model.evtin = new ScilabDouble([1]);
+	model.dstate=new ScilabDouble([dstate]);
+	model.ipar = new ScilabDouble([,length(fname)],[length(frmt)],[0],[N],[,_str2code(fname)],[_str2code(frmt)],[,tmask],[outmask,]);
+	model.blocktype = new ScilabString(["d"]);
+	model.dep_ut = new ScilabBoolean([false,false]);
+
+	var exprs = [[sci2exp([])],[sci2exp(outmask)],[fname],[frmt],[N.toString()],[sci2exp(out)]];
+
+	var gr_i = [];
+	this.x=new standard_define(new ScilabDouble([3,2]),model,exprs,gr_i);
+}