mirror of
https://github.com/LCPQ/quantum_package
synced 2024-10-02 06:20:59 +02:00
N_states saved with natorb
This commit is contained in:
parent
14eb5b4a42
commit
e0bd14a122
@ -429,9 +429,10 @@ end
|
|||||||
subroutine save_ref_determinant
|
subroutine save_ref_determinant
|
||||||
implicit none
|
implicit none
|
||||||
use bitmasks
|
use bitmasks
|
||||||
double precision :: buffer(1,1)
|
double precision :: buffer(1,N_states)
|
||||||
|
buffer = 0.d0
|
||||||
buffer(1,1) = 1.d0
|
buffer(1,1) = 1.d0
|
||||||
call save_wavefunction_general(1,1,ref_bitmask,1,buffer)
|
call save_wavefunction_general(1,N_states,ref_bitmask,1,buffer)
|
||||||
end
|
end
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user