fortran date_and_time

Fortran 中的 `DATE_AND_TIME` 内置函数可以获取当前系统时间和日期。该函数需要三个参数：`DATE`，`TIME` 和 `ZONE`，其中 `DATE` 和 `TIME` 是字符类型数组，`ZONE` 是整型变量。

以下是使用 `DATE_AND_TIME` 函数获取当前日期和时间的示例代码：

program date_and_time_example
  implicit none
  character(8) :: date
  character(10) :: time
  integer :: zone, i

  call date_and_time(date, time, zone)
  write(*,*) 'Current date and time:', date, time
end program date_and_time_example

输出为：

Current date and time:20220223 153419

其中，`date` 为 `20220223`，表示当前日期为 2022 年 2 月 23 日；`time` 为 `153419`，表示当前时间为 15 点 34 分 19 秒。