Do loop example

C$OMP PARALLEL PRIVATE(iam,ieach, iend,i)

iam = omp_get_thread_num()

ieach = N/omp_get_num_threads()

iend = (iam+1)*ieach -1

do i=iam*ieach, iend

a(i)=a(i)**2

enddo

C$OMP END PARALLEL

C$OMP PARALLEL

C$OMP DO

do i=1,N

a(i)=a(i)**2

enddo

C$OMP END PARALLEL

Previous slide

Next slide

Back to first slide

View graphic version