Home
last modified time | relevance | path

Searched refs:indx (Results 1 – 8 of 8) sorted by relevance

/phasta/phSolver/common/
H A Dlubksb.f1 subroutine lubksb(aa,n,np,indx,bb) argument
9 dimension indx(n),aa(np,np),bb(n)
13 ll=indx(i)
H A Dludcmp.f1 subroutine ludcmp(aa,n,np,indx,d) argument
11 dimension aa(np,np), indx(n), vv(500)
52 indx(j)=imax
H A Dbctint.f280 integer mlen,indx,bstart,bend local
283 indx = (bLen+1)/2
285 if (bVal.gt.bArray(indx)) then
286 bstart = indx
288 bend = indx
290 indx = (bstart+bend)/2
292 iBfind = indx
/phasta/phSolver/incompressible/
H A Dsoldir.f33 dimension dyf(4*nshg), indx(4*nshg), solinc(nshg,4)
90 indx = 0
91 call ludcmp(globMas, 4*nshg, 4*nshg, indx, d)
104 call lubksb(globMas, 4*nshg, 4*nshg, indx, dyf)
H A De3ql.f40 & shdrv(npro,nsd,nshl), indx(nshl),
144 call ludcmp(rmass(iel,:,:),nshl,nshl,indx,d)
150 call lubksb(rmass(iel,:,:),nshl,nshl,indx,
204 & shdrv(npro,nsd,nshl), indx(nshl),
291 call ludcmp(rmass(iel,:,:),nshl,nshl,indx,d)
297 call lubksb(rmass(iel,:,:),nshl,nshl,indx,
H A Ditrdrv.f1633 indx=isolsc+2-nsolt ! complicated to keep epstol(2) for
1644 3 relTol=epstol(indx),
1689 & isclpresPrjFlag, nPresPrjs, epstol(indx),
/phasta/phSolver/compressible/
H A De3ql.f43 & shdrv(npro,nsd,nshl), indx(nshl),
193 call ludcmp(rmass(iel,:,:),nshl,nshl,indx,d)
200 & indx,rminv(iel,:,j))
/phasta/phSolver/AMG/
H A Dramg_ggb.f339 integer,dimension(maxnev) :: indx local
367 call ludcmp(mtxggbA,maxnev,maxnev,indx,d)
368 call lubksb(mtxggbA,maxnev,maxnev,indx,vR)