Lines Matching refs:bcinterp
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)
141 & +(one-xi)*bcinterp(iupper-1,3))
146 BC(i,j)=(xi*bcinterp(iupper,j+1)
147 & +(one-xi)*bcinterp(iupper-1,j+1))