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);
}
