| Symbol | Description | Uses |
| theyear | 3 |
| File | Line number | Procedure | Code |
| ./pkg/cal/cal_fulldate.F | 54 | CAL_FULLDATE |
integer theyear |
| ./pkg/cal/cal_fulldate.F | 75 | CAL_FULLDATE |
theyear = yymmdd/10000 |
| ./pkg/cal/cal_fulldate.F | 76 | CAL_FULLDATE |
date(3) = cal_IsLeap( theyear, mythid ) |