Page:4SIGHT manual- a computer program for modelling degradation of underground low level waste concrete vaults (IA 4sightmanualcomp5612snyd).pdf/153

73. OUTPUT } else { printf ("%6.3lf \t", v[NUM_CELLS-1]); } printf ("%6 4lf \t", $$\xi'$$[k]); printf ("%6.3lf \t", ($$\phi'^n$$[k]); printf ("%6.3lf \t", 14.0 + log10 {anion[0].c[k])); printf ("%6.0lf \t", strength[k] * (log($$\phi'^n$$[k])/log ($$\phi$$))); for (i = 0; i < num.cations; i++) if {cation[i]. output-flag = TRUE) printf("%6.4lf \t", cation[i].c[k]); for (j = 0; j < num.anions; j++)  if (anion[j]. utput-flag = TRUE) printf("%6.4lf \t", anion [i].c[k]); for (i = 0; i < num.cations; i++)  for (i = 0; i < num.anions; i++)    if (sol_array[i][j].outpute_flag==TRUE) printf("%6.3lf \t", sol_array[i].[j].s[k]); printf("\n"); } elapsed_time = biostime (GET_TIME,0L)- elapsed_time; printf("\Elapsed time (sec):\"\t%6.lf \n",elapsed_time/CLK_TCK);

This code is used in sections 2, 24 and 26.