Module global
	
	Implicit none
	save

	Real(kind=8) :: xl,xu
	Real(kind=8) :: yl,yu
	Real(kind=8) :: zl,zu

		Real(kind=8),allocatable,dimension(:,:,:) :: x
		Real(kind=8),allocatable,dimension(:,:,:) :: y
		Real(kind=8),allocatable,dimension(:,:,:) :: z
		Real(kind=8),allocatable,dimension(:,:,:) :: w

	end module global