time_finish()

subroutine time_finish

(

integer, dimension(7)

date

)

Definition at line 31 of file time_finish.f.

References time_fullyear(), and time_norm().

c
c Finish setting of absolute time value. This routine is senseless
c in combination with relative time values (year=0). This routine just calls
c time_fullyear on the year value and than time_norm for the whole record.
c
c input/output:
c   date:   absolute time record to be regularized
c
c last change: V2.00 (05/08/2000)
c
      integer date(7)
cE
      call time_fullyear(date(1))
      call time_norm(date)
      return

Here is the call graph for this function: