my $di = $_[0]->dims_internal;
my @dims = $m->dims;
# ...
$ret = identity($dims[$di]);
$ret = $ret->r2C if $m->_is_complex;