src/dft_utils_one_e/ec_scan.irp.f

@@ -95,6 +95,6 @@ end
 double precision function beta_rs(rs)
  implicit none
  double precision, intent(in) ::rs
- beta_rs = 0.066725d0 * (1.d0 + 0.1d0 * rs)/(1.d0 + 0.1778d0 * rs)
+ beta_rs(rs) = 0.066725d0 * (1.d0 + 0.1d0 * rs)/(1.d0 + 0.1778d0 * rs)
 
 end

src/tools/print_ci_vectors.irp.f

@@ -24,7 +24,6 @@ subroutine routine
  implicit none
  integer :: i,k
  integer :: degree
- call print_energy_components
  do i = 1, N_det
   print *, 'Determinant ', i
   call debug_det(psi_det(1,1,i),N_int)