clause

Threadprivate:
线 程 的 全 局 私 有 变 量
parameter (N=1000)
real A(N,N)
C$OMP THREADPRIVATE(/buf/)
common/buf/lft(N),rht(N)
C$OMP PARALLEL
call init
call scale
call order
buf 是 线 程 内 的 公 共 块
C$OMP END PARALLEL
subroutine scale
parameter (N=1000)
C$OMP THREADPRIVATE(/buf/)
common/buf/lft(N),rht(N)
do i=1, N
lft(i)= const* A(i,iam)
end do
return
end
subroutine order
parameter (N=1000)
C$OMP THREADPRIVATE(/buf/)
common/buf/lft(N),rht(N)
do i=1, N
A(i,iam) = lft(index)
end do
return
end
2006 年 4 月 共 享 存 储 编 程 66/108