//
function sim=scicos_sim(v1,v2,v3,v4,v5,..
- v6,v7,v8,v9,v10,..
- v11,v12,v13,v14,v15,..
- v16,v17,v18,v19,v20,..
- v21,v22,v23,v24,v25,..
- v26,v27,v28,v29,v30,..
- v31,v32,v33,v34,v35,..
- v36,v37,v38,v39,v40)
- if exists('funs','local')==0 then funs=[],end
- if exists('xptr','local')==0 then xptr=[],end
- if exists('zptr','local')==0 then zptr=[],end
- if exists('ozptr','local')==0 then ozptr=[],end
- if exists('zcptr','local')==0 then zcptr=[],end
- if exists('inpptr','local')==0 then inpptr=[],end
- if exists('outptr','local')==0 then outptr=[],end
- if exists('inplnk','local')==0 then inplnk=[],end
- if exists('outlnk','local')==0 then outlnk=[],end
- if exists('rpar','local')==0 then rpar=[],end
- if exists('rpptr','local')==0 then rpptr=[],end
- if exists('ipar','local')==0 then ipar=[],end
- if exists('ipptr','local')==0 then ipptr=[],end
- if exists('opar','local')==0 then opar=list(),end
- if exists('opptr','local')==0 then opptr=[],end
- if exists('clkptr','local')==0 then clkptr=[],end
- if exists('ordptr','local')==0 then ordptr=[],end
- if exists('execlk','local')==0 then execlk=[],end
- if exists('ordclk','local')==0 then ordclk=[],end
- if exists('cord','local')==0 then cord=[],end
- if exists('oord','local')==0 then oord=[],end
- if exists('zord','local')==0 then zord=[],end
- if exists('critev','local')==0 then critev=[],end
- if exists('nb','local')==0 then nb=[],end
- if exists('ztyp','local')==0 then ztyp=[],end
- if exists('nblk','local')==0 then nblk=[],end
- if exists('ndcblk','local')==0 then ndcblk=[],end
- if exists('subscr','local')==0 then subscr=[],end
- if exists('funtyp','local')==0 then funtyp=[],end
- if exists('iord','local')==0 then iord=[],end
- if exists('labels','local')==0 then labels=[],end
- if exists('modptr','local')==0 then modptr=[],end
- sim=tlist(['scs','funs','xptr','zptr','ozptr',..
- 'zcptr','inpptr','outptr','inplnk','outlnk','rpar',..
- 'rpptr','ipar','ipptr','opar','opptr',..
- 'clkptr','ordptr','execlk','ordclk','cord','oord','zord',..
- 'critev','nb','ztyp','nblk','ndcblk','subscr','funtyp',..
- 'iord','labels','modptr'],..
- funs,xptr,zptr,ozptr,zcptr,inpptr,..
- outptr,inplnk,outlnk,rpar,rpptr,ipar,ipptr,..
- opar,opptr,clkptr,ordptr,..
- execlk,ordclk,cord,oord,zord,..
- critev,nb,ztyp,nblk,ndcblk,..
- subscr,funtyp,iord,labels,modptr)
+ v6,v7,v8,v9,v10,..
+ v11,v12,v13,v14,v15,..
+ v16,v17,v18,v19,v20,..
+ v21,v22,v23,v24,v25,..
+ v26,v27,v28,v29,v30,..
+ v31,v32,v33,v34,v35,..
+ v36,v37,v38,v39,v40)
+ if exists("funs","local")==0 then funs=[],end
+ if exists("xptr","local")==0 then xptr=[],end
+ if exists("zptr","local")==0 then zptr=[],end
+ if exists("ozptr","local")==0 then ozptr=[],end
+ if exists("zcptr","local")==0 then zcptr=[],end
+ if exists("inpptr","local")==0 then inpptr=[],end
+ if exists("outptr","local")==0 then outptr=[],end
+ if exists("inplnk","local")==0 then inplnk=[],end
+ if exists("outlnk","local")==0 then outlnk=[],end
+ if exists("rpar","local")==0 then rpar=[],end
+ if exists("rpptr","local")==0 then rpptr=[],end
+ if exists("ipar","local")==0 then ipar=[],end
+ if exists("ipptr","local")==0 then ipptr=[],end
+ if exists("opar","local")==0 then opar=list(),end
+ if exists("opptr","local")==0 then opptr=[],end
+ if exists("clkptr","local")==0 then clkptr=[],end
+ if exists("ordptr","local")==0 then ordptr=[],end
+ if exists("execlk","local")==0 then execlk=[],end
+ if exists("ordclk","local")==0 then ordclk=[],end
+ if exists("cord","local")==0 then cord=[],end
+ if exists("oord","local")==0 then oord=[],end
+ if exists("zord","local")==0 then zord=[],end
+ if exists("critev","local")==0 then critev=[],end
+ if exists("nb","local")==0 then nb=[],end
+ if exists("ztyp","local")==0 then ztyp=[],end
+ if exists("nblk","local")==0 then nblk=[],end
+ if exists("ndcblk","local")==0 then ndcblk=[],end
+ if exists("subscr","local")==0 then subscr=[],end
+ if exists("funtyp","local")==0 then funtyp=[],end
+ if exists("iord","local")==0 then iord=[],end
+ if exists("labels","local")==0 then labels=[],end
+ if exists("modptr","local")==0 then modptr=[],end
+ sim=tlist(["scs","funs","xptr","zptr","ozptr",..
+ "zcptr","inpptr","outptr","inplnk","outlnk","rpar",..
+ "rpptr","ipar","ipptr","opar","opptr",..
+ "clkptr","ordptr","execlk","ordclk","cord","oord","zord",..
+ "critev","nb","ztyp","nblk","ndcblk","subscr","funtyp",..
+ "iord","labels","modptr"],..
+ funs,xptr,zptr,ozptr,zcptr,inpptr,..
+ outptr,inplnk,outlnk,rpar,rpptr,ipar,ipptr,..
+ opar,opptr,clkptr,ordptr,..
+ execlk,ordclk,cord,oord,zord,..
+ critev,nb,ztyp,nblk,ndcblk,..
+ subscr,funtyp,iord,labels,modptr)
endfunction
+