تعديل كود

real :: a,b,p,y0,y1,y2
   read ( *,* ) a , b
20 p=(a +b ) / 2
   y1= a**3 + 4*a**2 - 10
   y2= b**3 + 4*b**2 -10
10 y0=p**3 + 4*p**2 - 10
   if ( y0 .lt. 0.00001 ) goto 100   if (y0*y1 .gt. 0.0 ) goto 10
   a=a
   b=b
   goto 20
   a=-p
   b=b
   goto 20
100 write(*,*) y0 , p
   stop
   end

السلام عليكم ورحمة الله ، لدي كود مكتوب بلغة فورتران لإيجاد الحل التقريبي للمعادلة x^3 + 4x^2 -10 = 0  ، ولكنه للأسف لم يعطي النتيجة السليمة فأرجو تعديله للوصول للحل ، كما أرجو الا يعتبر هذا مخالف .

الكود هو المكتوب اعلاه.