c$Header: /weru/cvs/weps/weps.src/util/date/dayear.for,v 1.1.1.1 1999-03-12 17:05:31 wagner Exp $
c
      integer   function   dayear
     i                              (dd, mm, yyyy)
c     + + + PURPOSE + + +
c     Given a date in dd/mm/yyyy format,
c     dayear will return the number of days
c     from the first of that year.
c
c     + + + KEYWORDS + + +
c     date, utility
c
c     + + + ARGUMENT DECLARATIONS + + + 
      integer dd, mm, yyyy
c
c     + + + ARGUMENT DEFINITIONS + + +
c     dd     - day
c     mm     - month
c     yyyy   - year
c
c     + + + FUNCTION DECLARATIONS + + +
      integer difdat
c
c     + + + END SPECIFICATIONS + + +
c
c     Get the difference in days + 1
      dayear = difdat(1,1,yyyy, dd,mm,yyyy)+1
      return
      end
c
c$Log: not supported by cvs2svn $
c Revision 1.1.1.1  1995/01/18  04:20:06  wagner
c Initial checkin
c
c Revision 2.1  1992/03/27  17:22:53  wagner
c Version 2 code.
c