subroutineprogress_summary
subroutine progress_summary(message)
Report the end of the run.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| message | character(len=*) | in | what was done |
Calls
Source
Show the code
subroutine progress_summary(message)
character(len=*), intent(in) :: message !! what was done
character(len=24) :: time
integer(int64) :: now
if (.not. enabled) return
call system_clock(now)
call seconds_text(now - run_start, time)
if (colour) then
write (output_unit, '(a)') ESC//'[1;32m'//message//' in '//trim(time)//ESC//'[0m'
else
write (output_unit, '(a)') message//' in '//trim(time)
end if
end subroutine progress_summary