Home
last modified time | relevance | path

Searched refs:b (Results 1 – 20 of 20) sorted by relevance

/phasta/phSolver/incompressible/
H A De3lhs.f49 integer aa, b local
79 do b = 1, nshl
80 t1(:,1) = uBar(:,1) * shg(:,b,1)
81 & + uBar(:,2) * shg(:,b,2)
82 & + uBar(:,3) * shg(:,b,3)
87 tmp1 = tsFct * shpfun(:,aa) * shpfun(:,b)
94 xKebe(:,1,aa,b) = xKebe(:,1,aa,b) + tmp2
95 xKebe(:,5,aa,b) = xKebe(:,5,aa,b) + tmp2
96 xKebe(:,9,aa,b) = xKebe(:,9,aa,b) + tmp2
102 do b = 1, nshl
[all …]
H A Dftools.f52 subroutine fMtxVdimVecMult( a, b, c, na, nb, nc, m, n ) argument
58 real*8 a(n,na), b(n,nb), c(n,nc) local
69 c(i,1) = a(i,1) * b(i,1)
75 c(i,1) = a(i,1) * b(i,1)
76 c(i,2) = a(i,2) * b(i,2)
82 c(i,1) = a(i,1) * b(i,1)
83 c(i,2) = a(i,2) * b(i,2)
84 c(i,3) = a(i,3) * b(i,3)
90 c(i,1) = a(i,1) * b(i,1)
91 c(i,2) = a(i,2) * b(i,2)
[all …]
H A De3bvar.f111 integer aa, b local
660 do b = 1, nshlb
662 tmp1 = tsFctvw * shpb(:,aa) * shpb(:,b)
666 xKebe(:,1,aa,b) = xKebe(:,1,aa,b) + tmp1
667 xKebe(:,5,aa,b) = xKebe(:,5,aa,b) + tmp1
668 xKebe(:,9,aa,b) = xKebe(:,9,aa,b) + tmp1
H A De3stab.f95 b +omegasq)
177 b +omegasq)
237 b +omegasq)
H A Dusr.h154 double* b,
H A De3.f206 integer aa, b local
/phasta/svLS/
H A DPRECOND.f54 INTEGER i, j, a, b, d, Ac, faIn local
119 b = rowPtr(2,Ac)
120 Val(1,a:b) = Val(1,a:b)*W(1,Ac)
125 b = rowPtr(2,Ac)
126 Val(1:2,a:b) = Val(1:2,a:b)*W(1,Ac)
127 Val(3:4,a:b) = Val(3:4,a:b)*W(2,Ac)
132 b = rowPtr(2,Ac)
133 Val(1:3,a:b) = Val(1:3,a:b)*W(1,Ac)
134 Val(4:6,a:b) = Val(4:6,a:b)*W(2,Ac)
135 Val(7:9,a:b) = Val(7:9,a:b)*W(3,Ac)
[all …]
/phasta/phSolver/common/
H A Dfillsparse.f12 integer aa, b, c, e, i, k, n local
32 do b = 1, nshl ! local variable number tangent respect
37 k = sparseloc( row(c), n, ien(e,b) ) + c-1
44 lhsK(1,k) = lhsK(1,k) + xKebe(e,1,aa,b)
45 lhsK(2,k) = lhsK(2,k) + xKebe(e,2,aa,b)
46 lhsK(3,k) = lhsK(3,k) + xKebe(e,3,aa,b)
47 lhsK(4,k) = lhsK(4,k) + xKebe(e,4,aa,b)
48 lhsK(5,k) = lhsK(5,k) + xKebe(e,5,aa,b)
49 lhsK(6,k) = lhsK(6,k) + xKebe(e,6,aa,b)
50 lhsK(7,k) = lhsK(7,k) + xKebe(e,7,aa,b)
[all …]
H A Dvec_func.h4 void crossProd(double a[3], double b[3], double ans[3]);
5 double dotProd(double a[3], double b[3]);
7 int vecEqual(double a[3], double b[3]);
H A Dnewshape.cc424 int a,b; in HexShapeAndDrv() local
558 b = arg2[2]; in HexShapeAndDrv()
560 EdgeBlend = Hex_eB(arg,tmp1[a],tmp1[b]); in HexShapeAndDrv()
563 dEBdxi = dHEBdxi1(arg,tmp1[a],tmp1[b]); in HexShapeAndDrv()
564 dEBdeta = dHEBdxi2(arg,tmp1[a],tmp1[b]); in HexShapeAndDrv()
565 dEBdzeta = dHEBdxi3(arg,tmp1[a],tmp1[b]); in HexShapeAndDrv()
567 dEBdeta = dHEBdxi1(arg,tmp1[a],tmp1[b]); in HexShapeAndDrv()
568 dEBdzeta = dHEBdxi2(arg,tmp1[a],tmp1[b]); in HexShapeAndDrv()
569 dEBdxi = dHEBdxi3(arg,tmp1[a],tmp1[b]); in HexShapeAndDrv()
571 dEBdzeta = dHEBdxi1(arg,tmp1[a],tmp1[b]); in HexShapeAndDrv()
[all …]
H A Dfillsparse.c17 #define COLMAJ3D(a,b,c,amax,bmax,cmax) (a-1)+amax*((b-1)+bmax*(c-1)) argument
/phasta/phSolver/testIC-DSIM/
H A Dgeom.sdm117 b 14
132 6 12 2 b
133 6 12 b 3
141 b 12 6 f
142 b 12 f 7
146 0 22 g b
154 5 22 b f
158 0 24+o+b-8-n
170 5 24+k-c-b+w
H A Dgeom.sms117 b 14
132 6 12 2 b
133 6 12 b 3
141 b 12 6 f
142 b 12 f 7
146 0 23 g b
154 5 23 b f
159 0 24+o+b-8-n
171 5 24+k-c-b+w
176 0 6-9-b-1-h-5-i
/phasta/phSolver/compressible/
H A Dget_h.c186 void crossProd(double a[3], double b[3], double ans[3]){ in crossProd()
187 ans[0] = a[1]*b[2]-b[1]*a[2]; in crossProd()
188 ans[1] = a[2]*b[0]-b[2]*a[0]; in crossProd()
189 ans[2] = a[0]*b[1]-b[0]*a[1]; in crossProd()
192 double dotProd(double a[3], double b[3]){ in dotProd()
193 return a[0]*b[0]+a[1]*b[1]+a[2]*b[2]; in dotProd()
200 int vecEqual(double a[3], double b[3]){ in vecEqual()
201 return (a[0]==b[0] && a[1]==b[1] && a[2]==b[2]); in vecEqual()
H A De3b.f94 integer aa, b local
244 do b = 1,nshl
245 EGmass(:,b, aa) = con * WdetJb * shape(:,b) * dNadn(:,aa)
H A Dsolgmrpetsc.c20 #define min(a,b) (((a) < (b)) ? (a) : (b)) argument
21 #define max(a,b) (((a) > (b)) ? (a) : (b)) argument
H A Drstat.f1 subroutine rstat (res, ilwork, b) argument
23 dimension b(nshg,nflow)
98 rtmp(:,2) = rtmp(:,2) + b(:,i)**2
/phasta/converterIO/
H A DREADME.md57 b) converterN2O
/phasta/phSolver/AMG/
H A Dramg_mls.f681 res = b-pAux!b-pAux ! rhs to feed in post smoothing, keep y
/phasta/phSolver/
H A DCHANGES360 b) number of solves per LHS formation