Change lower bound of `ishape_last` to `d_init`

Note that we then have to declare `d_init` before `ishape_last` in
procedure `get_snapshot`.