File |
Line number |
Procedure |
Code |
./pkg/cal/cal_checkdate.F |
104 |
CAL_CHECKDATE |
if (check_sign .lt. 0) then |
./pkg/cal/cal_checkdate.F |
59 |
CAL_CHECKDATE |
_RL check_sign |
./pkg/cal/cal_checkdate.F |
68 |
CAL_CHECKDATE |
check_sign = 1 |
./pkg/cal/cal_checkdate.F |
71 |
CAL_CHECKDATE |
& check_sign = -1 |
./pkg/cal/cal_checkdate.F |
80 |
CAL_CHECKDATE |
if (check_sign .lt. 0) then |
./pkg/cal/cal_toseconds.F |
60 |
CAL_TOSECONDS |
integer ierr, check_sign, hhmmss |
./pkg/cal/cal_toseconds.F |
66 |
CAL_TOSECONDS |
check_sign = 1 |
./pkg/cal/cal_toseconds.F |
69 |
CAL_TOSECONDS |
& check_sign = -1 |
./pkg/cal/cal_toseconds.F |
73 |
CAL_TOSECONDS |
& (check_sign .ge. 0)) .or. |
./pkg/cal/cal_convdate.F |
61 |
CAL_CONVDATE |
integer check_sign |
./pkg/cal/cal_convdate.F |
69 |
CAL_CONVDATE |
check_sign = 1 |
./pkg/cal/cal_convdate.F |
72 |
CAL_CONVDATE |
& check_sign = -1 |
./pkg/cal/cal_convdate.F |
74 |
CAL_CONVDATE |
if ( check_sign .ge. 0 ) then |