C
C
C
       INTEGER jd,m,d,yr
C
       INTEGER j,k,l,n,i
C
       jd=344
       j = jd + 1402
       k = (j-1) / 1461
       l = j - 1461 * k
       n = (l-1) / 365 - l / 1461
       i = l -365 * n + 30
       j = (80 * i) / 2447
       d = i - (2447 * j) / 80
       i = j / 11
       m = j + 2 - 12 * i
       y = 4 * k + n + i - 4716
C
C       PRINT (6,*) d
C       PRINT (6,*) m
C       PRINT (6,*) y
C
       RETURN
       END