375 integer date1(8), date2(8), date3(8), date4(8)
378 print *,
'*** date1: ',string
380 print *,
' date2: ',string
383 print *,
' date1-date2=date3: ',string
386 print *,
' date3+date2=date4: ',string
char * time_sprint(time_Ts Date)
void time_add(time_Ts Date1, time_Ts Date2, time_Ts *Pdate3)
void time_sub(time_Ts Date1, time_Ts Date2, time_Ts *Pdate3)