Home
last modified time | relevance | path

Searched refs:i0 (Results 1 – 13 of 13) sorted by relevance

/phasta/phSolver/incompressible/
H A Dbc3global.f29 i0 = (in-1)*4
34 globMas(i0+1,:) = zero
35 globMas(:,i0+1) = zero
36 globMas(i0+1,i0+1) = one
45 globMas(i0+2,:) = zero
46 globMas(:,i0+2) = zero
47 globMas(i0+2,i0+2) = one
53 globMas(i0+3,:) = zero
54 globMas(:,i0+3) = zero
55 globMas(i0+3,i0+3) = one
[all …]
H A Dsoldir.f68 i0 = (i-1)*4
73 if (globMas(i0+1,j0+1) .ne. 0) then
76 write(543,20) (globMas(i0+ii,j0+kk), kk=1,4)
94 i0 = 4*(i-1)
95 dyf(i0+1) = res(i,1)
96 dyf(i0+2) = res(i,2)
97 dyf(i0+3) = res(i,3)
98 dyf(i0+4) = res(i,4)
99 write(543,20) (dyf(i0+j),j=1,4)
109 i0 = 4*(i-1)
[all …]
H A Dftools.f28 i0 = (nsd) * (i - 1)
29 Diagl(:,i,1) = xKebe(1:npro,i0+1,i0+1)
30 Diagl(:,i,2) = xKebe(1:npro,i0+2,i0+2)
31 Diagl(:,i,3) = xKebe(1:npro,i0+3,i0+3)
1140 i0 = (nsd) * (i - 1)
1144 & + xGoC(1:npro,i0+1,j) * Ptemp(:,j,nPs)
1147 & + xGoC(1:npro,i0+2,j) * Ptemp(:,j,nPs)
1150 & + xGoC(1:npro,i0+3,j) * Ptemp(:,j,nPs)
1189 i0 = (nsd) * (i - 1)
1194 & + xKebe(1:npro,i0+1,j0+1) * Ptemp(:,j,1)
[all …]
/phasta/phSolver/compressible/
H A De3massl.f39 i0 = nflow * (i - 1)
53 EGmass(:,i0+1,j0+jdof) = EGmass(:,i0+1,j0+jdof)
55 EGmass(:,i0+2,j0+jdof) = EGmass(:,i0+2,j0+jdof)
57 EGmass(:,i0+3,j0+jdof) = EGmass(:,i0+3,j0+jdof)
59 EGmass(:,i0+4,j0+jdof) = EGmass(:,i0+4,j0+jdof)
61 EGmass(:,i0+5,j0+jdof) = EGmass(:,i0+5,j0+jdof)
H A De3wmlt.f190 i0 = nflow * (i - 1)
195 EGmass(:,i0+1,j0+jdof) = EGmass(:,i0+1,j0+jdof)
199 EGmass(:,i0+2,j0+jdof) = EGmass(:,i0+2,j0+jdof)
203 EGmass(:,i0+3,j0+jdof) = EGmass(:,i0+3,j0+jdof)
207 EGmass(:,i0+4,j0+jdof) = EGmass(:,i0+4,j0+jdof)
211 EGmass(:,i0+5,j0+jdof) = EGmass(:,i0+5,j0+jdof)
H A De3conv.f312 i0 = nflow * (i - 1)
319 EGmass(:,i0+1,jl) = EGmass(:,i0+1,jl) +
322 EGmass(:,i0+2,jl) = EGmass(:,i0+2,jl) +
325 EGmass(:,i0+3,jl) = EGmass(:,i0+3,jl) +
328 EGmass(:,i0+4,jl) = EGmass(:,i0+4,jl) +
331 EGmass(:,i0+5,jl) = EGmass(:,i0+5,jl) +
H A Dasigmr.f95 i0 = (i - 1) * nflow + j
98 BDiagl(:,i,j,k) = EGmass(:,i0,j0)
H A De3ls.f714 i0 = nflow * (i - 1)
740 il = i0 + idof
/phasta/M2NFixBnd/src/
H A Dcname.f10 i0 = mod (ii,10)
11 ii = (ii - i0) / 10
33 cc = TRIM(cc)//CHAR(ic0 + i0)
/phasta/M2N/src/
H A Dcname.f10 i0 = mod (ii,10)
11 ii = (ii - i0) / 10
33 cc = TRIM(cc)//CHAR(ic0 + i0)
/phasta/phSolver/common/
H A Dcname.f10 i0 = mod (ii,10)
11 ii = (ii - i0) / 10
33 cc = TRIM(cc)//CHAR(ic0 + i0)
H A Dbctint.f143 integer i0,ilen,i1,nper,istart,iend local
230 i0 = (ntpts-istart+1) ! first segment
231 ilen = iend + i0
233 BCtptr(ic)%p(1:i0,:) = BCt(istart:ntpts,:)
234 BCtptr(ic)%p(i0+1:ilen,:) = BCt(1:iend,:)
235 BCtptr(ic)%p(i0+1:ilen,4) =
236 & BCtptr(ic)%p(i0+1:ilen,4) + BCt(ntpts,4)
/phasta/AcuStat/src/
H A Dcname.f10 i0 = mod (ii,10)
11 ii = (ii - i0) / 10
33 cc = TRIM(cc)//CHAR(ic0 + i0)