各位老师：
    我在学习OpenMP时遇到了一个问题，我想将某个矩阵乘相量的do循环利用OpenMp进行并行化处理，但发现用OpenMP处理后的程序消耗的时间仅比比串行的时候快不到一倍。我将每一块循环分开来分别计算时间，发现每块单裤的循环在OpenMP并行下所消耗的时间比串行时慢了一倍。请问各位老师，这是怎么回事？
    我可能说的不是太清楚，程序片段附在了下面，就是说时间差diff1、diff2、diff3、diff4在并行状态下的结果是串行状态时的将近一倍。请问这具体是什么原因造成的？


!cccccccccccccccc------------Subroutine MVP    Y=A*X--------------cccccccccccccccc
subroutine MVP(A,X,Y,N)
    implicit none
  integer i,j,N,k
  integer time(2),t1(2),t2(2),t3(2),t4(2),diff,diff1,diff2,diff3,diff4
  real :: X(N),Y(N),A(N,N)
  Y=0
  k=N/4
  call system_clock(time(1))
!$OMP parallel
!$OMP sections
 !$OMP section

  call system_clock(t1(1))

    do i=1,k
      do j=1,N
        Y(i)=Y(i)+A(j,i)*X(j)
      enddo
    enddo

  call system_clock(t1(2))
  diff1=t1(2)-t1(1)


  !$OMP section
   call system_clock(t2(1))
  do i=k+1,2*k
      do j=1,N
        Y(i)=Y(i)+A(j,i)*X(j)
      enddo
    enddo
   call system_clock(t2(2))
   diff2=t2(2)-t2(1)
   
  !$OMP section
   call system_clock(t3(1))
  do i=2*k+1,3*k
      do j=1,N
        Y(i)=Y(i)+A(j,i)*X(j)
      enddo
    enddo
   call system_clock(t3(2))
   diff3=t3(2)-t3(1)

  !$OMP section
   call system_clock(t4(1))
  do i=3*k+1,4*k
      do j=1,N
        Y(i)=Y(i)+A(j,i)*X(j)
      enddo
    enddo
   call system_clock(t4(2))
   diff4=t4(2)-t4(1)

 !$OMP end sections
 !$OMP end parallel
call system_clock(time(2))
  diff=time(2)-time(1)
  write(*,*) diff,diff1,diff2,diff3,diff4
    return
end