Searched refs:amg_la (Results 1 – 1 of 1) sorted by relevance
32 real(kind=8),dimension(amg_nshg(level1)) :: amg_la local245 amg_la(n) = amg_A_lhs(level1)%p(k,1)257 rtp = amg_la(aLoc(j))/rtp267 amg_la(m) = 0270 amg_la(m) = amg_la(m) - rtp*amg_A_lhs(level1)%p(kj,1)292 if ( amg_la(k).lt.0 ) then ! a-hat < 0293 alpha = alpha + amg_la(k)295 beta = beta + amg_la(k)300 if (amg_la(k).lt.0) then ! a-hat < 0 in coarse301 alphac = alphac + amg_la(k)[all …]