Technical data

116
Chapter 6: Compiling and Debugging Parallel Fortran
Process 19325(total.ex) breakpoint/trace
trap[_total_99_aaaa:16,0x4006d0]
Look at the complete listing of the multiprocessed loop routine.
(dbx) list 1,50
1
2
3 subroutine _total_99_aaaa
4 x ( _local_start, _local_ntrip, _incr, _my_threadno)
5 integer*4 _local_start
6 integer*4 _local_ntrip
7 integer*4 _incr
8 integer*4 _my_threadno
9 integer*4 i
10 integer*4 ii
11 integer*4 j
12 integer*4 jj
13 integer*4 num
14 integer*4 _dummy
15
>* 16 j = _local_start
17 do _dummy = 1,_local_ntrip
18 do i = 2, n–1
19
20 num = 1
21 if (iold(i,j) .eq. 0) then
22 inew(i,j) = 1
More (n if no)?y
23 else
24 num = iold(i–1,j) + iold(i,j–1) + iold(i–1,j–1) +
25 $ iold(i+1,j) + iold(i,j+1) +
iold(i+1,j+1)
26 if (num .ge. 2) then
27 inew(i,j) = iold(i,j) + 1
28 else
29 inew(i,j) = max(iold(i,j)–1, 0)
30 end if
31 end if
32
33 ii = i/10 + 1
34 jj = j/10 + 1
35
36 aggregate(ii,jj) = aggregate(ii,jj) + inew(i,j)
37