program teste
use mpol

type(pol) :: p
real :: x,r,t
real, dimension(:), allocatable :: v 
call novo(2,p)

call atr(p,2,2.5)
call atr(p,1,0.5)

call val(p,2.0,r)
    print*,"r:",r
print*,"----"
call val(p,1.0,t)
    print*,"t:",t
print*,"----"
call coef(p,2,x)
    print*,"x:",x
 allocate(v(100))
call conv(p,v)
print*,"----"
    print*,v

end program teste