libtime++: Date and time calculation

◆ subaddtest()

subroutine subaddtest ( integer, dimension(8)  date1,
integer, dimension(8)  date2 
)

Definition at line 375 of file testlibtime.f.

References time_add(), time_sprint(), and time_sub().

375  integer date1(8), date2(8), date3(8), date4(8)
376  character*40 string
377  call time_sprint(date1, string)
378  print *,'*** date1: ',string
379  call time_sprint(date2, string)
380  print *,' date2: ',string
381  call time_sub(date1, date2, date3)
382  call time_sprint(date3, string)
383  print *,' date1-date2=date3: ',string
384  call time_add(date3, date2, date4)
385  call time_sprint(date4, string)
386  print *,' date3+date2=date4: ',string
387  return
char * time_sprint(time_Ts Date)
Definition: ctime_sprint.c:39
void time_add(time_Ts Date1, time_Ts Date2, time_Ts *Pdate3)
Definition: ctime_add.c:33
void time_sub(time_Ts Date1, time_Ts Date2, time_Ts *Pdate3)
Definition: ctime_sub.c:33
Here is the call graph for this function: