Bug Fix: WANNIER_CUBES not printing #3584 (M. Coates) (#3585)

This commit is contained in:
Juerg Hutter 2024-07-29 16:32:07 +02:00 committed by GitHub
parent 01bbc0c8bd
commit e4b6ebc72d
No known key found for this signature in database
GPG key ID: B5690EEEBB952194

View file

@ -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