square determinant coefficients (#242)

2018-06-25 02:34:06 -05:00 · 2018-06-25 02:34:06 -05:00 · f9e473d703
parent 8a562b6b06
commit f9e473d703
1 changed files with 1 additions and 1 deletions
--- a/src/Determinants/spindeterminants.irp.f
+++ b/src/Determinants/spindeterminants.irp.f
@ -649,7 +649,7 @@ subroutine create_wf_of_psi_bilinear_matrix(truncate)
        do k=1,N_states
          psi_coef_sorted_bit(idx,k) = psi_bilinear_matrix(i,j,k) 
          !$OMP ATOMIC
-          norm(k) += psi_bilinear_matrix(i,j,k)
+          norm(k) += psi_bilinear_matrix(i,j,k)*psi_bilinear_matrix(i,j,k)
        enddo
      endif
    enddo