conflicts.f

这是一个实用的并行计算源代码

      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