libtime++: Date and time calculation

◆ time_util_warning_report_time()

subroutine time_util_warning_report_time ( character*(*)  caller,
integer, dimension(7)  date 
)

Definition at line 31 of file time_util_warning_report_time.f.

References time_util_warning_n().

Referenced by normbugtest(), and time_setdoy().

31 c
32 c declare parameters
33  character*(*) caller
34  integer date(7)
35 c
36 cE
37 c
38 c------------------------------------------------------------------------------
39 c go
40  call time_util_warning_n(caller, "year", date(1))
41  call time_util_warning_n(caller, "doy", date(2))
42  call time_util_warning_n(caller, "hour", date(3))
43  call time_util_warning_n(caller, "minute", date(4))
44  call time_util_warning_n(caller, "second", date(5))
45  call time_util_warning_n(caller, "milsec", date(6))
46  call time_util_warning_n(caller, "micsec", date(7))
subroutine time_util_warning_n(caller, text, n)
Here is the call graph for this function:
Here is the caller graph for this function: