mod_time.f90

来自「1D有限差分波动方程模拟」· F90 代码 · 共 9 行

MODULE TIME

  IMPLICIT NONE
  CHARACTER(LEN=10) :: BIG_BEN(3)
  INTEGER           :: DATE_TIME(8)
  REAL              :: time_begin, time_end

END MODULE TIME