这两天刚接触OpenMP，有些地方没搞懂，希望得到各位大侠的帮助。
部分程序如下
        Program main
    ……
    ……
        !$omp parallel sections 
        !$omp section
        call sub(n,sum1)
        !$omp section
        call sub(n,sum2)
        !$omp end parallel sections
    ……
        end

        subroutine sub(n,sum)
        sum=0
        !$omp parallel do reduction(+:sum)
        do i=1,n
        sum=sum+exp(dabs(dsin(dsqrt(dfloat(i)))))**3.d-1+
     +  exp(dabs(dcos(dlog(dfloat(i)))))**7.d-1
        enddo
        !$omp end parallel do
        return
        endsubroutine

该程序主程序部分用了parallel sections，应该同时有两个进程计算。
子程序用了parallel do，应该能有四个进程参与计算（我的计算机为4核）
可程序实际执行的时候，只用了两个核心，50%的CPU使用率。
子程序的parallel do似乎没怎么起作用，什么呢？
谢谢O(∩_∩)O谢谢