Symbol Description Uses
DAY 29


File Line number Procedure Code
./pkg/fizhi/fizhi_clockstuff.F 1049 TIME_BOUND 
      DAY    = NDAYF(NYMD)
./pkg/fizhi/fizhi_clockstuff.F 1069 TIME_BOUND 
      IF(DAY.LT.MIDMON) THEN
./pkg/fizhi/fizhi_clockstuff.F 1146 TIME2FREQ2 
      DAY    = MOD(NYMD,100)
./pkg/fizhi/fizhi_clockstuff.F 1151 TIME2FREQ2 
      IDAY   = (DAY -1) + MNDY( MONTH +12*MOD(YEAR ,4) )
./pkg/fizhi/fizhi_clockstuff.F 340 GET_TIME 
      INTEGER YEAR, MONTH, DAY
./pkg/fizhi/fizhi_clockstuff.F 375 GET_TIME 
      DAY    = MOD(NYMD,100)
./pkg/fizhi/fizhi_clockstuff.F 447 INTERP_TIME 
      INTEGER  YEAR , MONTH , DAY , SEC
./pkg/fizhi/fizhi_clockstuff.F 472 INTERP_TIME 
      DAY    = MOD(NYMD,100)
./pkg/fizhi/fizhi_clockstuff.F 500 INTERP_TIME 
      time00 = DAY + MNDY(MONTH +12*MOD(YEAR ,4)) + float(sec )/86400.
./pkg/fizhi/fizhi_clockstuff.F 624 TIC_TIME 
      INTEGER YEAR, MONTH, DAY, SEC, YEAR0, MONTH0, DAY0, SEC0
./pkg/fizhi/fizhi_clockstuff.F 646 TIC_TIME 
      DAY    = MOD(NYMD,100)
./pkg/fizhi/fizhi_clockstuff.F 658 TIC_TIME 
      IDAY   = (DAY -1) + MNDY( MONTH +12*MOD(YEAR ,4) )
./pkg/fizhi/fizhi_clockstuff.F 693 TIC_TIME 
      INTEGER YEAR, MONTH, DAY, SEC, YEAR0, MONTH0, DAY0, SEC0
./pkg/fizhi/fizhi_clockstuff.F 720 TIC_TIME 
      DAY    = MOD(NYMD,100)
./pkg/fizhi/fizhi_clockstuff.F 732 TIC_TIME 
      IDAY   = (DAY -1) + MNDY( MONTH +12*MOD(YEAR ,4) )
./pkg/fizhi/fizhi_clockstuff.F 943 ASTRO 
      DAY   = MOD(NYMD,100)
./pkg/fizhi/fizhi_clockstuff.F 981 ASTRO 
      IDAY   = DAY + MNDY(MONTH+12*MOD(YEAR,4) )
./pkg/chronos/chronos.F 298 GET_TIME 
      INTEGER YEAR, MONTH, DAY
./pkg/chronos/chronos.F 331 GET_TIME 
      DAY    = MOD(NYMD,100)
./pkg/chronos/chronos.F 401 INTERP_TIME 
      INTEGER  YEAR , MONTH , DAY , SEC
./pkg/chronos/chronos.F 426 INTERP_TIME 
      DAY    = MOD(NYMD,100)
./pkg/chronos/chronos.F 454 INTERP_TIME 
      time  = DAY  + MNDY(MONTH ,MOD(YEAR ,4)+1) + float(sec )/86400.
./pkg/chronos/chronos.F 574 TIC_TIME 
      INTEGER YEAR, MONTH, DAY, SEC, YEAR0, MONTH0, DAY0, SEC0
./pkg/chronos/chronos.F 596 TIC_TIME 
      DAY    = MOD(NYMD,100)
./pkg/chronos/chronos.F 608 TIC_TIME 
      IDAY   = (DAY -1) + MNDY( MONTH ,MOD(YEAR ,4)+1 )
./pkg/chronos/chronos.F 776 ASTRO 
      DAY   = MOD(NYMD,100)
./pkg/chronos/chronos.F 814 ASTRO 
      IDAY   = DAY + MNDY(MONTH,MOD(YEAR,4)+1)
./pkg/chronos/chronos.F 882 TIME_BOUND 
      DAY    = NDAYF(NYMD)
./pkg/chronos/chronos.F 902 TIME_BOUND 
      IF(DAY.LT.MIDMON) THEN