propagator_summary Subroutine

private subroutine propagator_summary(r_min_, r_max_, number_of_steps_)

Print a simple message after the propagation is finished

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: r_min_

initial point on the \(R\) grid
real(kind=dp), intent(in) :: r_max_

final point on the \(R\) grid
integer(kind=int32), intent(in) :: number_of_steps_

number of steps on the \(R\) grid

Calls

proc~~propagator_summary~~CallsGraph proc~propagator_summary propagator_summary proc~float_to_character float_to_character proc~propagator_summary->proc~float_to_character proc~integer_to_character integer_to_character proc~propagator_summary->proc~integer_to_character proc~write_message write_message proc~propagator_summary->proc~write_message

Called by

proc~~propagator_summary~~CalledByGraph proc~propagator_summary propagator_summary proc~numerov numerov proc~numerov->proc~propagator_summary program~scattering SCATTERING program~scattering->proc~numerov

Contents

Source Code

propagator_summary

Source Code

      subroutine propagator_summary(r_min_, r_max_, number_of_steps_)
         !! Print a simple message after the propagation is finished
         !---------------------------------------------------------------------!
         real(dp), intent(in) :: r_min_
            !! initial point on the \\(R\\) grid
         real(dp), intent(in) :: r_max_
            !! final point on the \\(R\\) grid
         integer(int32), intent(in) :: number_of_steps_
            !! number of steps on the \\(R\\) grid
         !---------------------------------------------------------------------!
         call write_message("-- Coupled equations were solved from " //        &
            trim(adjustl(float_to_character(r_min_, "(F10.4)")))// " a.u. to " &
            // trim(adjustl(float_to_character(r_max_, "(F10.4)")))//          &
            " a.u. in "// trim(adjustl(integer_to_character(number_of_steps_)))&
            // " steps ")
         call write_message("   (constant r_step= " //                         &
            trim(adjustl(float_to_character((r_max - r_min) /                  &
            real(number_of_steps_ - 1, dp), "(E14.8)"))) // " a.u.)")
         !---------------------------------------------------------------------!
      end subroutine propagator_summary