mirror of https://gitlab.com/QEF/q-e.git
*** empty log message ***
git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@621 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
parent
c1608fd91e
commit
659e8a81a5
|
@ -260,9 +260,9 @@ subroutine compute_casino
|
|||
write(io,'(i6,3f20.14)') int(zmesh(ityp(na))), (alat*tau(j,na),j=1,3)
|
||||
enddo
|
||||
write(io,'(a)') ' Primitive lattice vectors (au) '
|
||||
write(io,*) alat*at(1,1), alat*at(2,1), alat*at(3,1)
|
||||
write(io,*) alat*at(1,2), alat*at(2,2), alat*at(3,2)
|
||||
write(io,*) alat*at(1,3), alat*at(2,3), alat*at(3,3)
|
||||
write(io,100) alat*at(1,1), alat*at(2,1), alat*at(3,1)
|
||||
write(io,100) alat*at(1,2), alat*at(2,2), alat*at(3,2)
|
||||
write(io,100) alat*at(1,3), alat*at(2,3), alat*at(3,3)
|
||||
write(io,'(a)') ' '
|
||||
write(io,'(a)') ' G VECTORS'
|
||||
write(io,'(a)') ' ---------'
|
||||
|
|
Loading…
Reference in New Issue