+ cell->status&=~AMORPH;
+ return 23;
+}
+
+int distrib_c_conc(cell *cell_p,u32 c_c0,u32 c_slope,int add_c,u32 x_max,u32 y_max,u32 z_max)
+{
+ /* cryst. c to distribute */
+ int i,j,k;
+ double cryst_c;
+ cryst_c=0;
+ for(i=0;i<x_max*y_max*z_max;i++) if(!(cell_p+i)->status&AMORPH) cryst_c+=(cell_p+i)->conc;
+ for(i=0;i<z_max;i++)
+ {
+ for(j=0;j<x_max*y_max;j++)
+ {
+ if(!(cell_p+j+i*x_max*y_max)->status&AMORPH)
+