module variaveis

integer :: itmax

real*8  :: K1, K2, dist

real*8,dimension(:),  allocatable :: x, y, F
real*8,dimension(:,:),allocatable :: J

end module variaveis