Home
last modified time | relevance | path

Searched refs:m (Results 1 – 25 of 27) sorted by relevance

12

/phasta/phSolver/common/
H A Dshp10t.f46 do m = 1, nQpt
50 shp(1,m) = one - QuadPt(1,m) - QuadPt(2,m) - QuadPt(3,m)
51 shp(2,m) = QuadPt(1,m)
52 shp(3,m) = QuadPt(2,m)
53 shp(4,m) = QuadPt(3,m)
57 shgl(1,1,m) = -pt5
58 shgl(2,1,m) = -pt5
59 shgl(3,1,m) = -pt5
60 shgl(1,2,m) = pt5
61 shgl(2,2,m) = zero
[all …]
H A Dshp4t.f44 do m = 1, nQpt
48 shp(1,m) = one - QuadPt(1,m) - QuadPt(2,m) - QuadPt(3,m)
49 shp(2,m) = QuadPt(1,m)
50 shp(3,m) = QuadPt(2,m)
51 shp(4,m) = QuadPt(3,m)
55 shgl(1,1,m) = -pt5
56 shgl(2,1,m) = -pt5
57 shgl(3,1,m) = -pt5
58 shgl(1,2,m) = pt5
59 shgl(2,2,m) = zero
[all …]
H A Dnewshape.cc175 double Pyr_eB(double xi[3], int sign[3], int k, int m, int along) in Pyr_eB() argument
180 k--; m--; along--; in Pyr_eB()
184 psi =0.125*(xi[2]*xi[2]-1)*(1+sign[k]*(2*xi[k]*tmp0))*(1+sign[m]*(2*xi[m]*tmp0)); in Pyr_eB()
188 psi =0.125*(tmp1*tmp1-1)*(1+sign[m]*(2*xi[m]*tmp0))*(1-xi[2]); in Pyr_eB()
193 double dPeBdxi(double xi[3], int sign[3], int k, int m, int along, int byWhich) in dPeBdxi() argument
200 k--; m--; along--; in dPeBdxi()
203 dPsidxi =-0.25*(1+xi[2])*sign[k]*(1+sign[m]*(2*xi[m]*tmp0)); in dPeBdxi()
204 else if (byWhich==m) in dPeBdxi()
205 dPsidxi =-0.25*(1+xi[2])*sign[m]*(1+sign[k]*(2*xi[k]*tmp0)); in dPeBdxi()
207 dPsidxi =0.25*(xi[2]*(1+sign[k]*2*xi[k]*tmp0)*(1+sign[m]*2*xi[m]*tmp0)- in dPeBdxi()
[all …]
H A DcommuInt.f95 m = 0
99 m = m + 1
115 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
122 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
146 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
150 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
158 call MPI_WAITALL(m, req, stat, ierr)
H A Dcommu.f134 m = 0
138 m = m + 1
160 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
179 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
213 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
229 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
249 call MPI_WAITALL(m, req, stat, ierr)
H A Dmpitools.f6 subroutine drvAllreduce ( eachproc, result, m ) argument
11 dimension eachproc(m), result(m)
21 call MPI_ALLREDUCE ( eachproc, result, m,
H A Dphio_sync.cc70 const char m = sf->mode; in sync_closefile() local
71 if(m == 'r') in sync_closefile()
73 else if(m == 'w') in sync_closefile()
H A Dbctint.f416 integer nptf, cutfreq, j, k, m, s, Filtime(nptf) local
435 do m=1,nptf
437 s=modulo(m-nptf+j,nptf)
441 Filtered(m,:) = Filtered(m,:)
/phasta/svLS/
H A DGE.f49 INTEGER m, ipv, i, j local
65 DO m=1,N-1
66 ipv = m
67 pivot = ABS(C(m,m))
68 DO i=m+1,N
69 IF (ABS(C(i,m)) .GT. pivot) THEN
71 pivot = ABS(C(i,m))
78 IF (ipv .NE. m) THEN
79 DO j=m, N+1
80 saveEl = C(m,j)
[all …]
/phasta/phSolver/AMG/
H A Dramg_ITAI.f7 & c_colm,m,l,n)
8 integer,intent(in) :: m,l,n local
9 integer,intent(in) :: a_colm(m+1),b_colm(l+1)
10 integer,intent(inout) :: c_colm(m+1)
11 integer,intent(in) :: a_rowp(a_colm(m+1)-1)
15 integer :: itemp(max(m,l))
19 do i=1,m
32 c_colm(m+1) = mnnz
37 & c_colm,c_rowp,m,l,n,diagflag)
38 integer,intent(in) :: m,l,n local
[all …]
H A Dramg_extract.f48 integer :: i,j,k,m,n,p,q,ki,kj,ni,nj,qq
132 do m=lhsGPcolm%p(i),lhsGPcolm%p(i+1)-1
133 k = lhsGProwp%p(m)
159 do m = lhsGPcolm%p(i),lhsGPcolm%p(i+1)-1
160 k = lhsGProwp%p(m)
208 do m = lhsGPcolm%p(i),lhsGPcolm%p(i+1)-1
209 j = lhsGProwp%p(m)
233 do m=amg_A_colm(1)%p(i)+1,amg_A_colm(1)%p(i+1)-1
234 ki = amg_A_rowp(1)%p(m)
235 do n=m+1,amg_A_colm(1)%p(i+1)-1
[all …]
H A Dramg_coarse.f38 integer :: i,j,k,m,n,p,q local
261 m = aLoc(jj)
262 if (m.eq.0) then
263 m = n+1
264 aLoc(jj) = m
265 amg_Fn(m) = jj
266 amg_Fp(m) = 0
267 amg_la(m) = 0
270 amg_la(m) = amg_la(m) - rtp*amg_A_lhs(level1)%p(kj,1)
272 amg_Fp(m) = 1
[all …]
H A Dramg_paratools.f31 integer :: numtask,i,j,k,m,p,ki,kj,krowp,ierr local
67 m = 0
89 m = m+1
142 & iother,itag,MPI_COMM_WORLD,req(m),ierr)
144 & iother,itag,MPI_COMM_WORLD,req(m+1),ierr)
148 & iother,itag,MPI_COMM_WORLD,req(m),ierr)
150 & iother,itag,MPI_COMM_WORLD,req(m+1),ierr)
154 m = m + 1
161 call MPI_WAITALL(m,req,stat,ierr)
168 m = 0
[all …]
H A Dramg_ggb.f207 integer :: numtask,i,j,k,m,p,newn local
222 m = 0
230 m = m+1
243 m = m + 1
249 m = iabs(amg_paramap(level)%p(i))
250 if (neimap(m).eq.0) then ! self or master
/phasta/phSolver/incompressible/
H A Dftools.f52 subroutine fMtxVdimVecMult( a, b, c, na, nb, nc, m, n ) argument
57 integer na, nb, nc, m, n local
66 if ( m .eq. 1 ) then
72 else if ( m .eq. 2 ) then
79 else if ( m .eq. 3 ) then
87 else if ( m .eq. 4 ) then
99 do j = 1, m
113 subroutine flesZero ( a, m, n ) argument
116 integer m, n, i, j local
117 real*8 a(n,m)
[all …]
H A DadvLES.f1551 do m = 1, 12
1552 xavegr(:,m) = xavegr(:,m)/nsons(:)
1559 do m = 1, 12
1560 xavegt(:,m) = xavegt(:,m) + xavegr(:,m)
1567 do m = 1, 12
1568 xaveg(:,m) = xaveg(:,m)/nsons(:)
1571 do m = 1, 12
1572 xavegt(:,m) = xavegt(:,m) + xaveg(:,m)
1987 do m = 1, 12
1988 xavegr(:,m) = xavegr(:,m)/nsons(:)
[all …]
H A Dfilters.f1184 do m = 1, 12
1185 xavegr(:,m) = xavegr(:,m)/nsons(:)
1192 do m = 1, 12
1193 xavegt(:,m) = xavegt(:,m) + xavegr(:,m)
1198 do m = 1, 12
1199 xaveg(:,m) = xaveg(:,m)/nsons(:)
1202 do m = 1, 12
1203 xavegt(:,m) = xavegt(:,m) + xaveg(:,m)
2020 do m = 1, 5
2021 ynuder(:,m) = ynuder(:,m)/nsons(:)
[all …]
H A Dusr.h151 int* m,
155 int* m,
/phasta/AcuStat/src/
H A DcommuMax.f131 m = 0
135 m = m + 1
153 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
164 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
190 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
198 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
210 call MPI_WAITALL(m, req, stat, ierr)
/phasta/M2NFixBnd/src/
H A DcommuMax.f132 m = 0
136 m = m + 1
154 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
165 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
191 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
199 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
211 call MPI_WAITALL(m, req, stat, ierr)
/phasta/M2N/src/
H A Dcommu.f128 m = 0
132 m = m + 1
150 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
161 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
187 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
195 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
207 call MPI_WAITALL(m, req, stat, ierr)
/phasta/phSolver/testIC-DSIM/
H A Dgeom.sms156 0 24+4+l-m-2
157 0 24+m+n-7-3
172 0 34+m+x-p-t
H A Dgeom.sdm155 0 24+4+l-m-2
156 0 24+m+n-7-3
/phasta/phSolver/compressible/
H A Dbflux.f331 m = k ! global node number
333 write (iflux, 2000) k, (x(m,i), i=1,nsd),
334 & (flxnrm(m,i), i=1,nsd),
335 & (flxres(m,i), i=2,nflow),
H A Dsolgmrpetsc.c116 int i,j,k,l,m; in SolGMRp() local
455 int i,j,k,l,m; in SolGMRpSclr() local

12