libtime++: Date and time calculation

◆ divmultest()

subroutine divmultest ( integer, dimension(7)  date1,
integer  n,
integer, dimension(7)  date2 
)

Definition at line 441 of file testlibtime.f.

References time_add(), time_div(), time_mul(), time_nfit(), and time_sprint().

441  integer date1(7), date2(7), n, nfit
442  integer date3(7), date4(7), rest, full(7)
443  character*40 string1, string3, string4, stringf
444  print *,'****'
445  call time_sprint(date1, string1)
446  call time_mul(date1, date3, n)
447  call time_sprint(date3, string3)
448  print *,string1,' * ',n,' -> ',string3
449  call time_nfit(date3, date1, nfit, full)
450  call time_sprint(full, stringf)
451  print *,'fitting: ',nfit,' to ',string3,' leads to ',stringf
452  call time_div(date3, date4, n, rest)
453  call time_sprint(date4, string4)
454  print *,string3,' / ',n,' -> ',string4, ' rest ', rest
455  call time_add(date3, date2, date4)
456  call time_div(date4, date3, n, rest)
457  call time_sprint(date4, string4)
458  call time_sprint(date3, string3)
459  print *,string4,' / ',n,' -> ',string3, ' rest ', rest
460  call time_nfit(date4, date1, nfit, full)
461  call time_sprint(full, stringf)
462  print *,'fitting: ',nfit,' to ',string4,' leads to ',stringf
463  call time_add(date4, date1, date3)
464  call time_sprint(date3, string3)
465  call time_nfit(date3, date1, nfit, full)
466  call time_sprint(full, stringf)
467  print *,'fitting: ',nfit,' to ',string3,' leads to ',stringf
468  return
time_div
void time_div(time_Ts Date1, time_Ts *Pdate2, timeint n, timeint *rest)
Definition: ctime_div.c:36
time_sprint
char * time_sprint(time_Ts Date)
Definition: ctime_sprint.c:39
time_add
void time_add(time_Ts Date1, time_Ts Date2, time_Ts *Pdate3)
Definition: ctime_add.c:33
time_nfit
void time_nfit(time_Ts Date1, time_Ts Date2, timeint *n, time_Ts *Pfull)
Definition: ctime_nfit.c:36
time_mul
void time_mul(time_Ts Date1, time_Ts *Pdate2, integer n)
Definition: ctime_mul.c:35
Here is the call graph for this function: