From 4d6ce9ca263d6b7122a6eada056dc6ce5b7982d3 Mon Sep 17 00:00:00 2001
From: edoapra <edoardo.apra@gmail.com>
Date: Fri, 16 Dec 2022 10:49:22 -0800
Subject: [PATCH] fix for stubbing

---
 src/nwdft/libxc/nwchem_libxc_compute.F | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/nwdft/libxc/nwchem_libxc_compute.F b/src/nwdft/libxc/nwchem_libxc_compute.F
index 0db19ba582..c4efa93dde 100644
--- a/src/nwdft/libxc/nwchem_libxc_compute.F
+++ b/src/nwdft/libxc/nwchem_libxc_compute.F
@@ -57,6 +57,7 @@
       double precision :: Amat3(nq,NCOL_AMAT3)
       double precision :: Cmat3(nq,NCOL_CMAT3)
 
+#ifdef USE_LIBXC
       double precision :: fac 
 
       double precision, external :: ddot
@@ -67,10 +68,9 @@
       integer*4 nqs
 #elif LIBXC_NP_SIZE == 8
       integer(c_size_t) :: nqs
-#elif
+#else
 #error "unexpected value for LIBXC_NP_SIZE"
 #endif
-#ifdef USE_LIBXC      
       type(xc_f03_func_t) :: xcfunc      
 
       gga = .false.