diff --git a/src/prop.F90 b/src/prop.F90
index ae44767795d487ae91cada4c8a20a885623f098f..9877c2ea75199c3d99b378cb955ca0837d0f3dd9 100644
--- a/src/prop.F90
+++ b/src/prop.F90
@@ -264,7 +264,9 @@ Program proprietes
         write(f_output,*) 
         write(f_output,*) " >>> One particule density matrix"
         write(f_output,*) "     Not yet implemented"
+#ifdef VAR_DEV
         call  dens(ndet,nvec, psi,det, d,rspin, o_info, rho_tot,rho_spin)
+#endif
      end select
   end do