mirror of https://gitlab.com/QEF/q-e.git
43 lines
1.4 KiB
Fortran
43 lines
1.4 KiB
Fortran
!
|
|
! Copyright (C) 2001 PWSCF group
|
|
! This file is distributed under the terms of the
|
|
! GNU General Public License. See the file `License'
|
|
! in the root directory of the present distribution,
|
|
! or http://www.gnu.org/copyleft/gpl.txt .
|
|
!-----------------------------------------------------------------------
|
|
subroutine tra_write_matrix (alpha, adyn, u, nat)
|
|
!-----------------------------------------------------------------------
|
|
USE io_global, ONLY : stdout
|
|
USE kinds, only : DP
|
|
USE cell_base, only : at, bg
|
|
USE symm_base, only : s, irt, invs
|
|
USE modes, only : rtau, irgq, nsymq, irotmq, minus_q
|
|
USE qpoint, only : xq
|
|
implicit none
|
|
!
|
|
! This routine writes on output the symmetrized dynamical matrix in
|
|
! cartesian coordinates. The input matrix adyn is in the basis of
|
|
! the modes.
|
|
! On output adyn is unchanged
|
|
!
|
|
integer :: i, j, na, nb, nat
|
|
complex(DP) :: adyn (3 * nat, 3 * nat), u (3 * nat, 3 * nat)
|
|
complex(DP) :: auxdyn (3*nat, 3*nat)
|
|
character (len=*) :: alpha
|
|
|
|
auxdyn=adyn
|
|
CALL symdyn_munu (auxdyn, u, xq, s, invs, rtau, irt, irgq, at, bg, &
|
|
nsymq, nat, irotmq, minus_q)
|
|
|
|
WRITE( stdout, '(a)') alpha
|
|
do na = 1, nat
|
|
do nb = 1, nat
|
|
WRITE( stdout, '(2i4)') na, nb
|
|
do i = 1, 3
|
|
WRITE( stdout, '(6f12.7)') (auxdyn(3*(na-1)+i, 3*(nb-1)+j),j=1,3)
|
|
enddo
|
|
enddo
|
|
enddo
|
|
return
|
|
end subroutine tra_write_matrix
|