void run_end() { printf("\r\nNormal completion after %f time units\n",current_time); printf("The Next Seed In the Random Input Stream is %ld\n",rndsd); /// Summary statistics /// fprintf(output_fp,"SUMMARY STATISTICS\n"); printf("SUMMARY STATISTICS\n"); c_timest(S[1], 1, 1); fprintf(output_fp, "S[1]:\n Time Ave. = \t%7.4g Time Sample Var. =\t%7.4g\n", transfer[4], transfer[7]); printf("S[1]:\n Time Ave. = %7.4g Time Sample Var. = %7.4g\n", transfer[4], transfer[7]); c_sampst(S[1], 1, 1); fprintf(output_fp, " Event Ave. =\t%7.4g Event Sample Var. =\t%7.4g\n", transfer[4], transfer[8]); fprintf(output_fp, " Minimum =\t%7.4g\n", transfer[7]); fprintf(output_fp, " Maximum =\t%7.4g\n", transfer[6]); printf(" Event Ave. = %7.4g Event Sample Var.= %7.4g\n", transfer[4], transfer[8]); printf(" Minimum = %7.4g\n", transfer[7]); printf(" Maximum = %7.4g\n", transfer[6]); c_timest(S[2], 2, 1); fprintf(output_fp, "S[2]:\n Time Ave. = \t%7.4g Time Sample Var. =\t%7.4g\n", transfer[4], transfer[7]); printf("S[2]:\n Time Ave. = %7.4g Time Sample Var. = %7.4g\n", transfer[4], transfer[7]); c_sampst(S[2], 2, 1); fprintf(output_fp, " Event Ave. =\t%7.4g Event Sample Var. =\t%7.4g\n", transfer[4], transfer[8]); fprintf(output_fp, " Minimum =\t%7.4g\n", transfer[7]); fprintf(output_fp, " Maximum =\t%7.4g\n", transfer[6]); printf(" Event Ave. = %7.4g Event Sample Var.= %7.4g\n", transfer[4], transfer[8]); printf(" Minimum = %7.4g\n", transfer[7]); printf(" Maximum = %7.4g\n", transfer[6]); c_timest(S[3], 3, 1); fprintf(output_fp, "S[3]:\n Time Ave. = \t%7.4g Time Sample Var. =\t%7.4g\n", transfer[4], transfer[7]); printf("S[3]:\n Time Ave. = %7.4g Time Sample Var. = %7.4g\n", transfer[4], transfer[7]); c_sampst(S[3], 3, 1); fprintf(output_fp, " Event Ave. =\t%7.4g Event Sample Var. =\t%7.4g\n", transfer[4], transfer[8]); fprintf(output_fp, " Minimum =\t%7.4g\n", transfer[7]); fprintf(output_fp, " Maximum =\t%7.4g\n", transfer[6]); printf(" Event Ave. = %7.4g Event Sample Var.= %7.4g\n", transfer[4], transfer[8]); printf(" Minimum = %7.4g\n", transfer[7]); printf(" Maximum = %7.4g\n", transfer[6]); c_timest(S[4], 4, 1); fprintf(output_fp, "S[4]:\n Time Ave. = \t%7.4g Time Sample Var. =\t%7.4g\n", transfer[4], transfer[7]); printf("S[4]:\n Time Ave. = %7.4g Time Sample Var. = %7.4g\n", transfer[4], transfer[7]); c_sampst(S[4], 4, 1); fprintf(output_fp, " Event Ave. =\t%7.4g Event Sample Var. =\t%7.4g\n", transfer[4], transfer[8]); fprintf(output_fp, " Minimum =\t%7.4g\n", transfer[7]); fprintf(output_fp, " Maximum =\t%7.4g\n", transfer[6]); printf(" Event Ave. = %7.4g Event Sample Var.= %7.4g\n", transfer[4], transfer[8]); printf(" Minimum = %7.4g\n", transfer[7]); printf(" Maximum = %7.4g\n", transfer[6]); printf("Output written to, %s\n",output_file_name); fclose(output_fp); c_closedisk(); done = 1; }
void event_trace(const char * name_of_event,const long count) { c_timest(S[1], 1, 0); c_sampst(S[1], 1, 0); c_timest(S[2], 2, 0); c_sampst(S[2], 2, 0); c_timest(S[3], 3, 0); c_sampst(S[3], 3, 0); c_timest(S[4], 4, 0); c_sampst(S[4], 4, 0); if(trace_flag) fprintf(output_fp, "%9.3f\t %6s\t%6d ",current_time,name_of_event,count); if(trace_flag) fprintf(output_fp, " %7.3g %7.3g %7.3g %7.3g \n" ,(double)S[1], (double)S[2], (double)S[3], (double)S[4]); }
void event_trace(const char * name_of_event,const long count) { c_timest(SERVER[0], 1, 0); c_sampst(SERVER[0], 1, 0); c_timest(SERVER[1], 2, 0); c_sampst(SERVER[1], 2, 0); c_timest(QUEUE[0], 3, 0); c_sampst(QUEUE[0], 3, 0); c_timest(QUEUE[1], 4, 0); c_sampst(QUEUE[1], 4, 0); c_timest(MISSFL, 5, 0); c_sampst(MISSFL, 5, 0); c_timest(MISSFLFC, 6, 0); c_sampst(MISSFLFC, 6, 0); if(trace_flag) fprintf(output_fp, "%9.3f\t %6s\t%6d ",current_time,name_of_event,count); if(trace_flag) fprintf(output_fp, " %7.3g %7.3g %7.3g %7.3g %7.3g %7.3g \n" ,(double)SERVER[0], (double)SERVER[1], (double)QUEUE[0], (double)QUEUE[1], (double)MISSFL, (double)MISSFLFC); }