+ sprintf(t_text," temp: %.3f",T);
+ arg_v[1]=t_text;
+ sprintf(b_text," beta: %.3f",beta);
+ arg_v[2]=b_text;
+ arg_v[3]=NULL;
+ sprintf(s_text," interaction strength: %.3f",s);
+ arg_v[4]=s_text;
+ arg_v[5]=NULL;
+ sprintf(m_text," magnetization: %.3f",1.0-2.0*M/(max_x*max_y));
+ arg_v[6]=m_text;
+ d2_lattice_draw(&d2_l,0,0,6,arg_v);
+
+ }
+ if(of_fd) dprintf(of_fd,"%f %f\n",T,1.0-2.0*M/(max_x*max_y));
+ }
+
+ for(T=max_T;T>0;T-=.05)