From 56b4b228f5adb8e0e2bedaa4062c5e6afcf7cb76 Mon Sep 17 00:00:00 2001
From: edoapra <edoardo.apra@gmail.com>
Date: Thu, 5 May 2022 17:31:48 -0700
Subject: [PATCH] fix for bsse basis on bqs
 https://github.com/nwchemgit/nwchem/issues/611

---
 src/ccca/ccca_utils.F | 4 ++++
 1 file changed, 4 insertions(+)

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