Symbol Description Uses
NM 40


File Line number Procedure Code
./pkg/fizhi/fizhi_clockstuff.F 809 TIC_TIME 
      NM = MOD(NYMD,10000) / 100
./pkg/fizhi/fizhi_clockstuff.F 813 TIC_TIME 
      NM = NM - 1
./pkg/fizhi/fizhi_clockstuff.F 814 TIC_TIME 
      IF (NM.EQ.0) THEN
./pkg/fizhi/fizhi_clockstuff.F 815 TIC_TIME 
          NM = 12
./pkg/fizhi/fizhi_clockstuff.F 818 TIC_TIME 
      ND = NDPM(NM)
./pkg/fizhi/fizhi_clockstuff.F 819 TIC_TIME 
      IF (NM.EQ.2 .AND. LEAP(NY))  ND = 29
./pkg/fizhi/fizhi_clockstuff.F 822 TIC_TIME 
      IF (ND.EQ.29 .AND. NM.EQ.2 .AND. LEAP(NY))  GO TO 20
./pkg/fizhi/fizhi_clockstuff.F 824 TIC_TIME 
      IF (ND.GT.NDPM(NM)) THEN
./pkg/fizhi/fizhi_clockstuff.F 826 TIC_TIME 
      NM = NM + 1
./pkg/fizhi/fizhi_clockstuff.F 827 TIC_TIME 
      IF (NM.GT.12) THEN
./pkg/fizhi/fizhi_clockstuff.F 828 TIC_TIME 
          NM = 1
./pkg/fizhi/fizhi_clockstuff.F 834 TIC_TIME 
      INCYMD = NY*10000 + NM*100 + ND
./pkg/fizhi/fizhi_clockstuff.F 845 TIC_TIME 
      NM = MOD(NYMD,10000) / 100
./pkg/fizhi/fizhi_clockstuff.F 849 TIC_TIME 
      IF (NM.LE.1)  GO TO 60
./pkg/fizhi/fizhi_clockstuff.F 850 TIC_TIME 
      NM = NM - 1
./pkg/fizhi/fizhi_clockstuff.F 851 TIC_TIME 
      ND = ND + NDPM(NM)
./pkg/fizhi/fizhi_clockstuff.F 852 TIC_TIME 
      IF (NM.EQ.2 .AND. LEAP(NY))  ND = ND + 1
./pkg/chronos/chronos.F 646 TIC_TIME 
      NM = MOD(NYMD,10000) / 100
./pkg/chronos/chronos.F 650 TIC_TIME 
      NM = NM - 1
./pkg/chronos/chronos.F 651 TIC_TIME 
      IF (NM.EQ.0) THEN
./pkg/chronos/chronos.F 652 TIC_TIME 
          NM = 12
./pkg/chronos/chronos.F 655 TIC_TIME 
      ND = NDPM(NM)
./pkg/chronos/chronos.F 656 TIC_TIME 
      IF (NM.EQ.2 .AND. LEAP(NY))  ND = 29
./pkg/chronos/chronos.F 659 TIC_TIME 
      IF (ND.EQ.29 .AND. NM.EQ.2 .AND. LEAP(NY))  GO TO 20
./pkg/chronos/chronos.F 661 TIC_TIME 
      IF (ND.GT.NDPM(NM)) THEN
./pkg/chronos/chronos.F 663 TIC_TIME 
      NM = NM + 1
./pkg/chronos/chronos.F 664 TIC_TIME 
      IF (NM.GT.12) THEN
./pkg/chronos/chronos.F 665 TIC_TIME 
          NM = 1
./pkg/chronos/chronos.F 671 TIC_TIME 
      INCYMD = NY*10000 + NM*100 + ND
./pkg/chronos/chronos.F 682 TIC_TIME 
      NM = MOD(NYMD,10000) / 100
./pkg/chronos/chronos.F 686 TIC_TIME 
      IF (NM.LE.1)  GO TO 60
./pkg/chronos/chronos.F 687 TIC_TIME 
      NM = NM - 1
./pkg/chronos/chronos.F 688 TIC_TIME 
      ND = ND + NDPM(NM)
./pkg/chronos/chronos.F 689 TIC_TIME 
      IF (NM.EQ.2 .AND. LEAP(NY))  ND = ND + 1