mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-09-12 02:38:31 +02:00
Merge branch 'features_kpts' of github:QuantumPackage/qp2 into features_kpts
This commit is contained in:
commit
f17b36c3e4
@ -416,6 +416,7 @@ END_PROVIDER
|
|||||||
BEGIN_PROVIDER [ double precision, psi_bilinear_matrix_values, (N_det,N_states) ]
|
BEGIN_PROVIDER [ double precision, psi_bilinear_matrix_values, (N_det,N_states) ]
|
||||||
use bitmasks
|
use bitmasks
|
||||||
PROVIDE psi_bilinear_matrix_rows
|
PROVIDE psi_bilinear_matrix_rows
|
||||||
|
integer :: k,l
|
||||||
do k=1,N_det
|
do k=1,N_det
|
||||||
do l=1,N_states
|
do l=1,N_states
|
||||||
psi_bilinear_matrix_values(k,l) = psi_coef(k,l)
|
psi_bilinear_matrix_values(k,l) = psi_coef(k,l)
|
||||||
@ -429,6 +430,7 @@ END_PROVIDER
|
|||||||
BEGIN_PROVIDER [ complex*16, psi_bilinear_matrix_values_complex, (N_det,N_states) ]
|
BEGIN_PROVIDER [ complex*16, psi_bilinear_matrix_values_complex, (N_det,N_states) ]
|
||||||
use bitmasks
|
use bitmasks
|
||||||
PROVIDE psi_bilinear_matrix_rows
|
PROVIDE psi_bilinear_matrix_rows
|
||||||
|
integer :: k,l
|
||||||
do k=1,N_det
|
do k=1,N_det
|
||||||
do l=1,N_states
|
do l=1,N_states
|
||||||
psi_bilinear_matrix_values_complex(k,l) = psi_coef_complex(k,l)
|
psi_bilinear_matrix_values_complex(k,l) = psi_coef_complex(k,l)
|
||||||
|
Loading…
Reference in New Issue
Block a user