program a1

!HPF$  REDISTRIBUTE r6tf  (*) ONTO cv1
!HPF$  REDISTRIBUTE (BLOCK) ::gj,hu,hj,xcf
!HPF$  REDISTRIBUTE ONTO zx1 ::gj,hu,hj,xcf



end
