Home
last modified time | relevance | path

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

/phasta/svLS/
H A DCGRAD.f56 REAL*8 errO, err, alpha, eps, time local
68 eps = MAX(ls%absTol,ls%relTol*errO)
69 eps = eps*eps
76 IF (err .LT. eps) THEN
131 REAL*8 errO, err, alpha, eps local
141 eps = MAX(ls%absTol,ls%relTol*err)
142 eps = eps*eps
148 IF (err .LT. eps) THEN
190 REAL*8 errO, err, alpha, eps local
200 eps = MAX(ls%absTol,ls%relTol*err)
[all …]
H A DGMRES.f57 REAL*8 eps, tmp, time local
89 eps = err(1)
90 IF (eps .LE. ls%absTol) THEN
95 ls%iNorm = eps
96 ls%fNorm = eps
97 eps = MAX(ls%absTol,ls%relTol*eps)
133 IF (ABS(err(i+1)) .LT. eps) THEN
179 REAL*8 eps, tmp local
188 eps = NORMV(dof, mynNo, commu, R)
189 ls%iNorm = eps
[all …]
H A DNSSOLVER.f57 REAL*8 CPUT, NORMS, NORMV, DOTS, DOTV, eps local
76 eps = SQRT(NORMV(nsd, mynNo, commu, Rm)**2D0
78 ls%RI%iNorm = eps
79 ls%RI%fNorm = eps
86 eps = MAX(ls%RI%absTol,ls%RI%relTol*eps)
140 IF(ls%RI%fNorm .LT. eps) THEN
/phasta/phSolver/common/ !
H A Delm3keps.f132 real*8 k, kInv, kq, eps, y, epsInv, epsP2, local
177 eps = abs(epsilon(e))
201 epsP2 = eps * eps
208 if ( eps .gt.1.e-32) then
209 epsInv = 1. / eps
351 src(e,1) = pk - rho(e) * eps
353 & -rho(e)* Ce2 * f2 * eps * Tinv
355 srcRat(e,1) = -kInv*( pk - rho(e) * eps )
358 & -rho(e)* Ce2 * f2 * eps * Tinv
367 & -rho(e) * Ce2 * f2_k * eps * Tinv
[all …]
H A Dbardmc.f75 & eps(3), epst(3),
1060 subroutine disPtion (y, x, ien, shgl, shp, eps, xmudmi) argument
1072 & eps(3), fresli(npro,33),
1222 eps(1) = eps(1) + epsl(i,1)
1223 eps(2) = eps(2) + epsl(i,2)
H A Dinput.config418 AMG Convergence Eps: 1.0E-7 # AMG convergence eps
/phasta/phSolver/compressible/ !
H A Dau2mfg.f57 eps = epsM**pt66 / sqrt(summed)
65 uBrg = ypre + eps * Dy
89 uBrg = ypre - eps * Dy
108 uBrg = res - ( uBtmp1 - uBtmp2 ) / (two * eps)
H A Dget_h.c100 double eps = 0.000001; in intersect() local
145 if( fabs(n_dot_u) > eps ){ in intersect()