time_clear()

subroutine time_clear

(

integer, dimension(7)

date

)

Definition at line 31 of file time_clear.f.

c
c clear a time record (i.e. set all values to zero)
c
c input/output:
c   date:   time record to be cleared
c
c last change: V2.00 (05/08/2000)
c
      integer date(7)
cE
      integer i
c
      do i=1,7
        date(i)=0
      enddo
      return