GREGOR.f90#2
      SUBROUTINE GREGOR(INYR,INMN,JDY,IDY)
#33
      INTEGER :: INYR , INMN , IDY , JDY
#45
      ELSEIF ( JDY.LT.1 .OR. JDY.GT.366 ) THEN
#55
         IDY = JDY - NDAY(INMN)                                         !      0
#58
         IDY = JDY - NDAY(INMN)                                         !      0
JULIAN.f90#2
      SUBROUTINE JULIAN(INYR,INMN,INDY,JDY)
#33
      INTEGER :: INYR , INMN , INDY , JDY
#41
      JDY = 0
#65
            JDY = INDY + NDAY(INMN)                                     !   4326
#70
            JDY = 60
#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