scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix: change dimentsion of libxc_flag array from max_flag to max_flag+1

This commit is contained in:
Pietro Delugas 2025-07-02 09:35:38 +02:00
parent b73e3e2229
commit d0ec2374c3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
XClib/dft_setting_routines.f90
View File

@ -512,7 +512,7 @@ CONTAINS
#if defined(__LIBXC)
TYPE(xc_f03_func_t) :: xc_func
TYPE(xc_f03_func_info_t) :: xc_info
INTEGER :: fkind, iid, family, id_vec(6), iflag, flags_tot, libxc_flag(max_flags)
INTEGER :: fkind, iid, family, id_vec(6), iflag, flags_tot, libxc_flag(max_flags+1)
REAL(DP) :: omega, alpha, beta
#endif
LOGICAL :: is_libxc13, is_libxc12