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