Home
last modified time | relevance | path

Searched refs:temp (Results 1 – 22 of 22) sorted by relevance

/phasta/phSolver/common/
H A Df3lhs.f42 & temp(npro), temp1(npro),
70 temp = one / sqrt ( temp1**2 + temp2**2 + temp3**2 )
71 bnorm(:,1) = temp1 * temp
72 bnorm(:,2) = temp2 * temp
73 bnorm(:,3) = temp3 * temp
85 WdetJb = Qwtb(lcsyst,intp) / (four*temp)
87 WdetJb = Qwtb(lcsyst,intp) / (four*temp)
89 WdetJb = Qwtb(lcsyst,intp) / (two*temp)
91 WdetJb = Qwtb(lcsyst,intp) / (four*temp)
93 WdetJb = Qwtb(lcsyst,intp) / (four*temp)
[all …]
H A Dasbnabi.f28 dimension dxdxib(npro,nsd,nsd), temp(npro),
86 temp = one / sqrt ( temp1**2 + temp2**2 + temp3**2 )
87 bnorm(:,1) = temp1 * temp
88 bnorm(:,2) = temp2 * temp
89 bnorm(:,3) = temp3 * temp
92 Wfactor(:) = one / (four*temp(:))
94 Wfactor(:) = one / (four*temp(:))
96 Wfactor(:) = one / (two*temp(:))
98 Wfactor(:) = one / (four*temp(:))
100 Wfactor(:) = one / (four*temp(:))
[all …]
H A Dgenbc.f550 integer, allocatable :: temp(:) ! temp space local
635 allocate (temp(nsidt))
665 & MPI_INTEGER,temp(:),nsid,idisp,
672 if(temp(j).lt.temp(j-1)) then ! ID exceeds predecessor
673 itmp=temp(j-1)
674 temp(j-1)=temp(j)
675 temp(j)=itmp
683 if(temp(j).eq.temp(j-1)) nsidg = nsidg - 1 ! correction
687 sidmapg(1)=temp(1)
690 if(temp(j).ne.temp(j-1)) then
[all …]
H A Deqn_plane.f34 integer temp, tempb, etmp local
152 temp=0
H A Drenum.f33 integer temp, etmp, s local
217 integer temp, etmp, s local
/phasta/phSolver/compressible/
H A De3bvar.f72 & dxidxb(npro,nsd,nsd), temp(npro),
112 temp = zero
115 temp = temp + shpb(:,n) * ycl(:,n,isc)
121 call getthm (pres, T, temp,
175 temp = one / sqrt ( temp1**2 + temp2**2 + temp3**2 )
176 bnorm(:,1) = temp1 * temp
177 bnorm(:,2) = temp2 * temp
178 bnorm(:,3) = temp3 * temp
182 WdetJb = (1 - Qwtb(lcsyst,intp)) / (four*temp)
190 WdetJb = Qwtb(lcsyst,intp) / temp
[all …]
H A De3massl.f24 dimension fact(npro,5), temp(npro),
29 temp = WdetJ * almi/gami/alfi*Dtgl
44 fact(:,1) = shpij * (temp + bcool*spongeContinuity)
45 fact(:,2) = shpij * (temp + bcool*spongeMomentum1)
46 fact(:,3) = shpij * (temp + bcool*spongeMomentum2)
47 fact(:,4) = shpij * (temp + bcool*spongeMomentum3)
48 fact(:,5) = shpij * (temp + bcool*spongeEnergy)
103 dimension fact(npro), temp(npro),
108 temp = WdetJ * almi/gami/alfi*Dtgl
118 fact = shpij * temp
H A Dsolmfg.f53 & ypre(nshg,nflow), temp(nshg,nflow),
139 temp = res**2
143 call sumgat (temp, nflow, summed, ilwork)
188 & res, Dy, temp,
195 uBrg(:,:,1) = temp
199 temp = temp**2
200 call sumgat (temp, ndof, summed, ilwork)
226 temp = uBrg(:,:,iKs)
230 & res, temp, BDiag,
236 uBrg(:,:,iKs+1) = temp ! u_{i+1}= J u_i In Johan Thesis p 15c
[all …]
H A Dsolgmr.f55 & temp(nshg,nflow),
124 temp = res**2
126 call sumgat (temp, nflow, summed, ilwork)
156 temp = Dy
162 call Au1GMR (EGmass, temp, ilwork, iBC,iper)
166 call bc3per (iBC, temp, iper, ilwork, nflow)
174 temp = res - temp
175 uBrg(:,:,1) = temp
179 temp = temp**2
180 call sumgat (temp, nflow, summed, ilwork)
[all …]
H A Dbflux.f55 & temp(nshg), itemp(numflx),
300 temp = sqrt(flxnrm(:,1)**2 + flxnrm(:,2)**2 + flxnrm(:,3)**2)
301 where ( (invflx .ne. 0) .and. (temp .ne. zero) )
302 flxnrm(:,1) = flxnrm(:,1) / temp
303 flxnrm(:,2) = flxnrm(:,2) / temp
304 flxnrm(:,3) = flxnrm(:,3) / temp
H A De3eig1.f50 & temp(npro)
/phasta/converterIO/
H A DconverterN2O.cc44 char * temp, * token; in main() local
55 temp = strtok ( pool, ":" );temp = strtok ( NULL, ":" ); in main()
56 N_geombc_double = atoi(temp); in main()
60 temp = strtok ( pool, ":" );temp = strtok ( NULL, ":" ); in main()
61 N_geombc_integer = atoi(temp); in main()
65 temp = strtok ( pool, ":" );temp = strtok ( NULL, ":" ); in main()
66 N_restart_double = atoi(temp); in main()
70 temp = strtok ( pool, ":" );temp = strtok ( NULL, ":" ); in main()
71 N_restart_integer = atoi(temp); in main()
75 temp = strtok ( pool, ":" );temp = strtok ( NULL, ":" ); in main()
[all …]
H A DconverterO2N.cc68 char * temp, * token; in main() local
80 temp = strtok ( pool, ":" );temp = strtok ( NULL, ":" ); in main()
81 N_geombc_double = atoi(temp); in main()
85 temp = strtok ( pool, ":" );temp = strtok ( NULL, ":" ); in main()
86 N_geombc_integer = atoi(temp); in main()
90 temp = strtok ( pool, ":" );temp = strtok ( NULL, ":" ); in main()
91 N_restart_double = atoi(temp); in main()
95 temp = strtok ( pool, ":" );temp = strtok ( NULL, ":" ); in main()
96 N_restart_integer = atoi(temp); in main()
100 temp = strtok ( pool, ":" );temp = strtok ( NULL, ":" ); in main()
[all …]
/phasta/phSolver/incompressible/
H A De3bvar.f68 & dxidxb(npro,nsd,nsd), temp(npro),
227 temp = one / sqrt ( temp1**2 + temp2**2 + temp3**2 )
228 bnorm(:,1) = temp1 * temp
229 bnorm(:,2) = temp2 * temp
230 bnorm(:,3) = temp3 * temp
234 WdetJb = Qwtb(lcsyst,intp) / (four*temp)
236 WdetJb = Qwtb(lcsyst,intp) / (four*temp)
238 WdetJb = Qwtb(lcsyst,intp) / (two*temp)
240 WdetJb = Qwtb(lcsyst,intp) / (four*temp)
242 WdetJb = Qwtb(lcsyst,intp) / (four*temp)
[all …]
H A Dgenlmass.f84 & fmstot(npro), temp(npro), local
149 temp = zero
151 temp = temp + locmass(:,aa) !reusing temp to save memory
159 locmass(:,aa) = locmass(:,aa) * fmstot / temp
H A Dbflux.f43 & temp(nshg), rtmp(nshg,ndof), local
296 temp = sqrt(flxnrm(:,1)**2 + flxnrm(:,2)**2 + flxnrm(:,3)**2)
297 where ( (invflx .ne. 0) .and. (temp .ne. zero) )
298 flxnrm(:,1) = flxnrm(:,1) / temp
299 flxnrm(:,2) = flxnrm(:,2) / temp
300 flxnrm(:,3) = flxnrm(:,3) / temp
H A Dsolfar.f96 integer usr(100), eqnType,temp, local
126 temp = npro
/phasta/phastaIO/
H A DvtkPhastaReader.cxx521 char *temp, *ptr; in StrReverse() local
524 temp=str; in StrReverse()
525 for(len=0; *temp !='\0';temp++, len++); in StrReverse()
H A DphastaIO.cc1707 int temp = *ndataItems; in writeheader() local
1708 unsigned long number_of_items = (unsigned long)temp; in writeheader()
/phasta/phSolver/AMG/
H A Damgread.txt91 Then we build temp variable amg_I for interpolation operator.
/phasta/phSolver/incompressible/e3source/
H A De3source.fimplicit499 sclr_ls = zero !zero out temp variable
H A De3source.fRHSonly485 sclr_ls = zero !zero out temp variable