10
0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-23 04:43:45 +01:00

missing type

This commit is contained in:
Kevin Gasperich 2020-08-07 19:18:33 -05:00
parent 9f1f8c1c93
commit 7e16ca0f78

View File

@ -42,7 +42,7 @@ end
subroutine run_complex subroutine run_complex
implicit none implicit none
integer :: i integer :: i,j
complex*16 :: i_h_psi_array(n_states) complex*16 :: i_h_psi_array(n_states)
double precision :: e(n_states) double precision :: e(n_states)
double precision :: norm(n_states) double precision :: norm(n_states)