program heyjul
!       typeout day of yr
	implicit none
        integer:: iy,jul
        call julian(iy,jul) !returns int*4 yyyy and day of year
        print *,iy,' Day is ',jul
	stop
	end program heyjul