diff --git a/src/ccca/ccca_utils.F b/src/ccca/ccca_utils.F index e1aa62ea43..205e008993 100644 --- a/src/ccca/ccca_utils.F +++ b/src/ccca/ccca_utils.F @@ -146,6 +146,10 @@ c endif call bas_tag_lib(basis, osegment, atom_lab(idx), atom_lab(idx), $ mybas, filename, orel) +c load bq to keep DFT quiet + call bas_tag_lib(basis, osegment, + B 'bq'//atom_lab(idx), atom_lab(idx), + $ mybas, filename, orel) 30 continue c if (.not. bas_set_spherical(basis, ospherical)) call