small modification for consistency, again

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@9357 c92efa57-630b-4861-b058-cf58834340f0
2012-08-21 18:27:47 +00:00 · 2012-08-21 18:27:47 +00:00 · dfe7b47fb3
parent d8c7ae4302
commit dfe7b47fb3
1 changed files with 5 additions and 3 deletions
--- a/Modules/generate_function.f90
+++ b/Modules/generate_function.f90
@ -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)
     !