CHKDAT.f90#40
      IF ( IPDATE.NE.0 ) THEN
#41
         IF ( KURDAT.LE.IPDATE ) THEN                                   !   4318
#43
            IF ( KURDAT.NE.10101 .OR. IPDATE.NE.99123124 ) THEN         !      0
#49
         ELSEIF ( IHOUR.NE.1 .AND. (KURDAT-IPDATE).NE.1 ) THEN
EV_METEXT.f90#65
      IPDATE = KURDAT
MAIN1.f90#486
     &           IPHOUR , IPDATE , IPCODE , KST , IYR , IDAY_OF_WEEK ,  &
METEXT.f90#93
      IPDATE = KURDAT
VARINI.f90#286
      IPDATE = 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