share/set_timekeeping_defs.m4

   1 define( DEFINTERVALS,
   2 `   INTEGER :: $1$2_interval  ,   &
   3                $1$2_interval_d,   &
   4                $1$2_interval_h,   &
   5                $1$2_interval_m,   &
   6                $1$2_interval_s
   7    INTEGER ::  $1$2_begin  ,  &
   8                $1$2_begin_y,  &
   9                $1$2_begin_d,  &
  10                $1$2_begin_h,  &
  11                $1$2_begin_m,  &
  12                $1$2_begin_s
  13    INTEGER ::  $1$2_end  ,  &
  14                $1$2_end_y,  &
  15                $1$2_end_d,  &
  16                $1$2_end_h,  &
  17                $1$2_end_m,  &
  18                $1$2_end_s
  19 ')
  20
  21 DEFINTERVALS(history,)
  22 DEFINTERVALS(restart,)
  23 DEFINTERVALS(inputout,)
  24
  25 DEFINTERVALS(auxinput,1)
  26 DEFINTERVALS(auxinput,2)
  27 DEFINTERVALS(auxinput,3)
  28 DEFINTERVALS(auxinput,4)
  29 DEFINTERVALS(auxinput,5)
  30 DEFINTERVALS(auxinput,6)
  31 DEFINTERVALS(auxinput,7)
  32 DEFINTERVALS(auxinput,8)
  33 DEFINTERVALS(auxinput,9)
  34 DEFINTERVALS(auxinput,10)
  35 DEFINTERVALS(auxinput,11)
  36
  37 DEFINTERVALS(auxhist,1)
  38 DEFINTERVALS(auxhist,2)
  39 DEFINTERVALS(auxhist,3)
  40 DEFINTERVALS(auxhist,4)
  41 DEFINTERVALS(auxhist,5)
  42 DEFINTERVALS(auxhist,6)
  43 DEFINTERVALS(auxhist,7)
  44 DEFINTERVALS(auxhist,8)
  45 DEFINTERVALS(auxhist,9)
  46 DEFINTERVALS(auxhist,10)
  47 DEFINTERVALS(auxhist,11)
  48