module work

real a,b
integer n

real h

! Gauss-Legendre:
real, allocatable :: xn(:), w(:)
character(260) Exe_Dir; integer l_exe;

end module work
