mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-08-15 00:38:34 +02:00
minor changes
This commit is contained in:
parent
0ba82990ff
commit
7db223f6f3
@ -106,7 +106,7 @@ END_PROVIDER
|
|||||||
complex*16, allocatable :: tmp_a(:,:,:), tmp_b(:,:,:)
|
complex*16, allocatable :: tmp_a(:,:,:), tmp_b(:,:,:)
|
||||||
integer :: krow, kcol, lrow, lcol
|
integer :: krow, kcol, lrow, lcol
|
||||||
|
|
||||||
PROVIDE psi_det
|
PROVIDE psi_det psi_coef_complex
|
||||||
|
|
||||||
one_e_dm_mo_alpha_complex = (0.d0,0.d0)
|
one_e_dm_mo_alpha_complex = (0.d0,0.d0)
|
||||||
one_e_dm_mo_beta_complex = (0.d0,0.d0)
|
one_e_dm_mo_beta_complex = (0.d0,0.d0)
|
||||||
|
@ -15,9 +15,9 @@ BEGIN_PROVIDER [ complex*16, psi_coef_complex, (psi_det_size,N_states) ]
|
|||||||
character*(64) :: label
|
character*(64) :: label
|
||||||
|
|
||||||
PROVIDE read_wf N_det mo_label ezfio_filename
|
PROVIDE read_wf N_det mo_label ezfio_filename
|
||||||
psi_coef = (0.d0,0.d0)
|
psi_coef_complex = (0.d0,0.d0)
|
||||||
do i=1,min(N_states,psi_det_size)
|
do i=1,min(N_states,psi_det_size)
|
||||||
psi_coef(i,i) = (1.d0,0.d0)
|
psi_coef_complex(i,i) = (1.d0,0.d0)
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
if (mpi_master) then
|
if (mpi_master) then
|
||||||
|
Loading…
Reference in New Issue
Block a user