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

Misspell 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@2547 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2005-12-02 16:16:51 +00:00
parent 468e89c35a
commit baa3c6cf2a
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
flib/latgen.f90
View File

@ -38,7 +38,6 @@ subroutine latgen(ibrav,celldm,a1,a2,a3,omega)
integer :: i,j,k,l,iperm,ir
real(DP) :: term, cbya, s, term1, term2, singam, sen
!
!
! user-supplied lattice vectors
!
if (ibrav == 0) then
@ -71,7 +70,7 @@ subroutine latgen(ibrav,celldm,a1,a2,a3,omega)
!
if (celldm (1) <= 0.d0) call errore ('latgen', 'wrong celldm(1)', ibrav)
!
! barvais-lattice supplied lattice
! index of bravais lattice supplied
!
if (ibrav == 1) then
!