!-------------------------------------------------------------------- 
!                           test cpu
!-------------------------------------------------------------------- 
Module ARRAYS
   integer, parameter         :: N=3e6
   real*8,    DIMENSION(20,N) :: X, Y, Z
EndModule ARRAYS
!-------------------------------------------------------------------
Program TestNode
use ARRAYS

write(*,*) ' Required Memory(MB)=',20.*3.*8.*N/1024.**2
Y =0.
X =0.
Z =0.
do iter =1,1
    write(*,*) ' iter=',iter
!$OMP PARALLEL DO DEFAULT(SHARED) &
!$OMP PRIVATE(i,k,k1)
      Do j=1,N
      Do i=1,N
          k =mod(31*(N-i)+11137,N)+1 ! this almost random address
          k1=mod(i+500,N)+1
          Y(:,j) =Y(:,j) +X(:,k1)*Z(:,k)
      EndDo 
      EndDo 
EndDo
stop
end program TestNode