	real h(nx,nz)
	real f(nx,nz)
!hpf$	distribute f*(*,block)
!hpf$   align h with *f

	integer dir,dim
	real dx
