fix for stubbing

This commit is contained in:
edoapra 2022-12-16 10:49:22 -08:00
parent 46e603d402
commit 4d6ce9ca26
No known key found for this signature in database
GPG key ID: 472C4EBB4F3AEDFA

View file

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