Searched refs:lvl (Results 1 – 3 of 3) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_cheby.f | 121 integer :: i,j,k,lvl,ideg local
128 do lvl=1,ramg_levelx
129 call ramg_mls_eigen(mlsCf(lvl,1),lvl,1,colm,rowp,lhsK,lhsP,
135 write(*,7000)lvl,mlsCf(lvl,1)
|
| H A D | ramg_mls.f | 390 integer :: i,j,k,lvl,ideg local
400 do lvl=1,ramg_levelx
401 call ramg_mls_eigen(evmax,lvl,1,colm,rowp,lhsK,lhsP,
404 mlsCf(lvl,:) = 0
424 mlsCf(lvl,1) = omloc(1)+omloc(2)+omloc(3)+omloc(4)+omloc(5)
426 mlsCf(lvl,2) = -( omloc(1)*omloc(2)+omloc(1)*omloc(3)
432 mlsCf(lvl,3) = ( omloc(1)*omloc(2)*omloc(3)
443 mlsCf(lvl,4) = -( omloc(1)*omloc(2)*omloc(3)*omloc(4)
449 mlsCf(lvl,5) = omloc(1)*omloc(2)*omloc(3)*omloc(4)*omloc(5)
452 mlsOm(lvl,i) = omloc(i)
[all …]
|
| H A D | ramg_paratools.f | 655 integer :: lvl,i,j,iacc,iother,numseg,numtask,itkbeg,sigi,k local
674 do lvl = 1,ramg_levelx
682 if (amg_cfmap(i).ge.lvl) then
697 if (amg_cfmap(k).ge.lvl) then
708 amg_nlwork(lvl)=tasknnztot+1+2*numtask
709 allocate(amg_ilwork(lvl)%p(tasknnztot+1+2*numtask))
710 amg_ilwork(lvl)%p = 0
712 amg_ilwork(lvl)%p(1) = numtask
720 amg_ilwork(lvl)%p(kk) = iother ! first put iother
722 amg_ilwork(lvl)%p(kk) = tasknnz(i) ! then numseg
[all …]
|