mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-12-23 03:53:29 +01:00
explicit types
This commit is contained in:
parent
437846e4d2
commit
9ddd8f5e7d
@ -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