| File |
Line number |
Procedure |
Code |
|
./pkg/cal/cal_checkdate.F |
102 |
CAL_CHECKDATE |
calerr = 1806 |
|
./pkg/cal/cal_checkdate.F |
105 |
CAL_CHECKDATE |
calerr = 1803 |
|
./pkg/cal/cal_checkdate.F |
109 |
CAL_CHECKDATE |
calerr = 1807 |
|
./pkg/cal/cal_checkdate.F |
117 |
CAL_CHECKDATE |
calerr = 1804 |
|
./pkg/cal/cal_checkdate.F |
121 |
CAL_CHECKDATE |
calerr = 1808 |
|
./pkg/cal/cal_checkdate.F |
128 |
CAL_CHECKDATE |
if (calerr .ne. 0) valid = .not. valid |
|
./pkg/cal/cal_checkdate.F |
48 |
CAL_CHECKDATE |
integer calerr |
|
./pkg/cal/cal_checkdate.F |
65 |
CAL_CHECKDATE |
calerr = 0 |
|
./pkg/cal/cal_checkdate.F |
75 |
CAL_CHECKDATE |
calerr = 1801 |
|
./pkg/cal/cal_checkdate.F |
78 |
CAL_CHECKDATE |
calerr = 1802 |
|
./pkg/cal/cal_checkdate.F |
81 |
CAL_CHECKDATE |
calerr = 1803 |
|
./pkg/cal/cal_checkdate.F |
91 |
CAL_CHECKDATE |
calerr = 1804 |
|
./pkg/cal/cal_checkdate.F |
98 |
CAL_CHECKDATE |
calerr = 1805 |
|
./pkg/cal/cal_checkdate.F |
9 |
CAL_CHECKDATE |
O calerr, |
|
./pkg/cal/cal_fulldate.F |
56 |
CAL_FULLDATE |
integer calerr |
|
./pkg/cal/cal_fulldate.F |
71 |
CAL_FULLDATE |
call CAL_CHECKDATE( date, valid, calerr, mythid ) |
|
./pkg/cal/cal_fulldate.F |
82 |
CAL_FULLDATE |
call CAL_PRINTERROR( calerr, mythid ) |
|
./pkg/cal/cal_printerror.F |
100 |
CAL_PRINTERROR |
nroutine = (calerr - nerrcode)/100 |
|
./pkg/cal/cal_printerror.F |
369 |
CAL_PRINTERROR |
print*,' cal_PrintError: error code = ',calerr |
|
./pkg/cal/cal_printerror.F |
7 |
CAL_PRINTERROR |
I calerr, |
|
./pkg/cal/cal_printerror.F |
89 |
CAL_PRINTERROR |
integer calerr |
|
./pkg/cal/cal_printerror.F |
99 |
CAL_PRINTERROR |
nerrcode = mod(calerr,100) |