LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-11-18 11:23:38 +01:00
Code Releases Activity

save left_part for qmcchem correctly

Browse Source
This commit is contained in:
AbdAmmar 2023-03-16 09:01:34 +01:00
parent e2162d282d
commit 002371f29c
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/tc_bi_ortho/psi_left_qmc.irp.f
View File

@ -17,6 +17,8 @@ BEGIN_PROVIDER [ double precision, psi_bitcleft_bilinear_matrix_values, (N_det,
implicit none implicit none
integer :: k, l integer :: k, l
!print *, ' providing psi_bitcleft_bilinear_matrix_values'
if(N_det .eq. 1) then if(N_det .eq. 1) then
do l = 1, N_states do l = 1, N_states
@ -38,6 +40,8 @@ BEGIN_PROVIDER [ double precision, psi_bitcleft_bilinear_matrix_values, (N_det,
endif endif
!print *, ' psi_bitcleft_bilinear_matrix_values OK'
END_PROVIDER END_PROVIDER
! --- ! ---