time_count_summary Subroutine

public subroutine time_count_summary(start_, stop_, time_, message_)

print the message about the time it took to complete a single task

Arguments

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

initial time
real(kind=dp), intent(in) :: stop_

final time
real(kind=dp), intent(out) :: time_

stop_ - start_
character(len=*), intent(in), optional :: message_

(optional) a message to print instead of a default "Completed in ... s"

Calls

proc~~time_count_summary~~CallsGraph proc~time_count_summary time_count_summary proc~write_message write_message proc~time_count_summary->proc~write_message

Called by

proc~~time_count_summary~~CalledByGraph proc~time_count_summary time_count_summary proc~initialize_pes_matrix initialize_pes_matrix proc~initialize_pes_matrix->proc~time_count_summary proc~numerov numerov proc~numerov->proc~time_count_summary proc~calculate_state_to_state_cross_section calculate_state_to_state_cross_section proc~calculate_state_to_state_cross_section->proc~time_count_summary program~scattering SCATTERING program~scattering->proc~time_count_summary program~scattering->proc~initialize_pes_matrix program~scattering->proc~numerov program~scattering->proc~calculate_state_to_state_cross_section

Contents

Variables

Source Code

time_count_summary

Variables

Type Visibility Attributes Name Initial
character(len=12), private :: default_message = 'Completed in'
character(len=100), private :: time_msg

Source Code

      subroutine time_count_summary(start_, stop_, time_, message_)
         !! print the message about the time it took to complete a single task
         !---------------------------------------------------------------------!
         real(dp), intent(in)  :: start_
            !! initial time
         real(dp), intent(in)  :: stop_
            !! final time
         real(dp), intent(out) :: time_
            !! stop_ - start_
         character(len = *), optional, intent(in) :: message_
            !! (optional) a message to print instead of a default
            !! "Completed in ... s"
         !---------------------------------------------------------------------!
         character(len = 12)  :: default_message = 'Completed in'
         character(len = 100) :: time_msg
         !---------------------------------------------------------------------!
         time_ = stop_ - start_
         if (present(message_)) then
            write(time_msg, fmt='(a,x,a,es11.4,x,a)')                          &
                    '--', trim(message_), time_, 's'
         else
            write(time_msg, fmt='(a,x,a,es11.4,x,a)')                          &
                    '--', default_message, time_, 's'
         endif

         call write_message(time_msg)
         !---------------------------------------------------------------------!
      end subroutine time_count_summary