float **s;

allocate_2(s,4,2000);

free_2(s,4);