function READC_f () {


	var frmt = "d, ";

	var fname = "foo";

	var lunit = 0;

	var N = 20;

	var M = 1;

	var rpar = [];

	var tmask = 0;

	var swap = 0;

	var offset = 1;

	var outmask = 1;

	var ievt = 0;

	var nout = size(outmask,"*");

	var ipar = [[,length(fname)],[,_str2code(frmt)],[,ievt],[,N],[,M],[,swap],[offset],[,_str2code(fname)],[,tmask],[,outmask,]];

	var model = scicos_model();
	model.sim=list(new ScilabString(["readc"]),new ScilabDouble([2]));
	model.out=nout;
	model.evtin = new ScilabDouble([1]);
	model.evtout = new ScilabDouble();
	model.dstate = new ScilabDouble([1],[,1],[,lunit],[,zeros(N*M,1)]);
	model.ipar = new ScilabDouble([,length(fname)],[,_str2code(frmt)],[,ievt],[,N],[,M],[,swap],[,offset],[_str2code(fname)],[,tmask],[,outmask,]);
	model.blocktype = new ScilabString(["d"]);
	model.firing = new ScilabDouble([-1]);
	model.dep_ut = new ScilabBoolean([false,false]);

	var exprs = [[,"[]"],[,sci2exp(outmask)],[,fname],[,frmt],[,string(M)],[,string(N)],[,string(offset)],[string(swap),]];

	var gr_i = [];
	this.x=new standard_define(new ScilabDouble([4,2]),model,exprs,gr_i);
	return new BasicBlock(this.x)
}