Program l : datec, jdatec

      program progl
      implicit none

      integer i
      integer nberr,jd,yr,mo,da

      nberr=0
      print *,'this program finds the years(from 1600 to 2000)'
      print *,'that are multiple of 4 and that are not leap years'
      do i=1600,2000,4
         call jdatec(jd,i,2,29)
         call datec(jd,yr,mo,da)
         if ((yr.ne.i).or.(mo.ne.2).or.(da.ne.29)) then
            print *,i,' /',2,' /',29,' doesn''t exist'
         endif   
      enddo

      stop
      end