Subroutine output(ismax,jsmax,ksmax,io_write)
		
		Use global
		
	implicit none
	integer :: i,j,k
	integer, Intent(in) :: ismax,jsmax,ksmax
	integer, Intent(in) :: io_write
		
			
		write(*,*) 'VARIABLES='
		write(*,*) '"i"'
		write(*,*) '"j"'
		write(*,*) '"k"'
		write(*,*) '"x"'
		write(*,*) '"y"'
		write(*,*) '"z"'
		write(*,*) '"w"'
		write(*,*) ' Zone T =','"type the name of the zone here"' 	
		write(*,*) 'I =',ismax,',','J =',jsmax,',','K =',ksmax, ',','F = point'
		
			do k=1,ksmax
				do j=1,jsmax
					do i = 1,ismax
						
						write(*,701) i,j,k,x(i,j,k), y(i,j,k), z(i,j,k) ,w(i,j,k)
					enddo
				enddo
			enddo

 701	format(3i,4f20.6)
		
	end subroutine output