5.B.3 Using Ladebug with F90

(ladebug) where

ɬ n _16_atomic(=0, =1087602816) atomic.f:22

#1 in _OtsEnterParallelOpenMP() ots_parallel.bli:1995

#2 in atomic() atomic.f:15

#3 in main() for_main.c:203

(ladebug) list 15

15 do itimes=1,ntimes

16 c$omp parallel do

17 c$omp& shared(a,b)

18 c$omp& private(i,j,k,diff)

19 do i = 2, n-1

20 do j = 2, n-1

21 do k = 1, m

> 22 diff = a(j ,i-1)/k + a(j ,i+1)/k

23 & + a(j ,i-1)/k + a(j ,i+1)/k

Previous slide

Next slide

Back to first slide

View graphic version