mirror of https://gitlab.com/QEF/q-e.git
small modification for consistency, again
git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@9357 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
parent
d8c7ae4302
commit
dfe7b47fb3
|
@ -445,9 +445,11 @@ CONTAINS
|
|||
!
|
||||
! ... minimum image convention
|
||||
!
|
||||
s(:) = MATMUL( r(:), bg(:,:) )
|
||||
s(:) = s(:) - ANINT(s(:))
|
||||
r(:) = MATMUL( at(:,:), s(:) )
|
||||
CALL cryst_to_cart( 1, r, bg, -1 )
|
||||
!
|
||||
r(:) = r(:) - ANINT( r(:) )
|
||||
!
|
||||
CALL cryst_to_cart( 1, r, at, 1 )
|
||||
!
|
||||
axis(ir) = r(icor)
|
||||
!
|
||||
|
|
Loading…
Reference in New Issue