Module work
integer n

real(8), allocatable :: a(:)
real(8), allocatable :: X(:,:)

real tol

END Module work
