| Symbol | Description | Uses |
| caldate | 12 |
| File | Line number | Procedure | Code |
| ./pkg/cal/cal_printdate.F | 46 | CAL_PRINTDATE |
integer caldate(4) |
| ./pkg/cal/cal_printdate.F | 58 | CAL_PRINTDATE |
if ( caldate(4) .gt. 0 ) then |
| ./pkg/cal/cal_printdate.F | 60 | CAL_PRINTDATE |
write(msgBuf,'(i10,i8,i3,i4)') caldate(1), caldate(2), |
| ./pkg/cal/cal_printdate.F | 61 | CAL_PRINTDATE |
& caldate(3), caldate(4) |
| ./pkg/cal/cal_printdate.F | 64 | CAL_PRINTDATE |
else if ( caldate(4) .eq. -1 ) then |
| ./pkg/cal/cal_printdate.F | 66 | CAL_PRINTDATE |
write(msgBuf,'(i10,i8,i3,i4)') caldate(1), caldate(2), |
| ./pkg/cal/cal_printdate.F | 67 | CAL_PRINTDATE |
& caldate(3), caldate(4) |
| ./pkg/cal/cal_printdate.F | 7 | CAL_PRINTDATE |
I caldate, |