float
**s;
s=allocate_
2(
4,2000);
s=free_2(4,2000);