| /phasta/phSolver/AMG/ |
| H A D | ramg_control.f | 148 integer :: i,numtask,itkbeg,numseg,iacc local
158 numtask = ilwork(1)+1
160 numtask = 1
165 allocate(subnei(numtask))
171 do i=2,numtask
178 numtask = rmapmax-1
179 allocate(subcfrev(numtask))
180 allocate(subnei(numtask))
181 do i=1,numtask
186 allocate(subcfstop(numtask))
[all …]
|
| H A D | ramg_paratools.f | 31 integer :: numtask,i,j,k,m,p,ki,kj,krowp,ierr local
66 numtask = ilwork(1)
72 allocate(sub_map%pp(numtask))
73 allocate(sub_revmap%pp(numtask))
74 allocate(sub_colm%pp(numtask))
75 allocate(sub_colm2%pp(numtask))
76 allocate(sub_rowp%pp(numtask))
77 allocate(sub_rowp2%pp(numtask))
78 allocate(sub_rowpmap%pp(numtask))
79 allocate(sub_mtx%pp(numtask))
[all …]
|
| H A D | ramg_coarse.f | 41 integer :: numtask,itkbeg,numseg,iacc local
68 numtask = ilwork(1)+1
70 numtask = 1
77 allocate(subcf(numtask))
79 allocate(subnei(numtask))
85 do i=2,numtask
92 numtask = rmapmax-1
93 allocate(subcfrev(numtask))
94 allocate(subcf(numtask))
95 allocate(subnei(numtask))
[all …]
|
| H A D | ramg_ggb.f | 207 integer :: numtask,i,j,k,m,p,newn local
221 numtask = ilwork(1)
229 do i=1,numtask
|
| H A D | ramg_tools.f | 318 integer :: numtask,lenseg local
322 numtask = ilwork(1)
324 do i=1,numtask
352 integer :: itag,iacc,iother,numseg,isgbeg,itkbeg,numtask local
363 numtask = ilwork(1)
365 do i=1,numtask
|
| /phasta/phSolver/common/ |
| H A D | ctypes.f | 25 numtask = ilwork (1)
28 if (numtask .gt. maxtask)
29 & call error('ctypes ','numtask ',numtask)
33 do itask = 1,numtask
166 subroutine Dctypes(numtask) ! { argument
168 integer numtask local
169 do itask = 1,numtask
|
| H A D | commuInt.f | 92 numtask = ilwork(1)
98 DO itask = 1, numtask
169 do j=1,numtask ! time to do all the segments that needed to be
|
| H A D | getvel.f | 46 numtask = ilwork(1)
50 do itask = 1, numtask
|
| H A D | commu.f | 131 numtask = ilwork(1)
137 DO itask = 1, numtask
268 do j=1,numtask ! time to do all the segments that needed to be
|
| H A D | gen_ncorp.c | 135 int numtask = ilwork[0]; in count_owned() local
139 for(i=0;i<numtask;i++) in count_owned()
|
| H A D | getdmc.f | 219 numtask = ilwork(1)
223 do itask = 1, numtask
|
| /phasta/phSolver/common/test/ |
| H A D | phIOreadIlwork.cc | 75 int numtask = ilwork[0]; in main() local
77 for(int itask=0;itask<numtask;itask++) { in main()
96 << numtask << "," in main()
98 << numtask-numowner << "\n"; in main()
111 for(int itask=0;itask<numtask;itask++) { in main()
|
| /phasta/AcuStat/src/ |
| H A D | ctypes.f | 26 numtask = ilwork (1)
30 if (numtask .gt. maxtask)
31 & call error('ctypes ','numtask ',numtask)
35 do itask = 1,numtask
|
| H A D | commuMax.f | 128 numtask = ilwork(1)
134 DO itask = 1, numtask
224 do j=1,numtask ! time to do all the segments that needed to be
|
| /phasta/phSolver/compressible/ |
| H A D | au1gmr.f | 81 numtask = ilwork(1)
84 do itask = 1, numtask
177 numtask = ilwork(1)
180 do itask = 1, numtask
|
| H A D | bc3res.f | 177 numtask = ilwork(1)
180 do itask = 1, numtask
268 numtask = ilwork(1)
271 do itask = 1, numtask
|
| H A D | sparseap.f | 114 numtask = ilwork(1)
117 do itask = 1, numtask
|
| H A D | bc3bdg.f | 360 numtask = ilwork(1)
363 do itask = 1, numtask
450 numtask = ilwork(1)
453 do itask = 1, numtask
|
| /phasta/M2NFixBnd/src/ |
| H A D | ctypes.f | 26 numtask = ilwork (1)
30 if (numtask .gt. maxtask)
31 & call error('ctypes ','numtask ',numtask)
35 do itask = 1,numtask
|
| H A D | commuMax.f | 129 numtask = ilwork(1)
135 DO itask = 1, numtask
225 do j=1,numtask ! time to do all the segments that needed to be
|
| /phasta/M2N/src/ |
| H A D | ctypes.f | 26 numtask = ilwork (1)
29 if (numtask .gt. maxtask)
30 & call error('ctypes ','numtask ',numtask)
34 do itask = 1,numtask
|
| H A D | commu.f | 125 numtask = ilwork(1)
131 DO itask = 1, numtask
221 do j=1,numtask ! time to do all the segments that needed to be
|
| /phasta/phSolver/incompressible/ |
| H A D | bc3per.f | 41 numtask = ilwork(1)
44 do itask = 1, numtask
|
| H A D | advLES.f | 628 numtask = ilwork(1)
633 do itask = 1, numtask
743 numtask = ilwork(1)
746 do itask = 1, numtask
1167 numtask = ilwork(1)
1171 do itask = 1, numtask
1518 numtask = ilwork(1)
1522 do itask = 1, numtask
1954 numtask = ilwork(1)
1958 do itask = 1, numtask
[all …]
|
| H A D | filters.f | 1151 numtask = ilwork(1)
1155 do itask = 1, numtask
1886 numtask = ilwork(1)
1890 do itask = 1, numtask
2627 numtask = ilwork(1)
2631 do itask = 1, numtask
|