From e4b6ebc72d7d1667f025f0b799e00e42ef481089 Mon Sep 17 00:00:00 2001 From: Juerg Hutter Date: Mon, 29 Jul 2024 16:32:07 +0200 Subject: [PATCH] Bug Fix: WANNIER_CUBES not printing #3584 (M. Coates) (#3585) --- src/qs_loc_main.F | 1 + 1 file changed, 1 insertion(+) diff --git a/src/qs_loc_main.F b/src/qs_loc_main.F index c9519e30be..77281a1def 100644 --- a/src/qs_loc_main.F +++ b/src/qs_loc_main.F @@ -540,6 +540,7 @@ CONTAINS END IF ncubes = SIZE(list_cubes) + CALL cp_fm_get_info(moloc_coeff(ispin), ncol_global=nmo) ncubes = MIN(ncubes, nmo) ALLOCATE (centers(6, ncubes)) DO i = 1, ncubes