1
function var=%type_i_variable(field,inslist,var)
4
if typeof(inslist)=="ce" then
8
error("Not yet implemented...")
10
elseif typeof(inslist)=="st" then
13
if or(typeof(var.infer)==["ce","st"]) then
16
for kd=1:size(var.infer.dims,"*")
17
dims(kd)=var.infer.dims(kd)
19
var.infer=Infer(dims,Type())
20
var.infer.type=inslist
22
error("Not yet implemented...")
26
var.infer.type=inslist
28
error("Not yet implemented...")