GREGOR.f90#2
      SUBROUTINE GREGOR(INYR,INMN,JDY,IDY)
#33
      INTEGER :: INYR , INMN , IDY , JDY
#52
      IF ( (MOD(INYR,4).NE.0) .OR.                                      &
#53
     &     (MOD(INYR,100).EQ.0 .AND. MOD(INYR,400).NE.0) ) THEN
JULIAN.f90#2
      SUBROUTINE JULIAN(INYR,INMN,INDY,JDY)
#33
      INTEGER :: INYR , INMN , INDY , JDY
#45
      IF ( INYR.LT.100 ) CALL ERRHDL(PATH,MODNAM,'W','360',KEYWRD)
#61
      IF ( (MOD(INYR,4).NE.0) .OR.                                      &
#62
     &     (MOD(INYR,100).EQ.0 .AND. MOD(INYR,400).NE.0) ) THEN
#68
            WRITE (DUMMY,'("YR= ",I4)') INYR                            !      0

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