! return in c memory order
%for variable in variables:

 case("${variable['name']}")
%if variable['rank'] == 0:
   shape(1) = 0
%else:
%for dim in range(variable['rank']):
%if "shape" in variable:
<% 
   rs = str(variable["shape"][dim])
   rg = rs.replace("s%","spointer%")
%>\
   shape(${variable['rank'] - dim}) = ${rg}
%else:
   shape(${variable['rank'] - dim}) = size(${variable['name']}, ${dim+1})
%endif
%endfor
%endif
%endfor

## vim: filetype=mako