float drho;
float buffer;

First_Out_coord := allocate(1.1, [2,2],fill_zero);

First_Out_coord = First_In_coord;

drho = First_Out_coord[0][1]-First_Out_coord[0][0];

buffer = 0.2*drho;

write(drho);

First_Out_coord[0][0] -= drho + buffer ;
First_Out_coord[0][1] -= drho + buffer ;

write(First_In_coord);
write(First_Out_coord);

First_Out := make_lat(First_Out_coord,First_In);