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

}
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.