program mondayconvertarray
      
C**********************************************************
C   Convert the read in month, day, and year and return the 
C	julian day
C**********************************************************

      integer month, day, year, monday2doy, julianday
      
      print *, 'Enter a month (number 1-12)'
      read *, month
      
      print *, 'Enter a day in the month (number 1-31)'
      read *, day
      
      print *, 'Enter a year'
      read *, year
      
      julianday = monday2doy(month, day, year)
      
      print *, 'That is ',julianday,' in Julian Days'
      
      stop
      end
C-------------------------------------------------------------
      function monday2doy(month, day, year)
      
      integer month, day, year, monday2doy
      integer dayinmonth(12), monthstep
      
      data dayinmonth /31,28,31,30,31,30,31,31,30,31,30,31/
      
      if (mod(year,4).eq.0) dayinmonth(2)=29
      
      monthstep = 1
      monday2doy = 0
      
      do while (monthstep .lt. month)
 
         monday2doy = monday2doy + dayinmonth(monthstep)
	 monthstep = monthstep + 1
      end do
     
      monday2doy = monday2doy + day
      
      
      
      return
      end