1diff --git a/src/libxc_master.F03 b/src/libxc_master.F03 2index b6a9c5b..2769f2a 100644 3--- a/src/libxc_master.F03 4+++ b/src/libxc_master.F03 5@@ -131,8 +131,7 @@ module xc_f03_lib_m 6 xc_f03_mgga_fxc, & 7 xc_f03_mgga_x_tpss_set_params, & 8 xc_f03_mgga_c_tpss_set_params, & 9- xc_f03_mgga_c_bc95_set_params, & 10- xc_f03_mgga_c_pkzb_set_params 11+ xc_f03_mgga_c_bc95_set_params 12 13 14 integer(c_int), parameter, public :: & 15@@ -692,11 +691,6 @@ module xc_f03_lib_m 16 real(RTYPE), value :: css, copp 17 end subroutine xc_mgga_c_bc95_set_params 18 19- subroutine xc_mgga_c_pkzb_set_params(p, beta, d, c0_0, c0_1, c0_2, c0_3) bind(c) 20- import 21- type(c_ptr), value :: p 22- real(RTYPE), value :: beta, d, c0_0, c0_1, c0_2, c0_3 23- end subroutine xc_mgga_c_pkzb_set_params 24 end interface 25 26 27@@ -1326,15 +1320,6 @@ module xc_f03_lib_m 28 29 end subroutine xc_f03_mgga_c_bc95_set_params 30 31- subroutine xc_f03_mgga_c_pkzb_set_params(p, beta, d, c0_0, c0_1, c0_2, c0_3) 32- type(xc_f03_func_t), intent(inout) :: p 33- real(RTYPE), intent(in) :: beta, d, c0_0, c0_1, c0_2, c0_3 34- 35- call xc_mgga_c_pkzb_set_params(p%ptr, beta, d, c0_0, c0_1, c0_2, c0_3) 36- 37- end subroutine xc_f03_mgga_c_pkzb_set_params 38- 39- 40 ! Helper functions to convert between C and Fortran strings 41 ! Based on the routines by Joseph M. Krahn 42 function f_to_c_string(f_string) result(c_string) 43diff --git a/src/xc.h b/src/xc.h 44index cfdef48..6c9f3d4 100644 45--- a/src/xc.h 46+++ b/src/xc.h 47@@ -272,7 +272,6 @@ void xc_gga_c_pbe_set_params(xc_func_type *p, double beta); 48 49 void xc_mgga_x_tpss_set_params(xc_func_type *p, double b, double c, double e, double kappa, double mu, double BLOC_a, double BLOC_b); 50 void xc_mgga_c_tpss_set_params(xc_func_type *p, double beta, double d, double C0_0, double C0_1, double C0_2, double C0_3); 51-void xc_mgga_c_pkzb_set_params(xc_func_type *p, double beta, double d, double C0_0, double C0_1, double C0_2, double C0_3); 52 void xc_mgga_c_bc95_set_params(xc_func_type *p, double css, double copp); 53 54 55diff --git a/src/xc_f.c b/src/xc_f.c 56index 5f6adec..4609a6e 100644 57--- a/src/xc_f.c 58+++ b/src/xc_f.c 59@@ -508,10 +508,4 @@ void FC_FUNC(f90_mgga_c_bc95_set_par, F90_MGGA_C_BC95_SET_PAR) 60 xc_mgga_c_bc95_set_params((xc_func_type *)(*p), *css, *copp); 61 } 62 63-void FC_FUNC(f90_mgga_c_pkzb_set_par, F90_MGGA_C_PKZB_SET_PAR) 64- (void **p, double *beta, double *d, double *C0_0, double *C0_1, double *C0_2, double *C0_3) 65-{ 66- xc_mgga_c_pkzb_set_params((xc_func_type *)(*p), *beta, *d, *C0_0, *C0_1, *C0_2, *C0_3); 67-} 68- 69 #endif 70