mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-08-24 21:21:47 +02:00
changed n_states in psi_r_l_prov.irp.f
This commit is contained in:
parent
9818090948
commit
6d5d8701c8
@ -212,10 +212,9 @@ subroutine routine_save_right_bi_ortho
|
|||||||
implicit none
|
implicit none
|
||||||
double precision, allocatable :: coef_tmp(:,:)
|
double precision, allocatable :: coef_tmp(:,:)
|
||||||
integer :: i
|
integer :: i
|
||||||
N_states = 1
|
|
||||||
allocate(coef_tmp(N_det, N_states))
|
allocate(coef_tmp(N_det, N_states))
|
||||||
do i = 1, N_det
|
do i = 1, N_det
|
||||||
coef_tmp(i,1) = psi_r_coef_bi_ortho(i,1)
|
coef_tmp(i,1:N_states) = psi_r_coef_bi_ortho(i,1:N_states)
|
||||||
enddo
|
enddo
|
||||||
call save_wavefunction_general_unormalized(N_det,N_states,psi_det,size(coef_tmp,1),coef_tmp(1,1))
|
call save_wavefunction_general_unormalized(N_det,N_states,psi_det,size(coef_tmp,1),coef_tmp(1,1))
|
||||||
end
|
end
|
||||||
|
Loading…
Reference in New Issue
Block a user