Searched refs:nj (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_extract.f | 48 integer :: i,j,k,m,n,p,q,ki,kj,ni,nj,qq
126 nj = 0
131 nj = nj+1
135 nj = nj+1
272 nj = lhsGPcolm%p(j+1)
276 kloop: do while ( ( ki.lt.ni ).and.(kj.lt.nj) )
282 do while ( (kj.lt.nj) .and.
286 if (kj.eq.nj) exit kloop
|
| H A D | ramg_paratools.f | 757 integer :: i,j,k,lenseg,nr,nj,mi,mj variable
786 read(264,*)nj
787 do j=1,nj
808 read(264,*)nj
809 do j=1,nj
|