| Symbol | Description | Uses |
| KM | 54 |
| File | Line number | Procedure | Code |
| ./pkg/fizhi/fizhi_clockstuff.F | 964 | ASTRO |
KM = INT(EQNX) + 1 |
| ./pkg/fizhi/fizhi_clockstuff.F | 965 | ASTRO |
FAC = KM-EQNX |
| ./pkg/fizhi/fizhi_clockstuff.F | 971 | ASTRO |
TH(KM) = (T1 + TWO*(T2 + T3) + T4) / SIX |
| ./pkg/fizhi/fizhi_clockstuff.F | 974 | ASTRO |
T1 = FUN(TH(KM) ) |
| ./pkg/fizhi/fizhi_clockstuff.F | 975 | ASTRO |
T2 = FUN(TH(KM)+T1/TWO) |
| ./pkg/fizhi/fizhi_clockstuff.F | 976 | ASTRO |
T3 = FUN(TH(KM)+T2/TWO) |
| ./pkg/fizhi/fizhi_clockstuff.F | 977 | ASTRO |
T4 = FUN(TH(KM)+T3 ) |
| ./pkg/fizhi/fizhi_clockstuff.F | 978 | ASTRO |
KP = MOD(KM,DAYSCY) + 1 |
| ./pkg/fizhi/fizhi_clockstuff.F | 979 | ASTRO |
TH(KP) = TH(KM) + (T1 + TWO*(T2 + T3) + T4) / SIX |
| ./pkg/fizhi/fizhi_clockstuff.F | 980 | ASTRO |
KM = KP |