Searched defs:Diagonalize_Symm (Results 1 – 1 of 1) sorted by relevance
| /dports/science/mcstas-comps/mcstas-comps-2.5-src/libs/cif2hkl/ |
| H A D | cif2hkl.F90 | 3547 Subroutine Diagonalize_Symm(A,n,E_Val,E_vect) subroutine
3549 real(kind=cp), dimension(:,:), intent( in) :: A local
3550 integer, intent( in) :: n
3551 real(kind=cp), dimension(:), intent(out) :: E_val
3552 real(kind=cp), optional, dimension(:,:), intent(out) :: E_vect
3555 real(kind=cp), dimension(n,n) :: aux
3579 End Subroutine Diagonalize_Symm argument
|