Module work

real p
logical is_Pol, not_Pol

real eps_num, eps_f

integer n
real, allocatable :: coef(:), coef_1(:)

end module work
