Searched defs:Diagonalize_Herm (Results 1 – 1 of 1) sorted by relevance
| /dports/science/mcstas-comps/mcstas-comps-2.5-src/libs/cif2hkl/ |
| H A D | cif2hkl.F90 | 3492 Subroutine Diagonalize_Herm(a,n,e_val,e_vect) subroutine
3494 complex, dimension(:,:), intent( in) :: A local
3495 integer, intent( in) :: n
3496 real(kind=cp), dimension(:), intent(out) :: E_val
3497 complex, optional, dimension(:,:), intent(out) :: E_vect
3500 real(kind=cp), dimension(2*n,2*n) :: aux
3501 real(kind=cp), dimension(2*n) :: e,d
3502 integer :: nn
|