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.

src/elsi_rci_setup.f90

@@ -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