Lines Matching defs:ramg_calcITAI
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
131 integer :: mem_err, mem_err_s
133 real(kind=8) :: rtp
134 character :: fname*80
135 real,dimension(10) :: cpusec