Fortran OMP 随记 (1)

今天测试了Fortran OMP求$\Sigma_1^n i $ 串行和并行的速度。代码如下：

program main
   
  use OMP_LIB
   implicit non
   
    integer N,M,i, time_begin, time_end
    real(kind=8) t, a
    
    call OMP_set_num_threads(4)
    N=2000000
    
    t=0.0
    call SYSTEM_CLOCK(time_begin)
    do i=1,N
        a=float(i)
        t=t+float(i)
        M = OMP_get_num_threads()
    enddo
    call SYSTEM_CLOCK