Searched refs:cdelsq1 (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/incompressible/ |
| H A D | advLES.f | 942 & nsons, ifath, x, cdelsq1) argument
959 & strnrm(nshg), cdelsq1(nfath),
1236 cdelsq1(i) = xnuder(i,1)
1245 cdelsq1(i) = xnude(i,1)
1263 if (cdelsq1(i) .lt. zero) then
1264 cdelsq1(i) = zero
2110 & nsons, ifath, x, cdelsq1, fwr4, argument
2128 & strnrm(nshg), cdelsq1(nfath),
2351 xa(i,1) = two*cdelsq1(i)*xnuder(i,1) +
2353 xa(i,2) = four*cdelsq1(i)*xnuder(i,3) +
[all …]
|
| H A D | itrdrv.f | 870 real*8, allocatable, dimension(:) :: stabdis,cdelsq1 local
932 & ifath, x, cdelsq1)
935 & ifath, x, cdelsq1,
|