$DEBUG
USE ALL_STATISTICS
!USE MANG, ONLY : X

!REAL, ALLOCATABLE :: X(:,:) , R(:,:)
REAL A(2,2),B(2),XX(2), AA(4),x0,XL,XR,EPS
LOGICAL ERROR
N=10
M=4
!ALLOCATE (X(N))!,R(M,M))

!CALL RANDOM_NUMBER (X)

!X=(/1,2,3,4,5,6,7,8,9,10/)

!PRINT*,'X=',X, TB(N)

A(1,:) = (/2,3/)
A(2,:) = (/3,5/)
B = (/8,13/)
K=0
DO J=1,2
DO I=1,2
   K=K+1
   AA(K) = A(I,J)
ENDDO
ENDDO

CALL GIAIHE_GAUSE(AA,B,XX,2)
print*,XX


!CALL GIAIHE_ND(AA,B,XX,2)
!print*,XX

!CALL GIAIHE_CRM(AA,B,XX,2)
!print*,XX

XL=0
XR=1.96
EPS=1.E-6
!CALL NGHIEM_CHIA_DOI (XL,XR,EPS, X0, ERROR,FF)
!IF (.NOT.ERROR) THEN
!   print*,X0
!Else
!   print*, 'khong co nghiem'
!endif

!print '(F20.3)',SIMPSON(XL,XR,EPS)!,FF)


END