Subroutine input(ismax,jsmax,ksmax,io_write)
		use global						! Module global that contains the type of
									! x, y and z variables and arrays
	implicit none

	integer :: io_write						! open stetement assignment number: output
	
	integer :: ismax
	integer :: jsmax
	integer :: ksmax

									! variable *
		io_write= 102					! assigning the unit number 102 to integer
									! variable io_write


		read(*,*) ismax					! max counter in i
		read(*,*) jsmax					! max counter in j
		read(*,*) ksmax					! max counter in k
			
			read(*,*) xl				! x lower bound
			read(*,*) xu				! x upper bound
				
				read(*,*) yl			! y lower bound
				read(*,*) yu			! y upper bound
					
					read(*,*) zl		! z lower bound
					read(*,*) zu		! z upper bound


	end subroutine input