mirror of https://gitlab.com/QEF/q-e.git
Change of format for tests.
git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@6280 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
parent
9131bee7b6
commit
6ee32d53b2
|
@ -34,7 +34,7 @@ subroutine tra_write_matrix (alpha, adyn, u, nat)
|
|||
do nb = 1, nat
|
||||
WRITE( stdout, '(2i4)') na, nb
|
||||
do i = 1, 3
|
||||
WRITE( stdout, '(6f10.5)') (auxdyn(3*(na-1)+i, 3*(nb-1)+j),j=1,3)
|
||||
WRITE( stdout, '(6f12.7)') (auxdyn(3*(na-1)+i, 3*(nb-1)+j),j=1,3)
|
||||
enddo
|
||||
enddo
|
||||
enddo
|
||||
|
|
Loading…
Reference in New Issue