LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-06-01 18:25:17 +02:00
Code Releases Activity

Fixed bug in det-csf provider

Browse Source
This commit is contained in:
Anthony Scemama 2021-12-03 15:30:31 +01:00
parent bd6ccc6b92
commit fc7c8313e3
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/csf/conversion.irp.f
View File

@ -4,7 +4,10 @@ BEGIN_PROVIDER [ double precision, psi_csf_coef, (N_csf, N_states) ]
! Wafe function in CSF basis
END_DOC
call convertWFfromDETtoCSF(N_states,psi_coef, psi_csf_coef)
double precision, allocatable :: buffer(:,:)
allocate ( buffer(N_det, N_states) )
buffer(1:N_det, 1:N_states) = psi_coef(1:N_det, 1:N_states)
call convertWFfromDETtoCSF(N_states, buffer, psi_csf_coef)
END_PROVIDER
subroutine convertWFfromDETtoCSF(N_st,psi_coef_det_in, psi_coef_cfg_out)