REAL XO,X1,X2 
INTEGER I 
F(X)=X*ALOG(X)-1.0
I=1 
15 WRITE(*,*)'ENTER THE VALUE OF XO,X1' 
READ(*,*)XO,X1 
IF((F(XO)*F(X1)).GT.0)THEN  
WRITE(*,*)'AGAIN ENTER' 
GOTO 15 
ELSE 
20 X2=(XO*F(X1)-X1*F(XO))/(F(X1)-F(XO)) 
IF((F(XO)*F(X2)).LT.0)THEN 
X1=X2 
ELSE 
XO=X2 
ENDIF 
WRITE(*,*)I,X2 
IF(ABS(X2-X1).GT.1.0E-6)THEN 
I=I+1 
GOTO 20 
ELSE 
WRITE(*,50)'THE ROOT IS',X2 
GOTO 40 
ENDIF 
ENDIF 
50 FORMAT(A,F9.6) 
40 STOP 
END