Small revision

wannier-developers · Jan 18, 2025 · 52dfaf3 · 52dfaf3
1 parent e988047
commit 52dfaf3
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/src/postw90/get_oper.F90 b/src/postw90/get_oper.F90
@@ -478,7 +478,7 @@ subroutine get_AA_R(pw90_berry, dis_manifold, kmesh_info, kpt_latt, print_output
       allocate (AA_q_b(num_wann, num_wann, num_kpts, kmesh_info%nntot, 3))
       AA_R = cmplx_0
     else
-      allocate (AA_q_b(1, 1, 1, 1, 1))
+      allocate (AA_q_b(1, 1, 1, kmesh_info%nntot, 3))
     endif
     !
     if (on_root) then
@@ -849,7 +849,7 @@ subroutine get_BB_R(pw90_berry, dis_manifold, kmesh_info, kpt_latt, print_output
       allocate (BB_q_b(num_wann, num_wann, num_kpts, kmesh_info%nntot, 3))
       BB_R = cmplx_0
     else
-      allocate (BB_q_b(1, 1, 1, 1, 1))
+      allocate (BB_q_b(1, 1, 1, kmesh_info%nntot, 3))
     endif
 
     if (on_root) then
@@ -1154,7 +1154,7 @@ subroutine get_CC_R(pw90_berry, dis_manifold, kmesh_info, kpt_latt, print_output
       allocate (CC_q_b(num_wann, num_wann, num_kpts, kmesh_info%nntot, kmesh_info%nntot, 3, 3))
       CC_R = cmplx_0
     else
-      allocate (CC_q_b(1, 1, 1, 1, 1, 1, 1))
+      allocate (CC_q_b(1, 1, 1, kmesh_info%nntot, kmesh_info%nntot, 3, 3))
     endif
 
     if (on_root) then
@@ -2570,7 +2570,7 @@ subroutine get_SBB_R(pw90_berry, dis_manifold, kmesh_info, kpt_latt, print_outpu
       allocate (SBB_q_b(num_wann, num_wann, num_kpts, kmesh_info%nntot, 3, 3))
       SBB_R = cmplx_0
     else
-      allocate (SBB_q_b(1, 1, 1, 1, 1, 1))
+      allocate (SBB_q_b(1, 1, 1, kmesh_info%nntot, 3, 3))
     endif
 
     if (on_root) then
@@ -2868,7 +2868,7 @@ subroutine get_SAA_R(pw90_berry, dis_manifold, kmesh_info, kpt_latt, print_outpu
       allocate (SAA_q_b(num_wann, num_wann, num_kpts, kmesh_info%nntot, 3, 3))
       SAA_R = cmplx_0
     else
-      allocate (SAA_q_b(1, 1, 1, 1, 1, 1))
+      allocate (SAA_q_b(1, 1, 1, kmesh_info%nntot, 3, 3))
     endif
 
     if (on_root) then