cbegin documentation
c library date:        14-apr-1982
c function name:       idysyr
c source location:     dra0:[lee.netlib]idysyr.for
c function type:       integer*4
c function reference:  i = idysyr(iy)
c purpose:             to get the number of days in a given year
c
c arguments:
c name            type            i/o      definition
c ----            ----            ---      ----------
c iy            integer*4      i      year in form 19## or ##. 
c
c returned function values:  365 or 366 (non-leap year or leap year)
c
c restrictions:  none
c
c error conditions:  none
c
c entry points:  none
c
c external references:  none
c
c development history:
c   developed 16-oct-1981, bcss/barry lee
c
cend documentation
c
      function idysyr(iy)
      idysyr=365
      if(iy.ne.4*(iy/4))return
      if(iy.ne.100*(iy/100))go to 10
      if(iy.ne.400*(iy/400))return
10    idysyr=366
      return
      end