提高Fortran的计算速度

Question

我有一些基本的伪代码，如下所示，

PROGRAM PSUEDOEXAMPLE
IMPLICIT NONE
!Define all types

!Load some data into arrays: Array_I, Array_J


!Do Loops
do i = 1,10
   xi = Array_I(i,1)
   yi = Array_I(i,2)
   zi = Array_I(i,3)

   do j =1,10
      xj = Array_J(j,1)
      yj = Array_J(j,2)
      zj = Array_J(j,3)

      separation = ((xi - xj)**2 + (yi-yj)**2 +(zi-zj)**2)**0.5

   enddo

enddo



END PROGRAM PSUEDOEXAMPLE

我可以将单个i步的时间计算为~0.3秒。减少这段时间的最佳方法是什么？我可以看到可能删除平方根将是有效的。我使用gfortran作为我的编译器。