Module work
integer n

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

real tol

END Module work
