scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

augmented precision

This commit is contained in:
Lorenzo Paulatto (naquite) 2019-04-10 16:47:13 +02:00
parent 6dc2d418cf
commit 545520e728
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
PW/tools/ibrav2cell.f90
View File

@ -35,9 +35,9 @@ PROGRAM ibrav2cell
! at=at/celldm(1)
! CALL recips(at(:,1), at(:,2), at(:,3), bg(:,1), bg(:,2), bg(:,3))
WRITE(*,'(a)') "Unit cell (bohr):"
WRITE(*,'(3f15.8)') at(:,1)
WRITE(*,'(3f15.8)') at(:,2)
WRITE(*,'(3f15.8)') at(:,3)
WRITE(*,'(3f25.15)') at(:,1)
WRITE(*,'(3f25.15)') at(:,2)
WRITE(*,'(3f25.15)') at(:,3)
at=at/celldm(1)
WRITE(*,'(a,f12.6,a)') "Unit cell in units of alat (=", celldm(1)," bohr):"
WRITE(*,'(3f15.8)') at(:,1)