c$Header: /weru/cvs/weps/weps.src/util/date/wkjday.for,v 1.1.1.1 1999-03-12 17:05:31 wagner Exp $
c
      integer   function   wkjday
     i                              (jday)
c     + + + PURPOSE + + +
c     Given a date in Julian Day format
c     wkjday will give the day of the week.
c     0 = Monday
c     1 = Tuesday
c     2 = Wednesday
c     3 = Thursday
c     4 = Friday
c     5 = Saturday
c     6 = Sunday
c
c     + + + KEYWORDS + + +
c     date, utility
c
c     + + + ARGUMENT DECLARATIONS + + + 
      integer jday
c
c     + + + ARGUMENT DEFINITIONS + + +
c     jday   - Julian Day
c
c     + + + END SPECIFICATIONS + + +
c
c     We simply take the Julian Day and do a modulo of the value
      wkjday=mod(jday, 7)
      return
      end
c
c$Log: not supported by cvs2svn $
c Revision 1.1.1.1  1995/01/18  04:20:07  wagner
c Initial checkin
c
c Revision 2.1  1992/03/27  17:22:53  wagner
c Version 2 code.
c