!HPF$ DYNAMIC u

!HPF$ ALIGN WITH x(:,:) :: y(:,:), z(:,:)

IF (n1>n2) THEN

!HPF$ RESISTRIBUTE x(BLOCK, *)

ELSE

!HPF$ REDISTRIBUTE x(*,BLOCK)

END IF

!×¢Òâ: ±àÒëÆ÷Õâʱ²»ÖªµÀÈÎÒâÊý×龫ȷµÄÊý¾ÝÓ³Éä