Searched refs:teA (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_ggb.f | 38 real(kind=8),allocatable,dimension(:,:):: teA,tramg_ev local
145 allocate(teA(asize,maxnev))
148 teA = 0
151 call ramg_calcAv_g(1,teA(:,i),ramg_ggb_ev(:,i),
159 & ramg_ggb_ev(p,j)*teA(p,i)
178 deallocate(teA)
|