conflicts.f

来自「这是一个实用的并行计算源代码」· F 代码 · 共 12 行

      PARAMETER(N=2048)
      REAL*8 A(N,N)
      DO K = 1, 100
         DO I = 1, N
         DO J = 1, N
            A(I,J) = 1.D0
         ENDDO
         ENDDO
      ENDDO
      STOP
      END