mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-09-12 02:38:31 +02:00
print correctly after diag
This commit is contained in:
parent
b1df3d6d03
commit
948f839952
@ -82,26 +82,6 @@ subroutine routine_diag()
|
|||||||
|
|
||||||
endif
|
endif
|
||||||
|
|
||||||
double precision, allocatable :: buffer(:,:)
|
|
||||||
allocate(buffer(N_det,N_states))
|
|
||||||
do k = 1, N_states
|
|
||||||
do i = 1, N_det
|
|
||||||
psi_l_coef_bi_ortho(i,k) = leigvec_tc_bi_orth(i,k)
|
|
||||||
buffer(i,k) = leigvec_tc_bi_orth(i,k)
|
|
||||||
enddo
|
|
||||||
enddo
|
|
||||||
TOUCH psi_l_coef_bi_ortho
|
|
||||||
call ezfio_set_tc_bi_ortho_psi_l_coef_bi_ortho(buffer)
|
|
||||||
do k = 1, N_states
|
|
||||||
do i = 1, N_det
|
|
||||||
psi_r_coef_bi_ortho(i,k) = reigvec_tc_bi_orth(i,k)
|
|
||||||
buffer(i,k) = reigvec_tc_bi_orth(i,k)
|
|
||||||
enddo
|
|
||||||
enddo
|
|
||||||
TOUCH psi_r_coef_bi_ortho
|
|
||||||
call ezfio_set_tc_bi_ortho_psi_r_coef_bi_ortho(buffer)
|
|
||||||
deallocate(buffer)
|
|
||||||
|
|
||||||
end
|
end
|
||||||
|
|
||||||
|
|
||||||
|
@ -300,6 +300,26 @@ end
|
|||||||
print*,' <S2> = ', s2_eigvec_tc_bi_orth(i)
|
print*,' <S2> = ', s2_eigvec_tc_bi_orth(i)
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
|
double precision, allocatable :: buffer(:,:)
|
||||||
|
allocate(buffer(N_det,N_states))
|
||||||
|
do k = 1, N_states
|
||||||
|
do i = 1, N_det
|
||||||
|
psi_l_coef_bi_ortho(i,k) = leigvec_tc_bi_orth(i,k)
|
||||||
|
buffer(i,k) = leigvec_tc_bi_orth(i,k)
|
||||||
|
enddo
|
||||||
|
enddo
|
||||||
|
TOUCH psi_l_coef_bi_ortho
|
||||||
|
call ezfio_set_tc_bi_ortho_psi_l_coef_bi_ortho(buffer)
|
||||||
|
do k = 1, N_states
|
||||||
|
do i = 1, N_det
|
||||||
|
psi_r_coef_bi_ortho(i,k) = reigvec_tc_bi_orth(i,k)
|
||||||
|
buffer(i,k) = reigvec_tc_bi_orth(i,k)
|
||||||
|
enddo
|
||||||
|
enddo
|
||||||
|
TOUCH psi_r_coef_bi_ortho
|
||||||
|
call ezfio_set_tc_bi_ortho_psi_r_coef_bi_ortho(buffer)
|
||||||
|
deallocate(buffer)
|
||||||
|
|
||||||
END_PROVIDER
|
END_PROVIDER
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user