Heavy metal adsorption on iron oxide and iron oxide-coated silica ...

179Next iFor i = 1 To nCBCfTime(i) = rng2.Cells(i, 1) * fDay2HourfSorbExp(i) = rng2.Cells(i, 2)Next iDim fE As DoubleDim fS As DoubleDim fKd As DoubleDim fDen As DoubleDim fDsO As DoublefE = Range("C5")fDen = Range("C6")IS = Range("C7")fKd = Range("C8")fDsO = Range("C9") * 3600#Dim fKi. As Double, ID As Double, fA As Double, fCs As Double, fDs As DoubleDim fSuml As Double, fSum2 As Double, flnfSeries As DoubleDim fDiffl As Double, fDiff2 As Double, Wet As Double, fPerSum As DoubleDim fVar As Double, fAveEr As DoubleDim fMinVar As DoubleDim flter As DoublefMinVar = 1#fKi = fE * fKd / (1# - fE)fCs = IS * fKdFor iCs = 0 To 89fDs = fDsO * (1 + iCs / 10#)fD = fDs / (1# + fE / (fDen * 1000# * fKi))fSuml = 0#fSum2 = 0#fPerSum = 0#For i = 1 To nCBCfSorbPred(i) = 0#For j = 1 To nPSDfInfSeries = 0#flter = 1#