
|
|
|
|
 |
| Did you mean:
Work share ? |
 |
Results 1-10 of about 25 for the
Workshare
(0.101 sec)
|
 |
|
|
|
|
 |
|
|
|
 |
|
 |
... precision,allocatable :: a(:,:,:) double precision :: t1,t2,t3 allocate(a(m,n,p)) t1=omp_get_wtime() !$OMP PARALLEL SHARED (a) !$OMP WORKSHARE forall(i=1:m,j=1:n,k=1:p) a(i,j,k)=dlog(dabs(dsin(3.d0*i+2*j+k))) end forall !$OMP END WORKSHARE !$OMP END PARALLEL t2=omp_get_wtime() write(*,'(a,f8.2)') 'time FORALL: ',t2-t1 !$OMP PARALLEL SHARED (a) !$OMP DO do i...

http://drraug.livejournal.com/134514.html
(Cached)
0 links
Published: 2 months, 4 weeks ago (Sun, 04 Oct 2009 03:57:17 PDT); 2205 bytes
|
drraug
|
|
 |
|
|
 |
|
|
|
 |
|
|
|
 |
|
|
|
 |
|
|
|
 |
|
|
|
 |
|
|
|
|
|
 |
|
|

 | Get free web site |
| 1GB of free space |
| for files and pictures |
|
|
|