fix doubly defined f3temp

aoterodelaroza · Feb 6, 2024 · bafea7b · bafea7b
1 parent 2841f92
commit bafea7b
Showing 1 changed file with 0 additions and 1 deletion.
diff --git a/src/[email protected] b/src/[email protected]
@@ -2590,7 +2590,6 @@ subroutine calc_di3_wannier(res,nmo,nbnd,nlat,nattr,nspin,atom1,atom2)
     integer :: is, imo, jmo, kmo, ia, ja, ka, iba, ib, jb, kb, ibb
     integer :: ic, jc, kc, icc, nlattot
     real*8 :: fac
-    complex*16 :: f3temp
 
     real*8, allocatable :: f3temp(:,:,:,:,:)
     logical, allocatable :: useovrlp(:,:,:)