| | |
| | | /* vim: set ts=4 sts=4 sw=4 noet : */ |
| | | #include<stdlib.h> |
| | | #include<stdio.h> |
| | | #include<math.h> |
| | |
| | | ts_double r0,kc1=0,kc2=0,kc3=0,kc4=0; |
| | | ts_double l1,l2,l3,vmsr,bfsr, vmsrt, bfsrt; |
| | | ts_ulong epochtime; |
| | | FILE *fd1,*fd2=NULL; |
| | | FILE *fd1,*fd2=NULL,*fd3=NULL; |
| | | char filename[10000]; |
| | | strcpy(filename,command_line_args.path); |
| | | strcat(filename,"statistics.csv"); |
| | |
| | | cell_occupation(vesicle); |
| | | ts_fprintf(stdout,"Done %d out of %d iterations (x %d MC sweeps).\n",i+1,inititer+iterations,mcsweeps); |
| | | dump_state(vesicle,i); |
| | | fd3=fopen(".status","w"); |
| | | if(fd3==NULL){ |
| | | fatal("Cannot open .status file for writing",1); |
| | | } |
| | | fprintf(fd3,"%d",i); |
| | | fclose(fd3); |
| | | if(i>=inititer){ |
| | | write_vertex_xml_file(vesicle,i-inititer); |
| | | write_master_xml_file(command_line_args.output_fullfilename); |