N_states saved with natorb

2017-11-20 15:48:36 +01:00 · 2017-11-20 15:48:36 +01:00 · e0bd14a122
parent 14eb5b4a42
commit e0bd14a122
1 changed files with 3 additions and 2 deletions
--- a/src/Determinants/determinants.irp.f
+++ b/src/Determinants/determinants.irp.f
@ -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