Write the init times to
subroutine write_init_times()
use mp, only: proc0
use file_utils, only: open_output_file, close_output_file
implicit none
integer :: unit
if (.not. proc0) return
call open_output_file(unit, '.init_times')
call report_init_times(unit)
call close_output_file(unit)
end subroutine write_init_times