LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-11-18 11:23:38 +01:00
Code Releases Activity

explicit types

Browse Source
This commit is contained in:
Kevin Gasperich 2020-03-26 15:36:15 -05:00
parent 437846e4d2
commit 9ddd8f5e7d
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/determinants/spindeterminants.irp.f
View File

@ -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)