LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-22 03:23:29 +01:00
Code Releases Activity

norm modif in print_tc_wf

Browse Source
This commit is contained in:
AbdAmmar 2023-05-02 21:47:29 +02:00
parent b9b902caf5
commit f4aec2957d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/tc_bi_ortho/print_tc_wf.irp.f
View File

@ -26,7 +26,8 @@ subroutine write_l_r_wf
integer :: i integer :: i
print*,'Writing the left-right wf' print*,'Writing the left-right wf'
do i = 1, N_det 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) write(i_unit_output,*)i, psi_l_coef_sorted_bi_ortho_left(i)/psi_l_coef_sorted_bi_ortho_left(1) &
, psi_r_coef_sorted_bi_ortho_right(i)/psi_r_coef_sorted_bi_ortho_right(1)
enddo enddo