	subroutine sub_date(indate,outdate)
c
c	equates outdate to indate
c
	integer indate(5),outdate(5)
	do n=1,5
	outdate(n)=indate(n)
	end do
        return
        end
