Searched refs:rtp (Results 1 – 3 of 3) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_extract.f | 46 real(kind=8) :: rtemp,rt,rtp,rtn
386 rtp = 0
392 if ( rt.gt.rtp ) rtp = rt
398 rtp = rtp/ (amg_A_lhs(1)%p(amg_A_colm(1)%p(i),1))
401 & i,' ',rtp,' ',rtn,' ',rtemp
|
| H A D | ramg_coarse.f | 34 real(kind=8) :: alpha,beta,alphac,betac,diag,rtp local
255 rtp = amg_A_lhs(level1)%p(amg_A_colm(level1)%p(j),1)
256 if (rtp.ne.0) then
257 rtp = amg_la(aLoc(j))/rtp
270 amg_la(m) = amg_la(m) - rtp*amg_A_lhs(level1)%p(kj,1)
311 rtp = 0
318 rtp = max(rtp,abs(amg_la(k)))
327 rtp = rtp*trunc_tol
331 if (abs(amg_la(k)).gt.rtp) then
|
| H A D | ramg_ITAI.f | 133 real(kind=8) :: rtp local
|