10
0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-22 20:34:58 +01:00

Fix bug in casscf

This commit is contained in:
Anthony Scemama 2023-11-07 11:50:41 +01:00
parent c0e76b8f26
commit 7690a8d654

View File

@ -58,8 +58,10 @@ subroutine run
! if(n_states == 1)then ! if(n_states == 1)then
! call ezfio_get_casscf_cipsi_energy_pt2(E_PT2) ! call ezfio_get_casscf_cipsi_energy_pt2(E_PT2)
! call ezfio_get_casscf_cipsi_energy(PT2) ! call ezfio_get_casscf_cipsi_energy(PT2)
call write_double(6,E_PT2(1:N_states),'E + PT2 energy = ') do istate=1,N_states
call write_double(6,PT2(1:N_states),' PT2 = ') call write_double(6,E_PT2(istate),'E + PT2 energy = ')
call write_double(6,PT2(istate),' PT2 = ')
enddo
call write_double(6,pt2_max,' PT2_MAX = ') call write_double(6,pt2_max,' PT2_MAX = ')
! endif ! endif