Home
last modified time | relevance | path

Searched refs:ien (Results 1 – 25 of 42) sorted by relevance

12

/phasta/phSolver/common/
H A Dlocal.f24 & ien(npro,nshl), ientmp(npro,nshl)
32 ien = abs(ientmp)
34 ien = ientmp
46 rlocal(:,i,j) = global(ien(:,i),j)
70 global(ien(nel,i),j) = global(ien(nel,i),j)
96 global(ien(nel,i),j) = rlocal(nel,i,j)
114 subroutine localx (global, rlocal, ien, n, code) argument
137 & ien(npro,nshl)
149 rlocal(:,i,j) = global(ien(:,i),j)
174 global(ien(nel,i),j) = global(ien(nel,i),j)
[all …]
H A Dfillsparse.f9 integer ien(npro,nshl), col(nshg+1), row(nshg*nnz) local
22 ien=abs(iens)
28 i = ien(e,aa) ! finds the global equation number or
37 k = sparseloc( row(c), n, ien(e,b) ) + c-1
82 integer ien(npro,nshl), col(nshg+1), row(nnz*nshg) local
97 ien=abs(iens)
103 i = ien(e,aa) !get mapping from aath node of element e to
113 k = sparseloc( row(c), n, ien(e,b) ) + c-1
145 integer ien(npro,nshl), col(nshg+1), row(nnz*nshg) local
158 ien=abs(iens)
[all …]
H A Dlocaly.f24 & ien(npro,nshl), ientmp(npro,nshl)
32 ien = abs(ientmp)
34 ien = ientmp
55 rlocal(:,i,j+1) = global(ien(:,i),j)
62 rlocal(:,i,1) = global(ien(:,i),4)
70 rlocal(:,i,j) = global(ien(:,i),j)
H A Deqn_plane.f36 integer, allocatable :: ien(:,:) local
145 allocate (ien(npro,nshl))
147 ien(:,:)=mien(iblk)%p(:,:)
154 erreur(k) = aR - xnrml*x(ien(i,k),1)
155 & - ynrml*x(ien(i,k),2) - znrml*x(ien(i,k),3)
162 ien2D(nelint,:) = ien(i,:)
169 deallocate (ien)
H A Derrorsmooth.f109 & shgl, ien, argument
136 & ien(npro,nshl),
154 call getsgn(ien,sgn)
160 call local(rerr, rerrl, ien, 10, 'gather ')
161 call localx(x, xl, ien, nsd, 'gather ')
206 call local (rerrsm, rerrsml, ien, 10,'scatter ')
207 call local (rmass, rmassl, ien, 1, 'scatter ')
H A Dsolvecon.f147 & shgl, ien, rmass, argument
161 & ien(npro,nshl),
198 call getsgn(ien,sgn)
204 call localy(y, ycl, ien, ndof, 'gather ')
205 call localx(x, xl, ien, nsd, 'gather ')
279 call local (v_lambda1, v_lambdal1, ien, 1, 'scatter ')
280 call local (v_lambda2, v_lambdal2, ien, 1, 'scatter ')
281 call local (hprime, hprimel, ien, 1, 'scatter ')
282 call local (rmass, rmassl, ien, 1, 'scatter ')
H A Dscatnu.f1 subroutine scatnu (ien, strl, xmudmi, xnut, shp) argument
5 dimension ien(npro,nshl), strl(npro,ngauss),
15 xmudmi(:,int) = xmudmi(:,int) + xnut(ien(:,in)) * strl(:,int)
H A Dgensav.f1 subroutine gensav (ientmp, mattmp, ien, ienG, mater) argument
24 & mattmp(npro), ien(npro,nshl),
31 ien(:,i) = ientmp(:,i)
H A Dasadj.f11 & ien(npro,nshl), local
20 ien=abs(iens)
24 ndlist(j)=ien(i,j)
H A Daveprep.f75 subroutine getnu (ien, strl, xmudmi, cdelsq, lfathe) argument
79 dimension ien(npro,nshl), strl(npro,ngauss),
108 subroutine getxnut (fres, xden, xnum, ien, shp) argument
112 dimension ien(npro,nshl), fres(nshg,22),
122 call local (fres, fresl, ien, 22, 'gather ')
208 subroutine getylist (ylist, lfathe, shp, x, ien) argument
213 & x(numnp,3), ien(npro,nshl),
218 call localx (x, xl, ien, 3, 'gather ')
448 subroutine smagcoeff (fres, xden, xnum, ien, shp, lfathe) argument
452 dimension ien(npro,nshl), fres(nshg,22),
[all …]
/phasta/phSolver/incompressible/
H A Dasigmr.f2 & shp, shgl, ien, argument
25 & ien(npro,nshl),
55 call getsgn(ien,sgn)
58 call localy(y, yl, ien, ndofl, 'gather ')
59 call localy(ac, acl, ien, ndofl, 'gather ')
60 call localx(x, xl, ien, nsd, 'gather ')
61 call local (qres, ql, ien, idflx, 'gather ')
63 call localx (d2wall, dwl, ien, 1, 'gather ')
67 call local (rls, rlsl, ien, 6, 'gather ')
95 call local( stsVec, lStsVec, ien, nResDims, 'scatter ')
[all …]
H A Dasiq.f2 & shgl, ien, xmudmi, argument
29 & ien(npro,nshl), dwl(npro,nenl),
42 where ( ien(:,i) < 0 )
53 call localy(y, yl, ien, ndof, 'gather ')
54 call localx (x, xl, ien, nsd, 'gather ')
56 call localx (d2wall, dwl, ien, 1, 'gather ')
71 call local (qres, ql, ien, idflx, 'scatter ')
72 call local (rmass, rmassl, ien, 1, 'scatter ')
89 & shgl, ien, qres, argument
97 & ien(npro,nshl), dwl(npro,nenl),
[all …]
H A DasiqGradV.f2 & shgl, ien, argument
27 & ien(npro,nshl),
39 where ( ien(:,i) < 0 )
50 call localy(y, yl, ien, ndof, 'gather ')
51 call localx (x, xl, ien, nsd, 'gather ')
64 call local (qres, ql, ien, nsdsq, 'scatter ')
H A Derrsmooth.f110 & shgl, ien, argument
137 & ien(npro,nshl),
155 call getsgn(ien,sgn)
161 call local(rerr, rerrl, ien, 10, 'gather ')
162 call localx(x, xl, ien, nsd, 'gather ')
207 call local (rerrsm, rerrsml, ien, 10,'scatter ')
208 call local (rmass, rmassl, ien, 1, 'scatter ')
H A Dhessian.f88 & ien, gradu, rmass )
94 & ien(npro,nshl), gradu(nshg,9),
109 where ( ien(:,i) < 0 )
120 call localy (y, yl, ien, ndof, 'gather ')
121 call localx (x, xl, ien, nsd, 'gather ')
151 call local (gradu, ql, ien, 9, 'scatter ')
152 call local (rmass, rmassl, ien, 1, 'scatter ')
163 & ien, uhess, rmass ) argument
169 & ien(npro,nshl), uhess(nshg,27),
184 where ( ien(:,i) < 0 )
[all …]
H A Dftools.f15 subroutine flesPrepDiag ( ien, xKebe, xGoc, flowDiag ) argument
22 integer ien(npro,nshl) local
41 call local (flowDiag, Diagl, ien, nflow, 'scatter ')
1120 subroutine flesApG ( ien, xGoC, lesP, lesQ, nPs, nQs ) argument
1126 dimension ien(npro,nshl)
1135 call local ( lesP, Ptemp, ien, nPs, 'gather ' )
1157 call local ( lesQ, Qtemp, ien, nQs, 'scatter ' )
1166 subroutine flesApKG ( ien, xKebe, xGoC, lesP, lesQ, nPs, nQs ) argument
1172 dimension ien(npro,nshl)
1182 call local ( lesP, Ptemp, ien, nPs, 'gather ' )
[all …]
/phasta/phSolver/compressible/
H A Dasigmr.f2 & shp, shgl, ien, argument
23 & ien(npro,nshl),
47 call getsgn(ien,sgn)
52 call localy(y, ycl, ien, ndofl, 'gather ')
53 call localy(ac, acl, ien, ndofl, 'gather ')
54 call localx(x, xl, ien, nsd, 'gather ')
55 call local (qres, ql, ien, idflx, 'gather ')
58 & call localy (ytarget, ytargetl, ien, nflow, 'gather ')
62 call local (rls, rlsl, ien, 6, 'gather ')
84 call local (res, rl, ien, nflow, 'scatter ')
[all …]
H A Dlocalt.f1 subroutine localt (global, rlocal, ien, n, code) argument
26 & ien(npro,nshl)
44 rlocal(:,i,j) = global(ien(:,j),i)
76 global(ien(nel,j),i) = global(ien(nel,j),i)
105 global(ien(nel,j),i) = rlocal(nel,i,j)
126 subroutine localtSclr (global, rlocal, ien, code) argument
151 & ien(npro,nshl)
168 rlocal(:,j) = global(ien(:,j))
198 global(ien(nel,j)) = global(ien(nel,j))
225 global(ien(nel,j)) = rlocal(nel,j)
H A Dasimfg.f2 & shgl, ien, mater, argument
21 & ien(npro,nshl),
44 call getsgn(ien,sgn)
49 call localy(y, ycl, ien, ndofl, 'gather ')
50 call localy(ac, acl, ien, ndofl, 'gather ')
51 call localx(x, xl, ien, nsd, 'gather ')
54 & call local (qres, ql, ien, idflx, 'gather ')
57 call local (rls, rlsl, ien, 6, 'gather ')
87 call local (res, rl, ien, nflow, 'scatter ')
88 call local (rmes, rml, ien, nflow, 'scatter ')
[all …]
H A Dasires.f2 & shp, shgl, ien, mater, argument
20 & ien(npro,nshl), mater(npro),
48 call getsgn(ien,sgn)
53 call localy(y, yl, ien, nflow, 'gather ')
54 call localx(x, xl, ien, nsd, 'gather ')
56 call localy(yc, ycl, ien, ndofl, 'gather ')
57 call localy(ac, acl, ien, nflow, 'gather ')
62 call local (rls, rlsl, ien, 6, 'gather ')
89 call local (rmes, rml, ien, nflow, 'scatter ')
H A Dasiq.f2 & shgl, ien, xmudmi, argument
29 & ien(npro,nshl),
44 call getsgn(ien,sgn)
50 call localy(y, ycl, ien, ndof, 'gather ')
51 call localx(x, xl, ien, nsd, 'gather ')
65 call local (qres, ql, ien, idflx,'scatter ')
66 call local (rmass, rmassl, ien, 1, 'scatter ')
H A Dasiflx.f2 & shgl, ien, mater, flxres) argument
19 & ien(npro,nshl),
38 call getsgn(ien,sgn)
43 call localy(y, ycl, ien, ndof, 'gather ')
44 call localy(ac, acl, ien, ndof, 'gather ')
45 call localx(x, xl, ien, nsd, 'gather ')
48 call local (rls, rlsl, ien, 6, 'gather ')
70 call local (flxres, rl, ien, nflow, 'scatter ')
H A Ditrpr1.f1 subroutine itrPr1 (ien, Binv, uBrg, uBtmp, code) argument
24 & uBrgl(npro,nshl*nflow), ien(npro,nshl),
35 call localt (uBrg, uBrgl, abs(ien), nflow, 'gather ' )
43 call localt (uBrg, uBrgl, abs(ien), nflow, 'globaliz')
55 call localt (uBrg, uBrgl, abs(ien), nflow, 'gather ')
63 call localt (uBrg, uBrgl, abs(ien), nflow, 'globaliz')
H A Dasaugmr.f1 subroutine AsAuGMR (ien, EGmass, uBrg, uBtmp ) argument
19 dimension ien(npro,nshl), EGmass(npro,nedof,nedof),
26 call localt (uBrg, uBrgl, abs(ien), nflow, 'gather ')
74 call localt (uBtmp, ubBgl, abs(ien), nflow, 'scatter ')
83 subroutine AsAuGMRSclr (ien, EGmass, uBrg, uBtmp ) argument
103 dimension ien(npro,nshl), EGmass(npro,nshape,nshape),
111 call localtSclr(uBrg, uBrgl, ien, 'gather ')
127 call localtSclr(uBtmp, ubBgl, ien, 'scatter ')
H A Dvorticity.f78 subroutine vortELE(y,x,shp1,shgl1,ien,vortIntG,lpmassG) argument
88 integer ien(npro,nshl) local
104 call getsgn(ien,sgn)
108 call localy (y, yl, ien, ndof, 'gather ')
109 call localx (x, xl, ien, nsd, 'gather ')
184 call local(vortIntG,vortIntL,ien,4,'scatter ')
185 call local(lpmassG,lpmass,ien,1,'scatter ')

12