diff --git a/diagonalization/chase_diag.F90 b/diagonalization/chase_diag.F90
index 0dc56f5322b653aa5fd94f29d152f6d34340aead..fd43988d359cf50c38b1372221b34abea83bd10e 100644
--- a/diagonalization/chase_diag.F90
+++ b/diagonalization/chase_diag.F90
@@ -71,12 +71,12 @@ IMPLICIT NONE
   PRIVATE 
 
   INTEGER         :: chase_eig_id
-  PUBLIC init_chase, chase_diag
+  PUBLIC init_chase
 #endif
   REAL            :: scale_distance
   REAL            :: tol
   
-  PUBLIC chase_distance
+  PUBLIC chase_distance,chase_diag
 
 CONTAINS