From 6673fc40ebf623268b832614319903e54fa47713 Mon Sep 17 00:00:00 2001 From: Emmanuel Giner LCT Date: Tue, 7 May 2019 12:14:39 +0200 Subject: [PATCH] modified print_ci_vectors --- src/tools/print_ci_vectors.irp.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/tools/print_ci_vectors.irp.f b/src/tools/print_ci_vectors.irp.f index 8f8550d7..9ba06d9a 100644 --- a/src/tools/print_ci_vectors.irp.f +++ b/src/tools/print_ci_vectors.irp.f @@ -27,7 +27,7 @@ subroutine routine do i = 1, N_det print *, 'Determinant ', i call debug_det(psi_det(1,1,i),N_int) - print '(4E20.12,X)', dabs(psi_coef(i,k), k=1,N_states) + print '(4E20.12,X)', (psi_coef(i,k), k=1,N_states) print *, '' print *, '' enddo