Commit b051cbd8 authored by Ben Hourahine's avatar Ben Hourahine Committed by Yingzhou Li

Fixed the some input parameters for rci_init to be optional, which is now...

Fixed the some input parameters for rci_init to be optional, which is now consistent with documentation.
parent e4868860
Pipeline #1696 passed with stage
in 4 minutes and 23 seconds
......@@ -22,20 +22,21 @@ contains
implicit none
type(rci_handle), intent(out) :: r_h !< Handle
integer(i4), intent(in) :: solver !< Refer to RCI_CONSTANTS
integer(i4), intent(in) :: n_basis !< Number of basis
integer(i4), intent(in) :: n_state !< Number of states
real(r8), intent(in) :: tol_iter !< Number of basis
integer(i4), intent(in) :: max_iter !< Number of states
integer(i4), intent(in) :: verbose !< output
r_h%solver = solver
integer(i4), intent(in), optional :: solver !< See RCI_CONSTANTS
real(r8), intent(in), optional :: tol_iter !< Number of basis
integer(i4), intent(in), optional :: max_iter !< Number of states
integer(i4), intent(in), optional :: verbose !< output
if(present(solver)) r_h%solver = solver
r_h%n_basis = n_basis
r_h%n_state = n_state
r_h%tol_iter = tol_iter
r_h%max_iter = max_iter
if(present(tol_iter)) r_h%tol_iter = tol_iter
if(present(max_iter)) r_h%max_iter = max_iter
r_h%total_energy = 0.0_r8
r_h%total_iter = 0
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment