calerr = 1806
calerr = 1807
INTEGER calerr
calerr = 0
calerr = 1803
calerr = 1801
calerr = 1802
calerr = 1805
O calerr,
CALL CAL_CHECKDATE( date, valid, calerr, myThid )
IF ( calerr.NE.0 ) THEN
CALL CAL_PRINTERROR( calerr, myThid )
nerrcode = mod(calerr,100)
nroutine = (calerr - nerrcode)/100
print*,' cal_PrintError: error code = ',calerr
I calerr,
integer calerr