time_getdate()

subroutine time_getdate	(	integer	day,
		integer	month,
		integer, dimension(7)	date
	)

Definition at line 31 of file time_getdate.f.

References time_copy(), and time_norm().

c
c get day and month index for given doy (day of year) in date
c
c input: 
c   date:   absolute date record
c output:
c   day:    day index within month
c   month:  month index within year
c
c last change: V2.00 (05/08/2000)
c
      integer date(7), day, month
cE
      integer days(12,2), d(7)
      integer sel
      logical time_isleapyear
      data days/31,28,31,30,31,30,31,31,30,31,30,31,
     &          31,29,31,30,31,30,31,31,30,31,30,31/
c 
      call time_copy(date, d)
      call time_norm(d)
      day=d(2)
c check for realtive date
      if (d(1).gt.0) then
        if (time_isleapyear(d(1))) then
          sel=2
        else
          sel=1
        endif
        month=1
    1   if (day.le.days(month,sel)) goto 2
          day=day-days(month,sel)
          month=month+1
          goto 1
    2   continue
      else
        month=0
      endif
      return

Here is the call graph for this function: