Home
last modified time | relevance | path

Searched refs:strnrm (Results 1 – 7 of 7) sorted by relevance

/phasta/phSolver/common/
H A Dasithf.f1 subroutine asithf (y, x, strnrm, ien, fres, shgl, shp, Qwtf) argument
11 & strnrm(npro,maxsh), dxidx(npro,nsd,nsd),
132 strnrm(:,intp) = fresli(:,22) * sqrt(
171 fresli(:,16) = strnrm(:,intp) * fresli(:,10) ! rho *|Eps| *Eps11 *WdetJ
172 fresli(:,17) = strnrm(:,intp) * fresli(:,11) ! rho *|Eps| *Eps22 *WdetJ
173 fresli(:,18) = strnrm(:,intp) * fresli(:,12) ! rho *|Eps| *Eps33 *WdetJ
174 fresli(:,19) = strnrm(:,intp) * fresli(:,13) ! rho *|Eps| *Eps12 *WdetJ
175 fresli(:,20) = strnrm(:,intp) * fresli(:,14) ! rho *|Eps| *Eps13 *WdetJ
176 fresli(:,21) = strnrm(:,intp) * fresli(:,15) ! rho *|Eps| *Eps23 *WdetJ
H A Dbardmc.f60 & strnrm(nshg), cdelsq(nshg),
312 strnrm = sqrt(
316 fwr = fwr1 * fres(:,22) * strnrm
825 subroutine twohfilter (y, x, strnrm, ien, fres, argument
836 & strnrm(npro,ngauss), dxidx(npro,nsd,nsd),
980 strnrm(:,intp) = fresli(:,22) * sqrt(
1019 fresli(:,16) = strnrm(:,intp) * fresli(:,10) ! rho *|Eps| *Eps11 *WdetJ
1020 fresli(:,17) = strnrm(:,intp) * fresli(:,11) ! rho *|Eps| *Eps22 *WdetJ
1021 fresli(:,18) = strnrm(:,intp) * fresli(:,12) ! rho *|Eps| *Eps33 *WdetJ
1022 fresli(:,19) = strnrm(:,intp) * fresli(:,13) ! rho *|Eps| *Eps12 *WdetJ
[all …]
H A Dgetstrl.f1 subroutine getstrl( y, x, ien, strnrm, shgl, shp ) argument
10 & strnrm(npro,maxsh), dxidx(npro,nsd,nsd),
124 strnrm(:,intp) = fresli(:,22) * sqrt(
H A Dgetdmc.f22 & strnrm(nshg), cdelsq(nshg),
150 strnrm = sqrt(
154 fwr = fwr1 * fres(:,22) * strnrm
H A Daveprep.f290 & strnrm(nshg), cdelsq(nshg),
/phasta/phSolver/incompressible/
H A DadvLES.f513 & strnrm(nshg), cdelsq(nshg),
692 strnrm = sqrt(
696 fwr = fwr1 * fres(:,22) * strnrm
959 & strnrm(nshg), cdelsq1(nfath),
1121 strnrm = sqrt(
1125 fwr = fwr1 * strnrm
2128 & strnrm(nshg), cdelsq1(nfath),
2217 strnrm = sqrt(
2221 xfac(:,1) = strnrm*strnrm*( fres(:,10)**2 + fres(:,11)**2 +
2225 xfac(:,2) = strnrm*( xlij(:,1)*fres(:,10) + xlij(:,2)*fres(:,11)
[all …]
H A Dfilters.f177 subroutine twohfilterB (y, x, strnrm, ien, fres, argument
188 & strnrm(npro,ngauss), dxidx(npro,nsd,nsd),
593 subroutine twohfilterBB (y, x, strnrm, ien, fres, argument
604 & strnrm(npro,ngauss), dxidx(npro,nsd,nsd),
1660 & strnrm(nshg), cdelsq(nshg),
1808 strnrm = sqrt(
1812 fwr = fwr1 * fres(:,22) * strnrm
1846 xfac(:,1) = strnrm*strnrm*( fres(:,10)**2 + fres(:,11)**2 +
1850 xfac(:,2) = strnrm*( xlij(:,1)*fres(:,10) + xlij(:,2)*fres(:,11)
1855 xfac(:,3) = strnrm*( fres(:,10)*fres(:,16) + fres(:,11)*fres(:,17)
[all …]