Trisurf Monte Carlo simulator
Samo Penic
2016-05-31 5c3143e7b7d0979d6eed07b6dfbe9f214159bdbb
src/timestep.c
@@ -1,3 +1,4 @@
/* vim: set ts=4 sts=4 sw=4 noet : */
#include<stdlib.h>
#include<stdio.h>
#include<math.h>
@@ -21,7 +22,7 @@
   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");
@@ -75,6 +76,12 @@
      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);