From 7d05268ec85cf4ca3e077323d29751e14c495f13 Mon Sep 17 00:00:00 2001 From: eginer Date: Sat, 22 Oct 2022 20:47:55 +0200 Subject: [PATCH] it woooorks --- src/tc_bi_ortho/print_tc_wf.irp.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/tc_bi_ortho/print_tc_wf.irp.f b/src/tc_bi_ortho/print_tc_wf.irp.f index 58a733a7..e6ea5965 100644 --- a/src/tc_bi_ortho/print_tc_wf.irp.f +++ b/src/tc_bi_ortho/print_tc_wf.irp.f @@ -24,7 +24,7 @@ subroutine write_l_r_wf output=trim(ezfio_filename)//'.tc_wf' i_unit_output = getUnitAndOpen(output,'w') integer :: i - print*,'Writing the left-right wf' + print*,'Writing the left-right wf, and usual psi' do i = 1, N_det write(i_unit_output,*)i,psi_l_coef_sorted_bi_ortho_left(i),psi_r_coef_sorted_bi_ortho_right(i) enddo