在Fortran中实现get_walltime

program get_walltime_example
  implicit none
  
  character(len=8) :: date_str
  character(len=8) :: time_str
  
  call get_walltime(date_str, time_str)
  
  write(*, '(A, A)') "Current date: ", date_str
  write(*, '(A, A)') "Current time: ", time_str
  
contains

  subroutine get_walltime(date_str, time_str)
    character(len=8), intent(out) :: date_str
    character(len=8), intent(out) :: time_str
    
    character(len=8) :: date_time_str
    
    call date_and_time(date=date_time_str)
    
    date_str = date_time_str(1:8)
    time_str = date_time_str(10:17)
  end subroutine get_walltime

end program get_walltime_example