| /phasta/shapeFunction/src/ |
| H A D | modeShape.c | 31 int alpha,beta,found,count,nskip; in F_modeShapeTri() local
40 for(beta=0; beta <= p-3; beta++) { in F_modeShapeTri()
41 if( alpha+beta == p-3 ) { in F_modeShapeTri()
54 return Fn(alpha, beta, L[0], L[1]); in F_modeShapeTri()
65 int alpha,beta,gamma,count,found; in R_modeShapeTet() local
75 for( beta=0; beta <= p-4; beta++) { in R_modeShapeTet()
77 if( alpha+beta+gamma == p-4 ) { in R_modeShapeTet()
93 return Bn(alpha,beta,gamma,L[0],L[1],L[2]); in R_modeShapeTet()
|
| H A D | modeShapeDrv.c | 29 int alpha,beta,found,count; in F_modeShapeTriDrv() local
39 for(beta=0; beta <= p-3; beta++) { in F_modeShapeTriDrv()
40 if( alpha+beta == p-3 ) { in F_modeShapeTriDrv()
53 return FnDrv(alpha,beta,L[0],L[1],mdrv); in F_modeShapeTriDrv()
63 int alpha,beta,gamma,count,found ; in R_modeShapeTetDrv() local
74 for( beta=0; beta <= p-4; beta++) { in R_modeShapeTetDrv()
76 if( alpha+beta+gamma == p-4 ) { in R_modeShapeTetDrv()
89 return BnDrv(alpha,beta,gamma,L[0],L[1],L[2],mdrv); in R_modeShapeTetDrv()
|
| /phasta/phSolver/AMG/ |
| H A D | ramg_cheby.f | 36 real(kind=8) :: cf,beta,alpha,delta,theta,s1,rhok,invtheta local
41 beta = 1.1*mlsCf(level,1) ! 1.1 * Ev_max
46 chebyniu = 1.0+2.0*(1.0-beta)/(beta-alpha)
47 chebygamma = 2.0/(2.0-alpha-beta)
49 chebyomega = chebyomega*2.0*(2.0-beta-alpha)/(beta-alpha)
55 cy1 = v-1.1*3.0/beta*(pAux-r)
70 delta = (beta-alpha)/2.0
71 twoodelta = 4.0/(beta-alpha)
72 theta = (beta+alpha)/2.0
73 invtheta = 2.0/(beta+alpha)
|
| H A D | ramg_driver.f | 130 real(kind=8) :: rz,rz_0,pq,alpha,beta local
160 beta = rz/tmp
161 cgP = beta*cgP+cgZ
190 real(kind=8) :: rz,rz_0,pq,alpha,beta variable
263 beta = rz/tmp
264 cgP = beta*cgP + cgZ
|
| H A D | ramg_coarse.f | 34 real(kind=8) :: alpha,beta,alphac,betac,diag,rtp local
285 beta = 0
295 beta = beta + amg_la(k)
310 beta = diag*beta/betac
316 amg_la(k) = amg_la(k)*beta
|
| /phasta/phSolver/compressible/ |
| H A D | solgmr.f | 229 call sumgat (temp, nflow, beta, ilwork) ! sum vector=(u_{i+1},u_1)
235 uBrg(:,:,iKs+1) = uBrg(:,:,iKs+1) - beta * uBrg(:,:,jK-1)
238 call sumgat (temp, nflow, beta, ilwork) ! sum vector=(u_{i+1},u_j)
242 HBrg(jK,iKs) = beta ! put this in the Hessenberg Matrix
251 unorm = sqrt(beta)
603 call sumgat (temp, nflow, beta, ilwork) ! sum vector=(u_{i+1},u_1)
609 uBrg(:,:,iKs+1)=uBrg(:,:,iKs+1)-beta * uBrg(:,:,jK-1)
612 call sumgat (temp, nflow, beta, ilwork) ! sum vector=(u_{i+1},u_j)
616 HBrg(jK,iKs) = beta ! put this in the Hessenberg Matrix
625 if(beta.le.0) write(*,*) 'beta in solgmr non-positive'
[all …]
|
| H A D | solmfg.f | 252 call sumgat (temp, nflow, beta, ilwork) ! sum vector=(u_{i+1},u_1)
258 uBrg(:,:,iKs+1) = uBrg(:,:,iKs+1) - beta * uBrg(:,:,jK-1)
261 call sumgat (temp, nflow, beta, ilwork) ! sum vector=(u_{i+1},u_j)
265 HBrg(jK,iKs) = beta ! put this in the Hessenberg Matrix
274 unorm = sqrt(beta)
|
| /phasta/phSolver/common/ |
| H A D | input.config | 432 …Eigenvalue ratio: 0.1 # Eigen ratio for Chebyshev smoothing: smoothing for ev from beta-ratio*beta
|
| /phasta/phSolver/incompressible/ |
| H A D | filters.f | 1611 beta = rr / tmp
1612 p(:) = rhs(:) + beta * p(:)
|