Module work

real p
logical is_Pol, not_Pol

real eps_num

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

logical super_H
end module work
