Dealing with machine precision issue in FindRoot?

Hi,

Solving nonlinear equations using FindRoot gave me following error

Error: FindRoot::lstol: The line search decreased the step size to within tolerance specified by AccuracyGoal and PrecisionGoal but was unable to find a sufficient decrease in the merit function. You may need more than MachinePrecision digits of working precision to meet these tolerances.

Code is given below:

I used options WorkingPrecision of 30 but issue wasn’t sort out.

Do I need to add other options or not so please someone help me to correct this error?

Mathematica notebook

mathematica_fortran_0p0575630.nb (18.2 KB)