!HPF$ DISTRIBUTE x( BLOCK(SHADOW=1) )
!HPF$ DISTRIBUTE y( BLOCK((/12,10,10,12/) )
!HPF$ DISTRIBUTE z( INDIRECT(map_array) )

!HPF$ PROCESSORS procs(1:np)
!HPF$ DISTRIBUTE b(BLOCK) ONTO procs(1:np/2-1)

TYPE set_of_meshes
　　REAL p(100,100), q(100,100), r(100,100)
　　!HPF$ DISTRIBUTE (BLOCK,*) ::p, q, r
END TYPE
TYPE tree
　　TYPE(tree), POINTER, DIMENSION(100) :: children
　　!HPF$ DYNAMIC children
　　REAL value
END TYPE
TYPE(tree) t
ALLOCATE ( t%children )
!HPF$ REDISTRIBUTE t%children(BLOCK)