Home
last modified time | relevance | path

Searched refs:alhs (Results 1 – 3 of 3) sorted by relevance

/phasta/phSolver/AMG/
H A Dramg_coarse.f562 & alhs,afmap,ilwork,BC,iBC,iper, argument
576 real(kind=8),intent(in),dimension(annz) :: alhs local
618 if ((cfilter.eq.afmap(k)).and.(alhs(j).lt.rowmax(i))) then
619 rowmax(i) = alhs(j)
621 if ((cfilter.eq.afmap(k)).and.(alhs(j).gt.prowmax(i))) then
622 prowmax(i) = alhs(j)
638 if (alhs(j).lt.0) then ! negative entries
639 if (alhs(j) .lt. rowmax(i)) then
642 if (alhs(j) .lt. rowmax(k)) then
647 if (alhs(j) .gt. prowmax(i)) then
[all …]
H A Dramg_smoother.f95 subroutine ramg_boundary_mls1(acolm,arowp,alhs, argument
107 real(kind=8),intent(in),dimension(annz_tot) :: alhs local
167 subroutine ramg_gauss(acolm,arowp,alhs,anshg,annz_tot,!A argument
178 real(kind=8),intent(in),dimension(annz_tot) :: alhs local
213 call ramg_boundary_mls1(acolm,arowp,alhs,anshg,annz_tot,
230 tmp = tmp + alhs(k)*u(j)
242 call ramg_boundary_mls1(acolm,arowp,alhs,anshg,annz_tot,
H A Dramg_tools.f885 subroutine ramg_dump_matlab_A(acolm,arowp,alhs,an,annz,redun, argument
896 real(kind=8),dimension(redun,annz) :: alhs local
920 write(264,mformat)i,j,(alhs(k,p),k=1,redun)
927 subroutine ramg_dump_matlab_map(acolm,arowp,alhs,an,annz,redun, argument
937 real(kind=8),dimension(redun,annz) :: alhs local
949 call ramg_dump_matlab_A(acolm,arowp,alhs,an,annz,redun,
969 write(264,mformat)ii,jj,(alhs(k,p),k=1,redun)
976 subroutine ramg_dump_mupad_A(acolm,arowp,alhs,an,annz, argument
981 real(kind=8),dimension(annz) :: alhs local
997 write(264,*)mAname,'[',i,',',j,']:=',alhs(p),':'