module variaveis

implicit none

integer :: n, i

real*8  :: x, y, soma

real*8,dimension(:),allocatable :: c

end module variaveis