From 9ddd8f5e7d42813999125eaa72cb22e5d3cd86a5 Mon Sep 17 00:00:00 2001 From: Kevin Gasperich Date: Thu, 26 Mar 2020 15:36:15 -0500 Subject: [PATCH] explicit types --- src/determinants/spindeterminants.irp.f | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/determinants/spindeterminants.irp.f b/src/determinants/spindeterminants.irp.f index 028122ec..62db470b 100644 --- a/src/determinants/spindeterminants.irp.f +++ b/src/determinants/spindeterminants.irp.f @@ -416,6 +416,7 @@ END_PROVIDER BEGIN_PROVIDER [ double precision, psi_bilinear_matrix_values, (N_det,N_states) ] use bitmasks PROVIDE psi_bilinear_matrix_rows + integer :: k,l do k=1,N_det do l=1,N_states 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) ] use bitmasks PROVIDE psi_bilinear_matrix_rows + integer :: k,l do k=1,N_det do l=1,N_states psi_bilinear_matrix_values_complex(k,l) = psi_coef_complex(k,l)