Home
last modified time | relevance | path

Searched refs:cdelsq (Results 1 – 5 of 5) sorted by relevance

/phasta/phSolver/common/
H A Dgetdmc.f22 & strnrm(nshg), cdelsq(nshg),
297 cdelsq(:) = numNden(:,1) / (numNden(:,2) + 1.d-09)
319 cdelsq(:) = numNden(:,1) / (numNden(:,2) + 1.d-09)
363 tmp1 = MINVAL(cdelsq)
364 tmp2 = MAXVAL(cdelsq)
380 write(*,*)'xnut=',sum(cdelsq)/nshg
381 write(*,*) 'cdelsq=', cdelsq(1),cdelsq(2)
394 & mxmudmi(iblk)%p,cdelsq,shp(lcsyst,1:nshl,:))
H A Daveprep.f75 subroutine getnu (ien, strl, xmudmi, cdelsq, lfathe) argument
80 & xmudmi(npro,ngauss), cdelsq(nlist),
86 xmudmi(iel,intp) = cdelsq( lfathe(iel,intp) )*
290 & strnrm(nshg), cdelsq(nshg),
390 cdelsq(i) = pt5*xnumt(i)/xdent(i)
439 & mxmudmi(iblk)%p,cdelsq,ifathe(iel:inum,:))
H A Dbardmc.f60 & strnrm(nshg), cdelsq(nshg),
467 cdelsq(:) = numNden(:,1) / (numNden(:,2) + 1.d-09)
486 cdelsq(:) = numNden(:,1) / (numNden(:,2) + 1.d-09)
529 tmp1 = MINVAL(cdelsq)
530 tmp2 = MAXVAL(cdelsq)
547 write(*,*)'cdelsq=',cdelsq(1), cdelsq(2)
561 & mxmudmi(iblk)%p,cdelsq,shp(lcsyst,1:nshl,:))
587 xmij(:,3)=cdelsq(:)
/phasta/phSolver/incompressible/
H A DadvLES.f5 & cdelsq, shgl, shp, Qwtf, shglo, shpo, stress, diss, vol) argument
36 & Snorm2(npro), cdelsq(nshg),
219 & cdelsq(ien(:,n)) * Snorm2(:)*shp(n,intp)
513 & strnrm(nshg), cdelsq(nshg),
826 & mxmudmi(iblk)%p,cdelsq,shp(lcsyst,1:nshl,:))
852 xmij(:,3)=cdelsq(:)
1302 & cdelsq(nshg), vol(nshg),
1336 cdelsq(:) = dmodc(ifath(:))
1338 cdelsq(:) = numNden(:,1) / (numNden(:,2) + 1.d-09)
1348 dmodc(ifath(:)) = cdelsq(:)
[all …]
H A Dfilters.f1003 & cdelsq(nshg), vol(nshg),
1021 cdelsq(:) = numNden(:,1) / (numNden(:,2) + 1.d-09)
1088 & cdelsq, shglf(lcsyst,:,1:nshl,:),
1660 & strnrm(nshg), cdelsq(nshg),
2045 cdelsq(:) = numNden(:,1) / (numNden(:,2) + 1.d-09)
2112 cdelsq(:) = numNden(:,1) / (numNden(:,2) + 1.d-09)
2204 tmp1 = MINVAL(cdelsq)
2205 tmp2 = MAXVAL(cdelsq)
2221 write(*,*) 'cdelsq=', cdelsq(1),cdelsq(2)
2223 write(22,*) lstep, cdelsq(1)
[all …]