Searched refs:anshg (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_smoother.f | 96 & anshg,annz_tot,!A argument
104 integer,intent(in) :: anshg,annz_tot local
105 integer,intent(in),dimension(anshg+1) :: acolm
108 real(kind=8),intent(in),dimension(anshg) :: v,r
109 real(kind=8),intent(inout),dimension(anshg) :: u
114 logical,dimension(anshg),intent(inout) :: pflag
117 real(kind=8),dimension(anshg) :: tmp,v2,aux
143 do i=1,anshg
167 subroutine ramg_gauss(acolm,arowp,alhs,anshg,annz_tot,!A argument
175 integer,intent(in) :: anshg,annz_tot local
[all …]
|
| H A D | ramg_coarse.f | 561 subroutine ramg_CFsplit(amg_CF,amg_S,anshg,annz,acolm,arowp, argument
571 integer,intent(in) :: anshg,annz local
572 integer,intent(inout),dimension(anshg) :: amg_CF
573 integer,intent(in),dimension(anshg+1) :: acolm
577 integer,intent(in),dimension(anshg) :: afmap
590 integer,dimension(anshg) :: aheap,ainvheap
592 real(kind=8),dimension(anshg) :: amg_L
593 real(kind=8),dimension(anshg) :: rowmax,prowmax
608 MSCALE = 0.1*LSCALE/anshg
610 do i=1,anshg
[all …]
|