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

     $\Psi$[k]=tmp[k];
   }
 } while c> tol && iteration++ < 1000);
   for (k=0; k<= 0; k < NUM_CELLS; k++)
     v[k]=-$\kappa$[k]*CUB($x$i[k]/$\vartheta _{0}$}*$\Psi$[k+1]-$\Psi$[k])/$\Delta X$[k];
 }

67. Copy the new porosities into the n—1 values.

⟨Update the porosities 67⟩ $\equiv$
 for (k = FIRST.CELL; k < NUM.SURFACES; k++)$\phi '^{n-1}$[k]=$\phi '^{n}$[k];

This code is used in section 9.