mirror of
https://github.com/LCPQ/quantum_package
synced 2024-08-25 22:11:45 +02:00
delete plugin
This commit is contained in:
madgal
parent
894ac73dc5
commit
974dc7dbb1
@ -1,28 +0,0 @@
|
|||||||
[n_iter]
|
|
||||||
interface: ezfio
|
|
||||||
doc: Number of iterations needed
|
|
||||||
type: integer
|
|
||||||
|
|
||||||
[n_det]
|
|
||||||
interface: ezfio
|
|
||||||
doc: number of determinants at iteration
|
|
||||||
type: integer
|
|
||||||
size: (fci_iterations.n_iter)
|
|
||||||
|
|
||||||
[energy]
|
|
||||||
interface: ezfio
|
|
||||||
doc: The energy without a pt2 correction for n_det
|
|
||||||
type: double precision
|
|
||||||
size: (fci_iterations.n_iter)
|
|
||||||
|
|
||||||
[pt2]
|
|
||||||
interface: ezfio
|
|
||||||
doc: The pt2 correction for n_det
|
|
||||||
type: double precision
|
|
||||||
size: (fci_iterations.n_iter)
|
|
||||||
|
|
||||||
[energy_pt2]
|
|
||||||
interface: ezfio
|
|
||||||
doc: The energy with pt2 correction for n_det
|
|
||||||
type: double precision
|
|
||||||
size: (fci_iterations.n_iter)
|
|
||||||
@ -1 +0,0 @@
|
|||||||
Ezfio_files
|
|
||||||
@ -1,23 +0,0 @@
|
|||||||
==============
|
|
||||||
fci_iterations
|
|
||||||
==============
|
|
||||||
|
|
||||||
Needed Modules
|
|
||||||
==============
|
|
||||||
.. Do not edit this section It was auto-generated
|
|
||||||
.. by the `update_README.py` script.
|
|
||||||
|
|
||||||
|
|
||||||
.. image:: tree_dependency.png
|
|
||||||
|
|
||||||
* `Ezfio_files <http://github.com/LCPQ/quantum_package/tree/master/src/Ezfio_files>`_
|
|
||||||
|
|
||||||
Documentation
|
|
||||||
=============
|
|
||||||
.. Do not edit this section It was auto-generated
|
|
||||||
.. by the `update_README.py` script.
|
|
||||||
|
|
||||||
|
|
||||||
`fci_iterations <http://github.com/LCPQ/quantum_package/tree/master/plugins/fci_iterations/fci_iterations.irp.f#L1>`_
|
|
||||||
Output the number of determinants, energy, and pt2 correction at each iteration
|
|
||||||
|
|
||||||
@ -1,89 +0,0 @@
|
|||||||
subroutine fci_iterations(n_determinants,energy,pt2)
|
|
||||||
implicit none
|
|
||||||
BEGIN_DOC
|
|
||||||
! Output the number of determinants, energy, and pt2 correction at each iteration
|
|
||||||
END_DOC
|
|
||||||
integer :: n_determinants
|
|
||||||
double precision :: energy, pt2
|
|
||||||
integer :: N_iterations_before
|
|
||||||
integer :: N_iterations
|
|
||||||
logical :: hasIter
|
|
||||||
integer, allocatable :: n_determinants_list_before(:)
|
|
||||||
double precision, allocatable :: energy_list_before(:)
|
|
||||||
double precision, allocatable :: pt2_list_before(:)
|
|
||||||
double precision, allocatable :: energy_pt2_list_before(:)
|
|
||||||
integer, allocatable :: n_determinants_list(:)
|
|
||||||
double precision, allocatable :: energy_list(:)
|
|
||||||
double precision, allocatable :: pt2_list(:)
|
|
||||||
double precision, allocatable :: energy_pt2_list(:)
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
!call ezfio_has_hartree_fock_energy(has)
|
|
||||||
!call ezfio_get_hartree_fock_energy(hf_energy_ref)
|
|
||||||
!call ezfio_set_full_ci_zmq_energy(CI_energy(1))
|
|
||||||
|
|
||||||
! IF THE ITERATION IS PAST 1
|
|
||||||
! GET THE ITERATION NUMBER
|
|
||||||
! AND INCREMENT BY 1
|
|
||||||
call ezfio_has_fci_iterations_n_iter(hasIter)
|
|
||||||
if (hasIter) then
|
|
||||||
call ezfio_get_fci_iterations_n_iter(N_iterations_before)
|
|
||||||
! OTHERWISE SET IT AT 1
|
|
||||||
else
|
|
||||||
N_iterations_before = 0
|
|
||||||
endif
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
!! IF THERE HAS ALREADY BEEN AN ITERATION
|
|
||||||
!! GET THE ARRAYS
|
|
||||||
if (hasIter) then
|
|
||||||
allocate(n_determinants_list_before(N_iterations_before))
|
|
||||||
allocate(energy_list_before(N_iterations_before))
|
|
||||||
allocate(pt2_list_before(N_iterations_before))
|
|
||||||
allocate(energy_pt2_list_before(N_iterations_before))
|
|
||||||
|
|
||||||
call ezfio_get_fci_iterations_n_det(n_determinants_list_before)
|
|
||||||
call ezfio_get_fci_iterations_energy(energy_list_before)
|
|
||||||
call ezfio_get_fci_iterations_energy_pt2(energy_pt2_list_before)
|
|
||||||
call ezfio_get_fci_iterations_pt2(pt2_list_before)
|
|
||||||
endif
|
|
||||||
|
|
||||||
N_iterations = N_iterations_before +1
|
|
||||||
! RESET THE ITERATION NUMBER
|
|
||||||
call ezfio_set_fci_iterations_n_iter(N_iterations)
|
|
||||||
|
|
||||||
!!! NOW UPDATE ARRAY(N_iterations) = LATEST_UPDATE
|
|
||||||
allocate(n_determinants_list(N_iterations))
|
|
||||||
allocate(energy_list(N_iterations))
|
|
||||||
allocate(pt2_list(N_iterations))
|
|
||||||
allocate(energy_pt2_list(N_iterations))
|
|
||||||
|
|
||||||
if (hasIter) then
|
|
||||||
n_determinants_list(1:N_iterations_before) = n_determinants_list_before
|
|
||||||
energy_list(1:N_iterations_before) = energy_list_before
|
|
||||||
pt2_list(1:N_iterations_before) = pt2_list_before
|
|
||||||
energy_pt2_list(1:N_iterations_before) = energy_pt2_list_before
|
|
||||||
|
|
||||||
deallocate(n_determinants_list_before)
|
|
||||||
deallocate(energy_list_before)
|
|
||||||
deallocate(pt2_list_before)
|
|
||||||
deallocate(energy_pt2_list_before)
|
|
||||||
endif
|
|
||||||
n_determinants_list(N_iterations) = n_determinants
|
|
||||||
energy_list(N_iterations) = energy
|
|
||||||
pt2_list(N_iterations) = pt2
|
|
||||||
energy_pt2_list(N_iterations) = energy+pt2
|
|
||||||
|
|
||||||
!!!! NOW RESET THE EZFIO VALUES
|
|
||||||
call ezfio_set_fci_iterations_n_det(n_determinants_list)
|
|
||||||
call ezfio_set_fci_iterations_energy(energy_list)
|
|
||||||
call ezfio_set_fci_iterations_pt2(pt2_list)
|
|
||||||
call ezfio_set_fci_iterations_energy_pt2(energy_pt2_list)
|
|
||||||
|
|
||||||
deallocate(n_determinants_list)
|
|
||||||
deallocate(energy_list)
|
|
||||||
deallocate(pt2_list)
|
|
||||||
deallocate(energy_pt2_list)
|
|
||||||
end subroutine
|
|
||||||
Loading…
Reference in New Issue
Block a user