While[Abs[Subscript[\[CapitalDelta], \[CapitalNu]]] > \[Epsilon],
Subscript[\[Lambda], F] += Subscript[\[CapitalDelta], F];
Subscript[\[Rho], Th] =
FredholmKind2[{-Subscript[\[Lambda], F], Subscript[\[Lambda], F],
eigenval, Kpart, Gpart}, intervals, Method -> NIntegrate];
Subscript[\[CapitalDelta], \[CapitalNu]] = \[ScriptCapitalD] -
NIntegrate[
Subscript[\[Rho], Th][\[Mu]], {\[Mu], -Subscript[\[Lambda], F],
Subscript[\[Lambda], F]}]
]