calerr = 1806
calerr = 1803
calerr = 1807
calerr = 1804
calerr = 1808
if (calerr .ne. 0) valid = .not. valid
integer calerr
calerr = 0
calerr = 1801
calerr = 1802
calerr = 1805
O calerr,
call CAL_CHECKDATE( date, valid, calerr, mythid )
call CAL_PRINTERROR( calerr, mythid )
nerrcode = mod(calerr,100)
nroutine = (calerr - nerrcode)/100
print*,' cal_PrintError: error code = ',calerr
I calerr,