62．INDEPENDENT的典型使用

• 表达应用相关信息
  ! 存储在一维数组中的网格(Meshes)不重叠
  !HPF$ INDEPENDENT
  DO i = 1, n_mesh
  　CALL update(x(:),neighbor(:,ibeg(k):iend(k)))
  END DO

�SUBROUTINE update(x, nbr)
　　　REAL x(:), tmp
　　　INTEGER nbr(2,:), i
　　　　　DO i = 1, UBOUND(nbr,2)�
　　　　　　　tmp = flux( x(nbr(1,i)), x(nbr(2,i)))
　　　　　　　x(nbr(1,i)) = x(nbr(1,i)) + tmp
　　　　　　　x(nbr(2,i)) = x(nbr(2,i)) - tmp
　　　　　END DO
　　　END DO

Copyright: NPACT