Commit ddbf5424 authored by Yingzhou Li's avatar Yingzhou Li

Added verbose

parent 21f760aa
......@@ -576,6 +576,8 @@ contains
icg = icg + 1
e_diff = 2.0_r8*abs((e_min - e_min_old)/(e_min + e_min_old))
resvec(1) = e_min
if (r_h%verbose > 0) write(*,'(a,i5,a,es15.7e3)') &
'Iter ', icg, ', Rel Err: ' e_diff
if (e_diff <= tol_iter) then
conv = .true.
ijob = SID_FINISH
......
......@@ -49,6 +49,7 @@ module ELSI_RCI_DATATYPE
integer(i4) :: max_iter
integer(i4) :: n_res ! size of resvec
real(r8) :: tol_iter
integer(i4) :: verbose ! output verbose
! Result
integer(i4) :: total_iter
......
......@@ -16,7 +16,8 @@ module ELSI_RCI_SETUP
contains
subroutine rci_init(r_h, solver, n_basis, n_state, tol_iter, max_iter)
subroutine rci_init(r_h, solver, n_basis, n_state, tol_iter, &
max_iter, verbose)
implicit none
......@@ -26,6 +27,7 @@ contains
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
......@@ -38,6 +40,8 @@ contains
r_h%total_energy = 0.0_r8
r_h%total_iter = 0
r_h%verbose = verbose
! PPCG default
r_h%ppcg_tol_lock = tol_iter
r_h%ppcg_sbsize = min(8,n_state)
......
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