time_copy()

subroutine time_copy	(	integer, dimension(7)	date1,
		integer, dimension(7)	date2
	)

Definition at line 31 of file time_copy.f.

c
c copy: date1 --> date2
c
c input:
c   date1:  any time record
c output:
c   date2:  copy of date1
c
c last change: V2.00 (05/08/2000)
c
      integer date1(7), date2(7)
cE
      integer i
c
      do i=1,7
        date2(i)=date1(i)
      enddo
      return