mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-12-25 04:53:32 +01:00
Fixed initialization in get_phase.
This commit is contained in:
parent
67f59ba52a
commit
c1ef95cd60
@ -74,6 +74,10 @@ subroutine get_phase_qp_to_cfg(Ialpha, Ibeta, phaseout)
|
||||
integer :: nbetas
|
||||
integer :: count, k
|
||||
|
||||
! Initliaze deta and detb
|
||||
deta = Ialpha
|
||||
detb = Ibeta
|
||||
|
||||
! Find how many alpha electrons there are in all the N_ints
|
||||
integer :: Na(N_int)
|
||||
do k=1,N_int
|
||||
|
Loading…
Reference in New Issue
Block a user