Searched defs:roteuler (Results 1 – 2 of 2) sorted by relevance
| /dports/science/elk/elk-7.2.42/src/ |
| H A D | roteuler.f90 | 9 subroutine roteuler(rot,ang) subroutine
62 write(*,'("Error(roteuler): matrix improper or not unitary")') argument
|
| /dports/science/tinker/tinker/source/ |
| H A D | orient.f | 260 subroutine roteuler (a,phi,theta,psi) subroutine
263 integer i
264 real*8 phi,theta,psi,eps
265 real*8 cphi,ctheta,cpsi
266 real*8 sphi,stheta,spsi
267 real*8 a(3,3),b(3)
268 logical flip(3)
|