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