9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-05 03:03:29 +01:00
qp2/src/tools/save_natorb.irp.f

26 lines
884 B
Fortran
Raw Normal View History

2019-01-25 11:39:31 +01:00
program save_natorb
implicit none
BEGIN_DOC
2019-01-29 23:10:00 +01:00
! Save natural |MOs| into the |EZFIO|.
2019-01-25 11:39:31 +01:00
!
2019-01-29 23:10:00 +01:00
! This program reads the wave function stored in the |EZFIO| directory,
! extracts the corresponding natural orbitals and setd them as the new
! |MOs|.
2019-01-25 11:39:31 +01:00
!
2019-01-29 23:10:00 +01:00
! If this is a multi-state calculation, the density matrix that produces
! the natural orbitals is obtained from an average of the density
! matrices of each state with the corresponding
! :option:`determinants state_average_weight`
2019-01-25 11:39:31 +01:00
END_DOC
read_wf = .True.
touch read_wf
call save_natural_mos
call save_ref_determinant
call ezfio_set_mo_two_e_ints_io_mo_two_e_integrals('None')
call ezfio_set_mo_one_e_ints_io_mo_one_e_integrals('None')
call ezfio_set_mo_one_e_ints_io_mo_integrals_kinetic('None')
call ezfio_set_mo_one_e_ints_io_mo_integrals_e_n('None')
call ezfio_set_mo_one_e_ints_io_mo_integrals_pseudo('None')
end