From b4d6779d8c3a14e2aaf25a0d571e37fcc9010183 Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Mon, 13 Mar 2017 12:38:22 +0100 Subject: [PATCH] Super fast density matrix --- src/Determinants/spindeterminants.irp.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Determinants/spindeterminants.irp.f b/src/Determinants/spindeterminants.irp.f index b30f84cb..acc49d50 100644 --- a/src/Determinants/spindeterminants.irp.f +++ b/src/Determinants/spindeterminants.irp.f @@ -465,7 +465,7 @@ BEGIN_PROVIDER [ double precision, psi_bilinear_matrix_transp_values, (N_det,N_ call iset_order(psi_bilinear_matrix_transp_rows,iorder,N_det) call iset_order(psi_bilinear_matrix_transp_columns,iorder,N_det) do l=1,N_states - call dset_order(psi_bilinear_matrix_values(1,l),iorder,N_det) + call dset_order(psi_bilinear_matrix_transp_values(1,l),iorder,N_det) enddo deallocate(iorder,to_sort) END_PROVIDER