Searched refs:bcinterp (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ ! |
| H A D | proces.f | 45 real*8 bcinterp(100,ndof+1),interp_mask(ndof) local
115 read(654,*) (bcinterp(i,j),j=1,ndof+1) ! distance to wall+
124 if(bcinterp(j,1).gt.d2wall(i)) then !bound found
125 xi=(d2wall(i)-bcinterp(j-1,1))/
126 & (bcinterp(j,1)-bcinterp(j-1,1))
136 y(i,1:3)=(xi*bcinterp(iupper,4:6)
137 & +(one-xi)*bcinterp(iupper-1,4:6))
138 y(i,4)=(xi*bcinterp(iupper,2)
139 & +(one-xi)*bcinterp(iupper-1,2))
140 y(i,5)=(xi*bcinterp(iupper,3)
[all …]
|