LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-11-03 20:54:00 +01:00
Code Issues Releases Wiki Activity

N_states saved with natorb

Browse Source
This commit is contained in:
Anthony Scemama 2017-11-20 15:48:36 +01:00
parent 14eb5b4a42
commit e0bd14a122
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Determinants/determinants.irp.f
View File

@ -429,9 +429,10 @@ end
subroutine save_ref_determinant
implicit none
use bitmasks
double precision :: buffer(1,1)
double precision :: buffer(1,N_states)
buffer = 0.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