call corlsr(ir1)
ii2=icori(n2)
will release the memory block previously allocated at address ir1,
as well as any subsequently allocated blocks. The allocation mechanism
is just a simple stack, and so all that corlsr does is to move its
current notion of the position of the top of this stack.
There is a corresponding routine corlsi which should be used for
releasing pointers obtained from icori.