| /phasta/shapeFunction/src/ |
| H A D | modeShape.c | 31 int alpha,beta,found,count,nskip; in F_modeShapeTri() local
39 for(alpha=0; alpha <= p-3; alpha++) { 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
74 for( alpha=0; alpha <= p-4; alpha++) { 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
38 for(alpha=0; alpha <= p-3; alpha++) { 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
73 for( alpha=0; alpha <= p-4; alpha++) { 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
42 alpha = mlsCf(level,1)*ramg_chebyratio
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)
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
152 alpha = rz/pq
153 sol = sol + alpha*cgP
154 cgR = cgR - alpha*cgQ
190 real(kind=8) :: rz,rz_0,pq,alpha,beta variable
242 alpha = rz/pq
243 sol = sol + alpha*cgP
244 cgR = cgR - alpha*cgQ
|
| H A D | ramg_coarse.f | 34 real(kind=8) :: alpha,beta,alphac,betac,diag,rtp local
284 alpha = 0
293 alpha = alpha + amg_la(k)
309 alpha = diag*alpha/alphac
314 amg_la(k) = amg_la(k)*alpha
|
| /phasta/svLS/ |
| H A D | CGRAD.f | 56 REAL*8 errO, err, alpha, eps, time local
97 alpha = errO/DOTS(mynNo, commu, P, SP)
98 X = X + alpha*P
99 R = R - alpha*SP
131 REAL*8 errO, err, alpha, eps local
156 alpha = errO/DOTV(dof, mynNo, commu, P, KP)
157 X = X + alpha*P
158 R = R - alpha*KP
190 REAL*8 errO, err, alpha, eps local
213 alpha = errO/DOTS(mynNo, commu, P, KP)
[all …]
|
| /phasta/phSolver/common/ |
| H A D | readnblk.f | 272 alpha=(xmaxn-xmaxo)/(xmaxo-xmin)**2
278 & alpha*(point2x(:,1)-xmin)**2
|
| H A D | input.f | 297 write (23,*) time, CFLfld, CFLsld, Dtgl, Dtmax, alpha,
|
| H A D | common_c.h | 540 double alpha; member
|
| H A D | common.h | 252 common /timdat/ time, CFLfld, CFLsld, Dtgl, Dtmax, alpha,
|
| /phasta/M2N/include/ |
| H A D | commonM2N_c.h | 462 double alpha; member
|
| H A D | commonM2N.h | 211 common /timdat/ time, CFLfld, CFLsld, Dtgl, Dtmax, alpha,
|
| /phasta/AcuStat/include/ |
| H A D | commonAcuStat_c.h | 461 double alpha; member
|
| H A D | commonAcuStat.h | 210 common /timdat/ time, CFLfld, CFLsld, Dtgl, Dtmax, alpha,
|
| /phasta/M2NFixBnd/include/ |
| H A D | commonM2NFixBnd_c.h | 461 double alpha; member
|
| H A D | commonM2NFixBnd.h | 210 common /timdat/ time, CFLfld, CFLsld, Dtgl, Dtmax, alpha,
|
| /phasta/phSolver/incompressible/ |
| H A D | filters.f | 1582 alpha = rr / pap
1586 trx(:) = trx(:) + alpha * p(:)
1591 rhs(:) = rhs(:) - alpha * q(:)
|