Lines Matching refs:x
1 subroutine settauw (y, x, BC, argument
16 dimension y(nshg,ndofl), x(numnp,nsd),
46 & (x(otwn(nodw),1)-x(nodw,1))*wnrm(nodw,1)
47 & +(x(otwn(nodw),2)-x(nodw,2))*wnrm(nodw,2)
48 & +(x(otwn(nodw),3)-x(nodw,3))*wnrm(nodw,3)
54 ut=utau(ub,dw,rm,nodw,x(nodw,:)) ! find utau
108 BC(nodw,7)=savarw(up,rm,saCv1,nodw,x(nodw,:))
185 function utau(u,y,rm,nodw,x)
191 real*8 x(3) local
212 write(*,*)'utau failed to converge at ',nodw,x(1),x(2),x(3)
252 function savarw(up,rm,cv1,nodw,x)
258 real*8 x(3) local
279 write(*,*)'savarw failed to converge at ',nodw,x(1),x(2),x(3)