mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-08-29 20:23:40 +02:00
Fixed bug in det-csf provider
This commit is contained in:
parent
bd6ccc6b92
commit
fc7c8313e3
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user