GREGOR.f90#2
      SUBROUTINE GREGOR(INYR,INMN,JDY,IDY)
#33
      INTEGER :: INYR , INMN , IDY , JDY
#41
      IF ( INMN.LT.1 .OR. INMN.GT.12 ) THEN
#55
         IDY = JDY - NDAY(INMN)                                         !      0
#58
         IDY = JDY - NDAY(INMN)                                         !      0
#59
         IF ( INMN.GT.2 ) IDY = IDY - 1
JULIAN.f90#2
      SUBROUTINE JULIAN(INYR,INMN,INDY,JDY)
#33
      INTEGER :: INYR , INMN , INDY , JDY
#48
      IF ( INMN.LT.1 .OR. INMN.GT.12 ) THEN
#53
      ELSEIF ( INDY.GT.IDYMAX(INMN) ) THEN
#64
         IF ( INMN.NE.2 .OR. (INMN.EQ.2 .AND. INDY.LE.28) ) THEN        !   4326
#65
            JDY = INDY + NDAY(INMN)                                     !   4326
#75
         JDY = INDY + NDAY(INMN)                                        !      0
#76
         IF ( INMN.GT.2 ) JDY = JDY + 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