float **s;

s=allocate_2(4,2000);

s=free_2(4,2000);