DAYRNG.f90#31
      INTEGER :: I , K , IMN , IDY , IMN1 , IDY1 , IMN2 , IDY2 , JDAYB ,&
#131
                  IDY = NINT(FNUM)                                      !      0
#133
               CALL JULIAN(ISYEAR,IMN,IDY,JDAY)                         !      0
EVPER.f90#31
      INTEGER :: ISDX , IMN , IDY , IEVYR2 , IEVYR4
#132
         IDY = NINT(DNUM/100.) - NINT(DNUM/10000.)*100
#133
         CALL JULIAN(IEVYR4,IMN,IDY,JDAY)
GREGOR.f90#2
      SUBROUTINE GREGOR(INYR,INMN,JDY,IDY)
#33
      INTEGER :: INYR , INMN , IDY , JDY
#55
         IDY = JDY - NDAY(INMN)                                         !      0
#58
         IDY = JDY - NDAY(INMN)                                         !      0
#59
         IF ( INMN.GT.2 ) IDY = IDY - 1

HyperKWIC - Version 1.00DD executed at 20:00 on  1 Mar 2018  | Personal or Academic or Evaluation User | Free for Non-Commercial, Non-Government Use