- M=0;
- if((*(atom+x_c+((2*y_c+1)%max_y)*max_x))&1) ++count_p;
- if((*(atom+x_c+((2*y_c-1)%max_y)*max_x))&1) ++count_p;
- if((*(atom+((2*x_c+1)%max_x)+y_c*max_x))&1) ++count_p;
- if((*(atom+((2*x_c-1)%max_x)+y_c*max_x))&1) ++count_p;
+ if((*(atom+x_c+((y_c+max_y+1)%max_y)*max_x))&1) ++count_p;
+ if((*(atom+x_c+((y_c+max_y-1)%max_y)*max_x))&1) ++count_p;
+ if((*(atom+((max_x+x_c+1)%max_x)+y_c*max_x))&1) ++count_p;
+ if((*(atom+((max_x+x_c-1)%max_x)+y_c*max_x))&1) ++count_p;