Threadprivate

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

Previous slide

Next slide

Back to first slide

View graphic version