! 主程序段
matrix = 0.d0
vector = 0.d0
!$omp parallel private(i, tmp_vector) &
!$omp reduction(+:matrix, vector)
!$omp do
do i =1, 48
call gemm(a, b, matrix, 'n', 'n', 1.d0, 1.d0)
call gemm(a, c, tmp_vector)
call gemm(b, tmp_vector, vector, 'n', 'n', 1.d0, 1.d0)
end do
!$omp end do
!$omp end parallel
Stack overflow 1.png (14.84 KB, 下载次数: 353)
stack overflow.PNG (4.99 KB, 下载次数: 347)
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |