memo={best,soln,found,with,sum,squares,equal,0.0000007}

params = {b  -> 0.1500000,e3 -> 0.2500000,e4 -> 0.0500000,e5 -> 0.0500000} 

all7eq1 = all7eq /. params

soln=FindRoot[all7eq1,{aa, 0.0040914,0.0,0.5},{ab, 0.0576848,0.0,1.0},
{ac,0.0488584,0.0,1.0},{ua, 0.3200085,0.0,1.0},{ub, 0.3220528,0.0,1.0},
{uc,0.0905741,0.0,1.0},{ud, 0.0763074,0.0,1.0},AccuracyGoal->24,WorkingPrecision->34]

check=all7 /. params /. soln

Save["check.1.719",params,soln, check]