Searched refs:xnrml (Results 1 – 3 of 3) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | eqn_plane.f | 93 xnrml = (xB(2) - xA(2)) * (xC(3) - xA(3))
102 tmp = xnrml*xnrml + ynrml*ynrml + znrml*znrml
105 xnrml = xnrml/tmp
110 scal = xnrml*fourth(1) + ynrml*fourth(2) + znrml*fourth(3)
113 xnrml = -1.0*xnrml
123 aI = xnrml*xA(1)+ynrml*xA(2)+znrml*xA(3)
129 angle = atan2(znrml,sqrt(xnrml*xnrml+ynrml*ynrml))
154 erreur(k) = aR - xnrml*x(ien(i,k),1)
|
| H A D | spebc.f | 5 real*8 xnrml, ynrml, znrml, aR, aI variable
|
| H A D | genscale.f | 245 & * (xnrml*cos(xcyl(nen1(i),2))
253 & * (xnrml*cos(xcyl(nen1(i),2))
261 & * (xnrml*cos(xcyl(nen1(i),2))
|