Searched refs:pp (Results 1 – 4 of 4) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_paratools.f | 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))
80 allocate(sub_mtx2%pp(numtask))
99 allocate(sub_map%pp(i)%p(numseg))
[all …]
|
| H A D | ramg_coarse.f | 202 allocate(amg_I_rowp%pp(amg_nshg(level1)),stat=mem_err)
204 allocate(amg_I%pp(amg_nshg(level1)),stat=mem_err)
219 allocate(amg_I_rowp%pp(i)%p(1))
220 allocate(amg_I%pp(i)%p(1))
222 amg_I_rowp%pp(i)%p(1) = amg_Ip(i)
223 amg_I%pp(i)%p(1) = 1
354 allocate(amg_I_rowp%pp(i)%p(I_nnz))
355 allocate(amg_I%pp(i)%p(I_nnz))
357 amg_I_rowp%pp(i)%p(k) = amg_Ip(amg_Fn(k))
360 amg_I%pp(i)%p(k) = amg_la(k)
[all …]
|
| H A D | ramg_data.f | 30 type(i1d),pointer :: pp(:) component
34 type(r1d),pointer :: pp(:) component
38 type(r2d),pointer :: pp(:) component
|
| /phasta/phSolver/incompressible/ |
| H A D | filters.f | 1448 & pp(nshg),
1506 pp=p ! make a vector that we can copy masters onto slaves
1510 call commOut(pp, ilwork, 1,iper,iBCdumb,BCdumb) !slaves= master
1513 & pp, q, nshg,
|