
	program try


	integer a(2,4,5),b(4,2,5)
!HPF$ DISTRIBUTE a(BLOCK,*,*)
!HPF$ DISTRIBUTE b(BLOCK,*,*)

	forall (i=1:2,j=1:4,k=1:5) a(i,j,k)=0
	forall (i=1:4,j=1:2,k=1:5) b(i,j,k)=i

	k=1
	forall (i=1:2,j=1:4,k=1:5) a(i,j,k)=b(j,i,k)

	do i=1,2
		print *,((a(i,j,k),j=1,4),k=1,5)
	enddo
	end
