Searched refs:znrml (Results 1 – 3 of 3) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | eqn_plane.f | 99 znrml = (xB(1) - xA(1)) * (xC(2) - xA(2))
102 tmp = xnrml*xnrml + ynrml*ynrml + znrml*znrml
107 znrml = znrml/tmp
110 scal = xnrml*fourth(1) + ynrml*fourth(2) + znrml*fourth(3)
115 znrml = -1.0*znrml
123 aI = xnrml*xA(1)+ynrml*xA(2)+znrml*xA(3)
129 angle = atan2(znrml,sqrt(xnrml*xnrml+ynrml*ynrml))
155 & - ynrml*x(ien(i,k),2) - znrml*x(ien(i,k),3)
|
| H A D | spebc.f | 5 real*8 xnrml, ynrml, znrml, aR, aI variable
|
| H A D | genscale.f | 246 & + ynrml*sin(xcyl(nen1(i),2))))/znrml
254 & + ynrml*sin(xcyl(nen1(i),2))))/znrml
262 & + ynrml*sin(xcyl(nen1(i),2))))/znrml
|