Searched refs:ynrml (Results 1 – 3 of 3) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | eqn_plane.f | 96 ynrml = (xB(3) - xA(3)) * (xC(1) - xA(1))
102 tmp = xnrml*xnrml + ynrml*ynrml + znrml*znrml
106 ynrml = ynrml/tmp
110 scal = xnrml*fourth(1) + ynrml*fourth(2) + znrml*fourth(3)
114 ynrml = -1.0*ynrml
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
|