Searched refs:tarray (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_tools.f | 262 type(r1d),dimension(ramg_levelx) :: tarray local
266 allocate(tarray(i)%p(amg_nshg(i)))
268 call random_number(tarray(i)%p)
274 call ramg_dump(tarray(i)%p,amg_nshg(i),fname)
278 call ramg_commIn(tarray(i)%p,i,ilwork,1,iper,iBC,BC)
280 call ramg_dump(tarray(i)%p,amg_nshg(i),fname)
284 call ramg_commOut(tarray(i)%p,i,ilwork,1,iper,iBC,BC)
286 call ramg_dump(tarray(i)%p,amg_nshg(i),fname)
298 deallocate(tarray(i)%p)
|