LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2025-01-03 10:05:57 +01:00
Code Issues Releases Wiki Activity

Fixed psi_coef I/O bug

Browse Source
This commit is contained in:
Anthony Scemama 2017-12-08 11:49:58 +01:00
parent 2472e63bd5
commit f2da24ae4c
1 changed files with 16 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -177,6 +177,7 @@ BEGIN_PROVIDER [ double precision, psi_coef, (psi_det_size,N_states) ]
integer :: i,k, N_int2 integer :: i,k, N_int2
logical :: exists logical :: exists
double precision, allocatable :: psi_coef_read(:,:)
character*(64) :: label character*(64) :: label
PROVIDE read_wf N_det mo_label ezfio_filename PROVIDE read_wf N_det mo_label ezfio_filename
@ -195,12 +196,21 @@ BEGIN_PROVIDER [ double precision, psi_coef, (psi_det_size,N_states) ]
exists = (label == mo_label) exists = (label == mo_label)
endif endif
endif endif
if (exists) then
call ezfio_get_determinants_psi_coef(psi_coef)
endif endif
endif if (exists) then
allocate (psi_coef_read(N_det,N_states))
call ezfio_get_determinants_psi_coef(psi_coef_read)
do k=1,N_states
do i=1,N_det
psi_coef(i,k) = psi_coef_read(i,k)
enddo
enddo
deallocate(psi_coef_read)
print *, 'Read psi_coef' print *, 'Read psi_coef'
endif
endif endif
IRP_IF MPI IRP_IF MPI
include 'mpif.h' include 'mpif.h'