Searched defs:Tred2 (Results 1 – 2 of 2) sorted by relevance
| /dports/science/liggghts/LIGGGHTS-PUBLIC-3.8.0-26-g6e873439/lib/hotint/HotInt_V1/UtilityLib/ |
| H A D | linalgeig.cpp | 41 void Eigenvalue::Tred2() in Tred2() function in Eigenvalue
|
| /dports/science/mcstas-comps/mcstas-comps-2.5-src/libs/cif2hkl/ |
| H A D | cif2hkl.F90 | 5980 Subroutine Tred2(a,n,d,e) subroutine
5982 real(kind=cp), dimension(:,:), intent(in out) :: a ! a(np,np)
5983 integer, intent(in) :: n
5984 real(kind=cp), dimension(:), intent(in out) :: d, e ! d(np),e(np)
5987 integer :: i, j, k, l local
5988 real(kind=cp) :: f, g, h, hh, scala
|