| Symbol | Description | Uses |
| K1 | 58 |
| File | Line number | Procedure | Code |
| ./pkg/fizhi/update_earth_exports.F | 769 | GETLGR |
K1 = MOD(IMON+10,12) + 1 |
| ./pkg/fizhi/update_earth_exports.F | 771 | GETLGR |
K1 = IMON |
| ./pkg/fizhi/update_earth_exports.F | 776 | GETLGR |
MIDM = DAYS(K1)/2 + 1 |
| ./pkg/fizhi/update_earth_exports.F | 777 | GETLGR |
MIDP = DAYS(K1) + MIDMON |
| ./pkg/fizhi/update_earth_exports.F | 778 | GETLGR |
ID = IDAY + DAYS(K1) |
| ./pkg/fizhi/update_earth_exports.F | 781 | GETLGR |
MIDP = DAYS(K2)/2 + 1 + DAYS(K1) |
| ./pkg/fizhi/update_earth_exports.F | 791 | GETLGR |
KK1 = K1 |
| ./pkg/fizhi/update_earth_exports.F | 794 | GETLGR |
KK1 = MOD(K1+5,12) + 1 |