Searched defs:ramg_calcITAI (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_ITAI.f | 115 subroutine ramg_calcITAI(level1,level2,maxstopsign) subroutine
119 integer,intent(in) :: level1,level2
120 logical,intent(inout) :: maxstopsign
122 integer :: i,j,k,m,p,q,r,n,s,p0
123 integer,dimension(amg_nshg(level1)) :: itemp
124 integer,dimension(amg_nshg(level2)) :: itemp2
125 integer :: mnnz
127 integer,dimension(amg_nshg(level2)+1) :: ITA_colm
128 integer,dimension(:),allocatable :: ITA_rowp
129 real(kind=8),dimension(:),allocatable :: ITA
[all …]
|